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