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
Access - vba kalıp takip prog geliştirme yardımı
Bu Konudaki Yorumlar |
Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 13/10/2009, 09:05
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 13/10/2009, 10:57
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 13/10/2009, 17:16
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: Bilgisayarcı - 13/10/2009, 17:44
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 13/10/2009, 17:51
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 14/10/2009, 10:48
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: Seruz - 14/10/2009, 16:28
Cvp: Access - vba kalıp takip prog geliştirme yardımı - Yazar: s.balci - 15/10/2009, 09:56
|
Konuyu Okuyanlar: 1 Ziyaretçi