اخوي طارق
في حدث on key press اكتب الكود التالي مع تغير "firstName" في الكود الى اسم التيكست بوكس الموجود عندك
اما الكلمه " First " هذي غيرها باسم الحقل الموجود في الجدول
Dim strMatchText As String
Dim strFoundText As String
Select Case KeyAscii
Case Is < 32: Exit Sub
Case Is > 126: Exit Sub
End Select
strMatchText = Mid(Me.Firstname.Text, 1, Me.Firstname.SelStart) & Chr$(KeyAscii)
KeyAscii = 0
If Len(strMatchText) = 0 Then Exit Sub
With Me.RecordsetClone
.FindFirst _
"First Like " & _
Chr(34) & _
Replace(strMatchText, """", """""") & _
"*" & Chr(34)
If .NoMatch Then
With Me.Firstname.Text = strMatchText & Right(.Text, Len(.Text) - (.SelStart + .SelLength))
.SelStart = Len(strMatchText)
End With
Else
strFoundText = !First
With Me.Firstname
.Text = strFoundText
.SelStart = Len(strMatchText)
.SelLength = Len(strFoundText)
End With
End If
End With
End Sub