أخواني القائمين على المنتدى مرفق قاعدة بيانات بها جدول sheet  ونموذج اصلي اسمه tsform  ونموذج فرعي fform تم عمل كود حدث بعد التحديث للكمبو بوكس النوع sex  Private Sub cbosex_AfterUpdate() Dim sextype As String sextype = "select * from sheet where ([sex] = ," & Me.cbosex & ",)" Me.fform.Form.RecordSource = sextype Me.fform.Form.Requery End Sub فما هو الخطأ في هذا الكود حيث أن الكمبو بوكس يظهر خطأ في هذا الكود  المطلوب تعديل هذا الكود لعمل تصفية بواسطة ا