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
 
 
 
 
اريد التعديل في كود البحث هذا بحيث عند كتابة حرف الميم مثلا يظهر الاسماء التي تبدا بحرف الميم وليس الاسماء الذي يوجد فيها حرف الميم