مساعده فى عمل فلتر

أخي الكريم،

هذا مثال بسيط على ذلك بتغيير خاصية مصدر مربع سرد المجموعات بناء على اختيار الشركة (في حدث AfterUpdate لقائمة الشركات)، وكذلك تغيير مصدر مربع سرد الأسماء بناء على اختيار المجموعة (في حدث AfterUpdate لقائمة المجموعات)... وهذا هو كل الكود المستخدم:

Private Sub lstCompanies_AfterUpdate()
    lstGroups.RowSource = "SELECT [Group's].[#ID], [Group's].[GroupName] FROM [Group's] " & _
                          "WHERE Campany = '" & lstCompanies.Column(1) & "'"
    lstGroups.Requery
    lstNames.RowSource = ""
End Sub

Private Sub lstGroups_AfterUpdate()
    lstNames.RowSource = "SELECT [Full Names].[Name] FROM [Full Names] " & _
                         "WHERE g = '" & lstGroups.Column(1) & "'"
    lstNames.Requery
End Sub

والله أعلم.

Student.rar

ما المقصود بــ G فى هذه الجمله

"WHERE g = '" & lstGroups.Column(1) & "'"

g هو اسم حقل Group في استعلام الأسماء؛ لقد أعدت تسميته في الاستعلام لأنه ينبغي عدم استخدام كلمات محجوزة كأسماء حقول...