VBA Access Arama

[s.balci]

Dün istediğim yardıma kimse cevap vermedi umarım bunda yardımcı olursunuz.

TextBox9 a girilen değere göre arama yapıp liste elemanına aradığım değeri görüntülemek istiyorum ve mümkünse bu değeri excelle aktarmak istiyorum.

Private Sub TextBox9_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![TextBox9]

If Not IsNull(Me![TextBox9]) Then

strSQL = "SELECT * FROM kalip "

strSQL = strSQL & "WHERE WHERE ((kalip.kalip_no)Like '" & txtSearchString & "*') "

End If

Me!Liste0.RowSource = strSQL
End Sub

 

[Taruz]

Merhaba..

strSQL = strSQL & "WHERE ((kalip.kalip_no)Like '" & txtSearchString & "*') "

İlgili kısmı bu şekilde düzeltiniz..

 

[s.balci]

Eyw. yazdığım kodu 2 saattir süzüyorum ama tık yokdu. Where iki kere yazmışım şu anda işlem tamam ilgin için teşekkürler.

Peki bu bilgileri excelle nasıl aktarabilirim.