Merhaba arkadaşlar,
Ben Sayın haluk beyin çalışmasından yararlanarak userformdan access e bilgi akatarımı ve alma olayını yaparken koşullu alma işini yapamadım
kod aşağıdaki gibi çalıştıramadım.
Sub caribul()
On Error GoTo NoData:
strCrit = "Müsno"
MyData = TextBox0.Value
strSearch = " like'" & MyData & "'"
strSQL = "SELECT * FROM [Mycari] WHERE " & strCrit & strSearch & " ORDER BY " & "Müsno"
Set RS = CreateObject("ADODB.recordset")
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Do While Not RS.EOF
ListView2.ListItems.Clear
Set kyt = ListView2.ListItems.Add(, , RS("Müsno"))
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(1) = RS("Tarih")
kyt.SubItems(2) = RS("Açıklama")
kyt.SubItems(3) = RS("Adet")
kyt.SubItems(4) = RS("Nevi")
kyt.SubItems(5) = RS("Birimfiyat")
kyt.SubItems(6) = RS("Toplam")
kyt.SubItems(7) = RS("Ã?denen")
RS.MoveNext
x = x + 1
Loop
Exit Sub
NoData:
MsgBox "Bu Müşteriye ait cari kayıt yoktur !", vbCritical, "AKD.YAZILIM"
ListView2.ListItems.Clear
End Sub
selamlar
Ben Sayın haluk beyin çalışmasından yararlanarak userformdan access e bilgi akatarımı ve alma olayını yaparken koşullu alma işini yapamadım
kod aşağıdaki gibi çalıştıramadım.
Sub caribul()
On Error GoTo NoData:
strCrit = "Müsno"
MyData = TextBox0.Value
strSearch = " like'" & MyData & "'"
strSQL = "SELECT * FROM [Mycari] WHERE " & strCrit & strSearch & " ORDER BY " & "Müsno"
Set RS = CreateObject("ADODB.recordset")
RS.Open strSQL, adoCN, 1, 3
RS.MoveFirst
Do While Not RS.EOF
ListView2.ListItems.Clear
Set kyt = ListView2.ListItems.Add(, , RS("Müsno"))
kyt.SubItems(1) = RS("Müsno")
kyt.SubItems(1) = RS("Tarih")
kyt.SubItems(2) = RS("Açıklama")
kyt.SubItems(3) = RS("Adet")
kyt.SubItems(4) = RS("Nevi")
kyt.SubItems(5) = RS("Birimfiyat")
kyt.SubItems(6) = RS("Toplam")
kyt.SubItems(7) = RS("Ã?denen")
RS.MoveNext
x = x + 1
Loop
Exit Sub
NoData:
MsgBox "Bu Müşteriye ait cari kayıt yoktur !", vbCritical, "AKD.YAZILIM"
ListView2.ListItems.Clear
End Sub
selamlar