بحث في حقول السجلات

[hh88]

مع التحية والتقدير للمنتدى المتميز

 

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

 

ولكم مني الشكر والتقدير

 

مثال اظهار بيانات السجلات.rar

تم تعديل يوليو 11, 2017 بواسطه hh88

[ابوخليل]

رغم ان  موضوعك مكرر

ولكن من باب  عرض اكثر  من حل  تفضل بحث  في النموذج بواسطة الاسم

مثال اظهار بيانات السجلات2.rar

[hh88]

1 hour ago, ابوخليل said:

رغم ان  موضوعك مكرر

ولكن من باب  عرض اكثر  من حل  تفضل بحث  في النموذج بواسطة الاسم

مثال اظهار بيانات السجلات2.rar

اشكرك اخي ابو خليل

ولكن في حالة اذا اردنا استبدال نص البحث إلى ارقام

فهل يتغير الكود

 

وتقبل خالص الشكر استاذي

[ابوخليل]

نعم تتغير العلامات التي تحصر المقارنة

انظر  اسفل   : الأول يبحث في الحق النصي  والثاني يبحث بالحقل الرقمي

rs.FindFirst "[text_field] = '" & Me![textSearch] & "'"
rs.FindFirst "[number_field] = " & Me![textSearch]

 

[hh88]

2 hours ago, ابوخليل said:

نعم تتغير العلامات التي تحصر المقارنة

انظر  اسفل   : الأول يبحث في الحق النصي  والثاني يبحث بالحقل الرقمي

rs.FindFirst "[text_field] = '" & Me![textSearch] & "'"
rs.FindFirst "[number_field] = " & Me![textSearch]

 

شكرًا استاذي ابو خليل

الله يسعدك

هل يمكن ان ان يكون البحث في جزء من النص 

وان يكون البحث شامل جميع الحقول 

تقبل تحياتي 

تم تعديل يوليو 11, 2017 بواسطه hh88

[ابوخليل]

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

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

 Dim fld As String
    Dim x() As String
    Dim A As String
    Dim i As Integer
    fld = "[اليوم]"
    fld = fld & " & ' ' & " & "[التاريخ]"
    fld = fld & " & ' ' & " & "[الاسم]"
    fld = fld & " & ' ' & " & "[رقم الهوية الوطنية / الاقامة]"
    Me.RecordSource = ""
    mySQL1 = "Select * From [المراجعين]"
    mySQL = mySQL1 & " Where "
    Me.textSearch.SetFocus
    A = Me.textSearch.Text
    A = Replace(A, "/", "|")
    A = Replace(A, "\", "|")
    A = Replace(A, " ", "|")
    A = Replace(A, "*", "|")
    x = Split(A, "|")
      If UBound(x) = 0 Then
        mySQL = mySQL & fld
        mySQL = mySQL & " Like '*" & x(i) & "*'"
        Else
        For i = LBound(x) To UBound(x)
        If i = 0 Then
        mySQL = mySQL & fld
        mySQL = mySQL & " Like '*" & x(i) & "*'"
        Else
        mySQL = mySQL & " AND " & fld
        mySQL = mySQL & " Like '*" & x(i) & "*'"
        End If
           Next i
               End If
    If Len(Me.textSearch.Text & "") = 0 Then
        mySQL = mySQL1
    End If
     Me.RecordSource = mySQL
End Sub

 

بحث شامل في نموذج رئيس.rar