[ تمت الإجابة ]مشكلة في كود البحث بجزء من الاسم

اخي تفضل برنامج قريب مماطلبت وهو للمبدعة : زهرة المنتدى

نصيحة مني فصلة تفصيل اسئل نفسك ( ليش كذا ، وكيف كذا)

الله يوفقك

تحياتي ..

SearchInSubForm2006_up.rar

بارك الله بك اخي الكريم Firsr Road على المشاركه

اخي الفاضل

هذا ملفك بعد التعديل

za_find_up.rar

بسم الله الرحمن الرحيم

بارك الله فيكم اخواني

بارك الله فيكم جميعا على هذا التجاوب وجزاكم الله خير جميعا المرفق الذي قامت بتعديله الأخت زهرة جيد ولكن المشكلة فيه انه عندما اكتب الحرف يتم تضليله ولا يكتب الا حرف واحد اي انه لا يكتب الاسم كامل وإنما يكتب حرف ويبدله بالحرف الثاني وهكذا فيا ليت يتم التجريب والتعديل او بارك الله فيكي اختي زهرة لو يتم التعديل على هذا الكود الذي استخدمه في برنامجي ففيه نفس المشكلة في الكود السابق

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 case WHERE case.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}"

اخي الفاضل

الكود الذي قمت بوضعه انت في المنتدى قد تم حذفه من مثالك وتم استخدام الكود الجديد هذا

Private Sub find_name_Change()

Dim vSearchString As String
vSearchString = "*" & find_name.Text & "*"
If Not (find_name.Text = "") Then
Me.Filter = "Names  like '" & vSearchString & "'"
Me.FilterOn = True
Else: Me.FilterOn = False
End If

End Sub

تأكد بارك الله بك من اخر ملف قمت بوضعه لك وهو بعنوان za_find_up.rar فلربما انك قد فتحت مثالك القديم

بارك الله فيك اختي zahrah على هذا الجهد وجزاك الله خير .

ودمتم جميعا...

بسم الله الرحمن الرحيم

تمت الإجابة على الموضوع

إدارة الفريق العربي للبرمجة