طلب تعديل كود البحث

أخوتي الكرام تحية طيبة

وبعد هذا كود بحث

Option Compare Database

Public Sub AddToWhere(FieldValue As Variant, FieldName As String, MyCriteria As String, ArgCount As Integer)

' create criteria for WHERE clause.

If FieldValue <> "" Then

If ArgCount > 0 Then

MyCriteria = MyCriteria & "and"

End If

MyCriteria = (MyCriteria & FieldName & " like " & Chr(39) & FieldValue & Chr(42) & Chr(39))

ArgCount = ArgCount + 1

End If

End Sub

Public Function search()

On Error Resume Next

Dim MySQL As String

Dim MyCriteria As String, MyRecordSource As String

Dim ArgCount As Integer

ArgCount = 0

MySQL = "select * from units WHERE "

MyCriteria = ""

AddToWhere Forms![search]![f1], "[units]![p1] ", MyCriteria, ArgCount

AddToWhere Forms![search]![f2], "[units]![p8] ", MyCriteria, ArgCount

AddToWhere Forms![search]![f3], "[units]![p9] ", MyCriteria, ArgCount

MyRecordSource = MySQL & MyCriteria

Forms![search]![form1].Form.RecordSource = MyRecordSource

End Function

واممطاوب هو أنني أريد التعديل عليه ليصبح عند الكتابة في النموذج في حقل f3 يبحث في الجدول units في الحقل p3 و p4 و p5 و p6

الكود السابق فقط الحقل f3 في النموذج في الحقل p1 في الجدول

لكم تحياتي