Merhaba arkadaşlar, aşağıdaki kodlarda "textbox1.setfocus" ile imleçi textbox1 e getiremedim birtürlü. Barkod girişi olacağı için textbox1'in bir olayını kullanmam gerekiyor, "keydown" özelliğini denedim olmadı. Ne yapılabilir? Bu mesele yüzünden tıkandım. İyi çalışmalar dilerim.
Kod:
Private Sub Textbox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim rs As Object
Dim rsa As Object
Dim parca, a, b, s As String
parca = Split(TextBox1.Value, " ")
say = UBound(Split(TextBox1.Value, " "))
If say = 4 Then
Set rs = CreateObject("adodb.recordset")
Call Baglan
s = "SELECT top 1 CODE AS [CARİ KOD], DEFINITION_ AS ÜNVAN, CITY AS ŞEHİR, CYPHCODE AS [SE KODU]"
s = s & " FROM LG_014_CLCARD"
s = s & " where LG_014_CLCARD.code like '" & parca(0) & "'"
rs.Open s, con, 3, 3
If rs.RecordCount > 0 Then
a = rs!ÜNVAN
b = rs!ŞEHİR
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Set rsa = CreateObject("adodb.recordset")
Call baglanti
rsa.Open "select top 1 * from kargokayit where TARİH='" & Label1.Caption & "' And [CARİ KOD] = '" & parca(0) & "' and ÜNVAN = '" & a & "' and ŞEHİR = '" & b & "' and [KARGO FİRMASI] = '" & parca(1) & " " & parca(2) & "' and [ÜCRET BİLGİSİ] = '" & parca(3) & " " & parca(4) & "' and MÜŞTERİSİ = '" & "" & "' and [M_ŞEHİR]= '" & "" & "' ", cone, 3, 3
If rsa.RecordCount > 0 Then
rsa![KOLİ ADET] = rsa![KOLİ ADET].Value + 1
rsa.Update
rsa.Close
Else
rsa.addnew
rsa!TARİH = Label1.Caption
rsa![CARİ KOD] = parca(0)
rsa!ÜNVAN = a
rsa!ŞEHİR = b
rsa![KARGO FİRMASI] = parca(1) & " " & parca(2)
rsa![ÜCRET BİLGİSİ] = parca(3) & " " & parca(4)
rsa![KOLİ ADET] = 1
rsa!MÜŞTERİSİ = ""
rsa!M_ŞEHİR = ""
rsa.Update
rsa.Close
End If
ListView1.ListItems.Clear
rsa.Open "select * from kargokayit where kargokayit.TARİH like '" & Label1.Caption & "' order by [ÜNVAN]", cone, 3, 3
If Not rsa.EOF Then
Do While Not rsa.EOF
With ListView1
.ListItems.Add , , rsa(0).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(2).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(3).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(4).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(5).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(6).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(7).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(8).Value
End With
rsa.movenext
Loop
End If
TextBox1.Value = Empty
Me.TextBox1.SetFocus
Exit Sub
End If
ElseIf say > 4 Then
Set rs = CreateObject("adodb.recordset")
Call Baglan
s = "SELECT top 1 CODE AS [CARİ KOD], DEFINITION_ AS ÜNVAN, CITY AS ŞEHİR, CYPHCODE AS [SE KODU]"
s = s & " FROM LG_014_CLCARD"
s = s & " where LG_014_CLCARD.code like '" & parca(0) & "'"
rs.Open s, con, 3, 3
If rs.RecordCount > 0 Then
a = rs!ÜNVAN
b = rs!ŞEHİR
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
Set rsa = CreateObject("adodb.recordset")
Call baglanti
rsa.Open "select top 1 * from kargokayit where TARİH='" & Label1.Caption & "' And [CARİ KOD] = '" & parca(0) & "' and ÜNVAN = '" & a & "' and ŞEHİR = '" & b & "' and [KARGO FİRMASI] = '" & parca(1) & " " & parca(2) & "' and [ÜCRET BİLGİSİ] = '" & parca(3) & " " & parca(4) & "' and MÜŞTERİSİ = '" & parca(5) & " " & parca(6) & "' and [M_ŞEHİR]= '" & parca(7) & "' ", cone, 3, 3
If rsa.RecordCount > 0 Then
rsa![KOLİ ADET] = rsa![KOLİ ADET].Value + 1
rsa.Update
rsa.Close
Else
rsa.addnew
rsa!TARİH = Label1.Caption
rsa![CARİ KOD] = parca(0)
rsa!ÜNVAN = a
rsa!ŞEHİR = b
rsa![KARGO FİRMASI] = parca(1) & " " & parca(2)
rsa![ÜCRET BİLGİSİ] = parca(3) & " " & parca(4)
rsa![KOLİ ADET] = 1
rsa!MÜŞTERİSİ = parca(5) & " " & parca(6)
rsa!M_ŞEHİR = parca(7)
rsa.Update
rsa.Close
End If
ListView1.ListItems.Clear
rsa.Open "select * from kargokayit where kargokayit.TARİH like '" & Label1.Caption & "' order by [ÜNVAN]", cone, 3, 3
If Not rsa.EOF Then
Do While Not rsa.EOF
With ListView1
.ListItems.Add , , rsa(0).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(2).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(3).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(4).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(5).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(6).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(7).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rsa(8).Value
End With
rsa.movenext
Loop
End If
End If
End If
TextBox1.Value = vbNullString
If Me.TextBox1 = vbNullString Then
Me.TextBox1.SetFocus
Exit Sub
End If
End Sub