access den bilgi alma

[akd]

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

 

[dost]

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.
selamlar

Merhaba,

Aşağıdaki kodu inceleyiniz.

[vb:1:b370e4e272]
Sub caribul()
On Error GoTo NoData:
strSQL = "SELECT * FROM [Mycari] WHERE Müsno LIKE '" & UCase(TextBox0) & "%' ORDER BY Müsno "
Set RS = CreateObject("ADODB.recordset")
RS.Open strSQL, adoCN, 1, 3
ListView2.Clear
ListView2.Column = RS.GetRows(RS.RecordCount)
Exit Sub
NoData:
MsgBox "Bu Müşteriye ait cari kayıt yoktur !", vbCritical, "AKD.YAZILIM"
End Sub

[/vb:1:b370e4e272]


NOT: Alan isimlerinde Türkçe karakter kullanmayınız.

 

[akd]

merhaba sayın dost
aşağıdaki satır hata veriyor
ListView2.Column = RS.GetRows(RS.RecordCount)
selemlar

 

[dost]

Merhaba,

Database olarak kullandığın access yada excel dosyan ile diğer excel dosyanı ekler misin?