كيف استطيع البحث في عدة حقول بأمر واحد

تم التعديل انظر الي الملف المرفق

db1.rar

mostafaattia كتب:

تم التعديل انظر الي الملف المرفق

----------------------------

بارك الله فيك اخري الكريم على سرعة تجاوبك

اما المطلوب في السؤال هو

ان تكون نتيجة البحث شاملة جميع الحقول الخمسة وليس حقل واحد

وكذلك البحث يكون بواسطة الاسم أو جزء منه وليس بواسطة الحرف الأول للاسم .

وتقبل تحياتي

تفضل أخى

هذا تعديل لكود الاخ مصطفى ليحقق ما تريد

Private Sub shr_Change()

  'On Error Resume Next
  Me.shr.Tag = Me.shr.Text
  Me.RecordSource = "SELECT * FROM SP1 WHERE SP1.Name1 LIKE '*" & (Nz(Me.shr.Tag)) & "*' or " & _
   "SP1.Name2 LIKE '*" & (Nz(Me.shr.Tag)) & "*' or " & _
   "SP1.Name3 LIKE '*" & (Nz(Me.shr.Tag)) & "*' or " & _
   "SP1.Name4 LIKE '*" & (Nz(Me.shr.Tag)) & "*' or " & _
   "SP1.Name5 LIKE '*" & (Nz(Me.shr.Tag)) & "*'"

  If Me.RecordsetClone.RecordCount = 0 Then
    Me.تفصيل.Visible = False
    Me.RecordSource = ""
  Else
    Me.تفصيل.Visible = True
  End If

  Me.shr = Me.shr.Tag
  Me.shr.SetFocus
  SendKeys "{f2}"
End Sub