سؤال بخصوص القوائم المنسدلة في النموذج

أرجو أن يفي هذا بالغرض :

أرجو أن تضع الكود التالي في الحدث OnClick لزر فتح النماذج الموجود في النموذج رقم واحد

Private Sub أمر10_Click()
Select Case Me.مربع_تحرير_وسرد8.ListIndex
Case 0: DoCmd.OpenForm "Form_2", , , "Num = '" & Me.NUM & "'"
Case 1: DoCmd.OpenForm "Form_3", , , "Num = '" & Me.NUM & "'"
Case Else: MsgBox ("You must choose a form from the menu")
End Select

End Sub

يعطيك الف عااافية اخي العزيز

ولكن هناك خطاء في الكود ياليت تتاكد من الكود

أخي الكريم

ما هو الخطأ بالضبط ... الملف شغال !!!!

MSH.zip

شكراً لك اخي العزيز على تجاوبك ولكن الكود الذي وضعته لم يعمل لدي بل يظهر ان هناك خطاء في الكود

عموما اخي الكريم الف الف الف شكر لك على جهدك المبذول وسامحني

لقد وجدت الحل وانحلت مشكلتي وهو الكود التالي :

	Select Case مربع_تحرير_وسرد
	Case Is = "الجدول الفرعي رقم1"
	DoCmd.OpenForm "form1", , , "[NUM] = '" & Me![NUM] & "'"
	Case Is = "الجدول الفرعي رقم2"
	DoCmd.OpenForm "form2", , , "[NUM] = '" & Me![NUM] & "'"
Case Else: MsgBox "عذراً", "16", "يرجى الاختيار"
End Select