مشاركة مع اخوتي واحبتي
افضل عملية بحث احتفظ بها (طريقة استاذنا جعفر )
Dim mySQL As String
Dim mySQL1 As String
Private Sub Form_Load()
mySQL = "Select * From tbl_test"
Me.ID = ""
If Len(Me.ID & "") = 0 Then
Me.sfmList.Form.RecordSource = mySQL
End If
End Sub
Private Sub ID_Change()
Dim fld As String
Dim x() As String
Dim A As String
Dim i
fld = "ID"
fld = fld & " & ' ' & " & "fname"
fld = fld & " & ' ' & " & "mname"
fld = fld & " & ' ' & " & "lname"
mySQL1 = "Select * From tbl_test"
mySQL = mySQL1 & " Where "
Me.ID.SetFocus
A = Me.ID.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.ID.Text & "") = 0 Then
mySQL = mySQL1
End If
Me.sfmList.Form.RecordSource = mySQL
End Sub
افضل عملية بحث.rar