تشغيــل الاستعلام 1 عند وجود نتائج وإلا تجاهله وتشغيل استعلام 2

[nail]

عندي إستعلامين :- بفرض اسماؤها ( استعلام1 ، استعلام2)

في احد النماذج وضعت زر (command) أُريـــــــــــد كــــــــود

يشغل استعلام 1 >>>> فقققققققققققط عندما يكون به نتائــــــــــــــــج .

وإن لم يكون به نتائج يشغل الاستعلام 2

انتهى

آمل مساعدتي ووفقكم الله

[rudwan]

ضع الكود التالي

    Dim stDocName As String
If IsNull(DCount("txt1", "Query1")) Then

    stDocName = "Query1"
    Else
     stDocName = "Query2"
   
     End If
    DoCmd.OpenQuery stDocName, acNormal, acEdit

[nail]

تسلم يالغالي وفعلاً هذا هو الكود المطلوب اسال الله لك التوفيق في الدراين .

اخوك المحب لك nail