[ تمت الإجابة ]Combo Box

المشكلة كانت في السطر الأخير فقط في الحدث التالي:

Sub setfilter()
	Dim lsql As String
	lsql = "select * from dep"
	lsql = lsql & " where depId = '" & cboselected & " '"
	dep_SUP.Form.RecordSource = lsql
End Sub

لكن التصميم غير مفهوم...

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

بارك الله فيك اخي أحمد مبارك الحيقي وجزاك خير الجزاء

اخي sailor_25

اليك التعديل .. وايضاً لاحظ استدعاء الاجراء

بالتوفيق للجميع

dleel.rar

شكرا جزيلا لخبراء المنتدى

الاستاذ / أحمد مبارك الحيقي والاستاذ / يوسف أحمد على التعديل في الكود ،،،