كيف اجعل مربع البحث يبحث باكثر من جدول في الفورم؟؟

[أبو ليمونه]

السلام عليكم

 

اخواني ... لدي نموذج وفيه مربع بحث، حاليا اقوم بادخال رقم العميل ومن ثم يجلب معلوماته ...

 

المشكلة ان لكل عميل اكثر من طلب (ارقام الطلبات مفتاح اساسي لا تتكرر)

 

اريد مربع البحث ان يجلب معلومات العميل من خلال ادخال رقم العميل أو رقم طلب من طلباته.

 

كيف اطور كود vb لينظر الى ارقام طلبات العملاء مع ارقام العملاء ؟؟؟

 

مرفق الملف

 

 

Prob1-6.zip

[أبو ليمونه]

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

بس ماعرفت اغيره ليتناسب مع ملفي

Sub FindOrgName()

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    
    'Get the database and Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("tblCustomers")

    'Search for the first matching record   
    rst.FindFirst "[OrgName] LIKE '*parts*'"
    
    'Check the result
    If rst.NoMatch Then
        MsgBox "Record not found."
        GotTo Cleanup
    Else
        Do While Not rst.NoMatch
            MsgBox "Customer name: " & rst!CustName
            rst.FindNext "[OrgName] LIKE '*parts*'"
        Loop

        'Search for the next matching record
        rst.FindNext "[OrgName] LIKE '*parts*'"
    End If
   
    Cleanup:
        rst.Close
        Set rst = Nothing
        Set dbs = Nothing

End Sub

هل من مساعدة؟؟