- Katılım
- 21 Ocak 2005
- Mesajlar
- 181
aşagıdaki gibi Microsoft Forms 2.0 texboxunu kullanarak süzme yapıyorum yanlız bu süzmede sadece o sutunu süzebiliyorum benim istediğim aynı süzme işleminde mesela aynı plakanın kac kısımlı işi kac teslimat işlemini bir kerede süzmesini yapmak suan formulle plakayı süzdükden sonra diğer sutuna gectiğimde plakayı iptal edip teslimatı sadece süzüyor nasıl bir kod yazmalıyım teşekkürler
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 [TAKIP].[PLAKA],[TAKIP].[TESLIMAT],[TAKIP].[KISIM FROM [TAKIP] "
strSQL = strSQL & "WHERE (([TAKIP].[PLAKA]) Like '" & txtSearchString & "*') "
End If
Me!Listemkn.RowSource = strSQL
End Sub
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 [TAKIP].[PLAKA],[TAKIP].[TESLIMAT],[TAKIP].[KISIM FROM [TAKIP] "
strSQL = strSQL & "WHERE (([TAKIP].[PLAKA]) Like '" & txtSearchString & "*') "
End If
Me!Listemkn.RowSource = strSQL
End Sub