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