غلط فى الكود

[محمد عبد القادر]

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

مش عارف ايه  الغلط فى الكود ده 

Private Sub cbotype_AfterUpdate()
Dim ctype As String
ctype = "select* from tbl_customers where ( [ type ]  = ' " & Me.cbotype & "')"
Me.customers_subform.Form.RecordSource = cbotype
Me.customers_subform.Form.Requery
End Sub

New Microsoft Access Database (2).rar

[عبدالرحمن هاشم]

تفضل أخي

Dim ctype As String
ctype = "select* from tbl_customers where ([type]='" & Me.cbotype & "')"
Me.customers_subform.Form.RecordSource = ctype
Me.customers_subform.Form.Requery

للعلم أخي.. القيمة الموجودة في مربع التحرير والسرد بها قيمة مختلفة عن الموجودة بالجدول؛ فمثلا (كبير المعلمين) مكتوبة بالجدول بدون مسافة (كبيرالمعلمين)

[محمد عبد القادر]

الأخ الفاضل جزاكم الله خيرا كثيرا فعلا كانت هى دى المشكلة