AccessTr.neT

Sayın C*E*L*O*Y*C*E;
Ne Diyelim Elinize Sağlık...
Gayet Güzel...

Teşekkürler celoyce

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