كيف يمكن عمل فلتر لنموذج رئيسى لقيمة موجودة فى نموذج فرعى؟

الأخوة الأفاضل

السلام عليكم ورحمة الله (f)

الموضوع هو أن لدى قاعدة بيانات للموردين فيها :

1- بيانات الموردين كجدول رئيسى ويحتوى على (اسم وهاتف و فاكس و عنوان و .... )

2- منتجات الموردين كجدول فرعى ويرتبط مع الرئيسى بالمعرف للمورد

3- لكل مورد صنف أو أكثر

ويتم عرض البيانات فى نموذج رئيسى للمورد وفرعى للأصناف

والمطلوب الطريقة التى يمكن فتح النموذج بها بفلتر لصنف معين فيستعرض فقط أسماء الموردين الذين يقومون بتوريد هذه الأصناف فقط!

قمت بالبحث فى المنتدى فوجدت نفس الموضوع بدون حل

http://www.arabteam2000.com/vb/showthread....CC+%DD%D1%DA%EC

وبالبحث على النت وجدت هذا الكود ولكنه أعطى خطأ فى الجملة لم أستطع التوصل إلى حل معه والتفاصيل فى هذا الرابط http://users.bigpond.net.au/abrowne1/ser-28.html

Private Sub cboShowSup_AfterUpdate()

On Error GoTo Err_cboShowSup_AfterUpdate

' Purpose: Change the form's RecordSource to only products from this supplier.

    Dim sSQL As String

    Dim bWasFilterOn As Boolean



    ' Save the FilterOn state. (It's lost during RecordSource change.)

    bWasFilterOn = Me.FilterOn



    ' Change the RecordSource.

    If IsNull(Me.cboShowSup) Then

        If Me.RecordSource <> "tblProduct" Then

            Me.RecordSource = "tblProduct"

        End If

    Else

        sSQL = "SELECT DISTINCTROW tblProduct.* FROM tblProduct " & _

            "INNER JOIN tblProductSupplier ON " & _

            "tblProduct.ProductID = tblProductSupplier.ProductID " & _

            "WHERE tblProductSupplier.SupplierID = """ & Me.cboShowSup & """;"

        Me.RecordSource = sSQL

    End If



    ' Apply the filter again, if it was on.

    If bWasFilterOn And Not Me.FilterOn Then

        Me.FilterOn = True

    End If



Exit_cboShowSup_AfterUpdate:

    Exit Sub



Err_cboShowSup_AfterUpdate:

    MsgBox Err.Number & ": " & Err.Description, vbInformation, & _

        Me.Module.Name & ".cboShowSup_AfterUpdate"

    Resume Exit_cboShowSup_AfterUpdate

End Sub