ممكن تعديل في كود البحث هذا

[hoodahooda]

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

اريد التعديل في كود البحث هذا بحيث عند كتابة حرف الميم مثلا يظهر الاسماء التي تبدا بحرف الميم وليس الاسماء الذي يوجد فيها حرف الميم

[منذر عساج]

جرب التعديل التالي :

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 "(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

[hoodahooda]

التعديل لايعمل وتظهر الكتابة بالأحمر

[hoodahooda]

وهذا هو المثال

___________.rar

تم تعديل مارس 12, 2007 بواسطه منذر عساج

[منذر عساج]

أعتذر عن الخطأ

وإليك التعديل

___________.rar

تم تعديل مارس 12, 2007 بواسطه منذر عساج

[hoodahooda]

ششششششششكرا جدا