اختيار فتح استعلام عن طريق قائمة منسدلة

[زهور2014]

هل ممكن اختيار فتح استعلام ما عن طريق وضع اسماء الاستعلامات فى قائمة منسدلة وعن طرقها مع زر امر يتم الفتح

[Elsayed Bn Gemy]

هذا هو الكود فى حدث بعد التحديث للقائمة المنسدلة

If [r] = "name_1" Then
DoCmd.OpenQuery "m"
 
ElseIf [r] = "name_2" Then
DoCmd.OpenQuery "m"
 
ElseIf [r] = "name_3" Then
DoCmd.OpenQuery "m"

End If

حيث  name_1) (name_2) (name_3)    هى اسماء القيم فى القائمة المنسدلة ولازم تكون مظبوطه

حيث    ( r )  هو اسم القائمة المنسدلة

حث   (m)   هو اسم الاستعلام

[jjafferr]

هل ممكن اختيار فتح استعلام ما عن طريق وضع اسماء الاستعلامات فى قائمة منسدلة وعن طرقها مع زر امر يتم الفتح

 

 

نعم ، ومثل ما قال أخي مارد ،

ولكن اذا كان اسم الاستعلام صحيح ، فيمكن ان يكون الكود مجرد سطر واحد:

فاذا كان اسم القائمة lst_qry ، فالكود يكون:

docmd.openquery lst_qry

جعفر