ما هو حل هذه المشكلة؟؟؟

السلام عليكم ورحمة الله وبركاته

أريد أن أحصل على استعلام يظهر في نموذج وذلك اعتماداً على حقلين في النموذج نفسه

كما توضح الصورة في الاسفل.

حاولت استخدام الكود vba ولكني لم افلح في ذلك، حيث أن أكسس يظهر خطأ أن الماكرو المكتوب في الكود غير موجود بالرغم من أنني كتبت موديول فقط.

الكود الذي كتبته هو:

Private Sub معهد_Click()


a$ = معهد.Recordset("رمز المعهد")
دبلوم.RowSource = "SELECT Daploms![رمز الدبلوم], Daploms![اسم الدبلوم] FROM Daploms where Daploms.[رمز الدبلوم] =" + a$
دبلوم.Requery


End Sub

رابط للصورة