- Katılım
- 21 Ocak 2005
- Mesajlar
- 181
MERHABA
Microsoft Forms 2.0 TEXBOXU YARDIMIYLA LİSTEYE SÜZDÜRME YAPIYORDUM DİĞER CALISMA SAYFALARIMDA BUNU YAPIYORDUM AMA SUANKİ SAYFAMDA SORGU SEKLİNDE PARAMETRE GİR UYARISI VERİYOR
kodlardamı hatam var yoksa listemde yardımcı olurmusunuz
Private Sub TextBox1_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String
txtSearchString = Me![TextBox1]
If Not IsNull(Me![TextBox1]) Then
strSQL = "SELECT [ARACBILGILERI].[TESLIMAT],[ARACBILGILERI].[KISIM] FROM [ARACBILGILERI] "
strSQL = strSQL & "WHERE (([TAKIP].[PLAKA]) Like '" & txtSearchString & "*') "
End If
Me!Liste89.RowSource = strSQL
End Sub
Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT [ARACBILGILERI].[TESLIMAT],[ARACBILGILERI].[KISIM] FROM [ARACBILGILERI] "
Me!Liste89.RowSource = strSQL
Me.TextBox1 = ""
End Sub
Microsoft Forms 2.0 TEXBOXU YARDIMIYLA LİSTEYE SÜZDÜRME YAPIYORDUM DİĞER CALISMA SAYFALARIMDA BUNU YAPIYORDUM AMA SUANKİ SAYFAMDA SORGU SEKLİNDE PARAMETRE GİR UYARISI VERİYOR
kodlardamı hatam var yoksa listemde yardımcı olurmusunuz
Private Sub TextBox1_Updated(Code As Integer)
Dim txtSearchString As Variant
Dim strSQL As String
txtSearchString = Me![TextBox1]
If Not IsNull(Me![TextBox1]) Then
strSQL = "SELECT [ARACBILGILERI].[TESLIMAT],[ARACBILGILERI].[KISIM] FROM [ARACBILGILERI] "
strSQL = strSQL & "WHERE (([TAKIP].[PLAKA]) Like '" & txtSearchString & "*') "
End If
Me!Liste89.RowSource = strSQL
End Sub
Private Sub Form_Load()
Dim strSQL As String
strSQL = "SELECT [ARACBILGILERI].[TESLIMAT],[ARACBILGILERI].[KISIM] FROM [ARACBILGILERI] "
Me!Liste89.RowSource = strSQL
Me.TextBox1 = ""
End Sub