Aslında benim yapmak istediğim filtreleme işleminde gerekli. kod işimi görüyor çünkü arama yaptığım yerde boşluk yok
Ama boşluk yaptığımda kabul etmiyor. biraz geliştirmek gerekli sanırım. Kod aşağıda
Saygılar
1-------------------------------
Private Sub Metin11_Change()
On Error GoTo 10
Requery
Me.Metin11.SetFocus
DoCmd.ApplyFilter , "[servısno] Like'*" & Me.Metin11 & "*'"
Me.Metin11.SelStart = Len(Me.Metin11)
10:
End Sub
2-------------------------------
Private Sub Metin11_Change()
Requery
DoCmd.ApplyFilter , "[servısno] Like'*" & Me.Metin11 & "*'"
If IsNull(Me.Metin11) Then
Me.Metin11.SetFocus
Else: Me.Metin11.SetFocus
Me.Metin11.SelStart = Len(Me.Metin11.Text)
End If
End Sub
