Private Sub find_name_Change()
Dim ct As String * 1
Dim ss As String * 1
'On Error Resume Next
ct = """"
ss = "*"
Me.find_name.Tag = Me.find_name.Text
Me.RecordSource = "SELECT * FROM NEMAS WHERE NEMAS.names LIKE " & ct & ss & (Nz(Me.find_name.Tag)) & ss & ct & ""
If Me.RecordsetClone.RecordCount = 0 Then
Me.ÊÝÕíá.Visible = False
Me.RecordSource = ""
Else
Me.ÊÝÕíá.Visible = True
End If
Me.find_name = Me.find_name.Tag
Me.find_name.SetFocus
SendKeys "{f2}"
End Sub
اريد التعديل في كود البحث هذا بحيث عند كتابة حرف الميم مثلا يظهر الاسماء التي تبدا بحرف الميم وليس الاسماء الذي يوجد فيها حرف الميم