هل يمكن تطوير أنظمة القوائم

[ahmedsaadzeed]

المثال المرفق بة فكرة بالضغط على الزر تنسدل قائمة بها اختيارات 

السؤال هل يمكن إيجاد كود بالضغط على أحد اختيارات القائمة يفتح النوذج الاول 

وبالضغط على الاختيار الثانى يفتح النموذج الثانى وهكذا 

القوائم.accdb

[ابوخليل]

تفضل 

Private Sub cmb_Committe_Click()
If cmb_Committe = "النموذج الاول" Then
DoCmd.OpenForm "نموذج1"
ElseIf cmb_Committe = "النموذج الثانى" Then
DoCmd.OpenForm "نموذج2"
ElseIf cmb_Committe = "النموذج الثالث" Then
DoCmd.OpenForm "نموذج3"
End If
End Sub

 

القوائم2.rar

[ahmedsaadzeed]

الشكر موصول