تشغيل استعلام او تقرير باختيار اكثر من كود السجل

[ابو عبد الله العراقي]

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

كيف يمكنني اختيار اكثر من ID  في استعلام او تقرير ، كما لو اردت ان اطبع اكثر من ورقة في الوورد  حسب ارقام الصفحات ؟

وكيف هي الصيغة ؟؟؟

 

sptialtest.rar

[jjafferr]

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

 

العمل سهل للتقرير :

اعمل تقرير غير مقيد بمعيار ، ولنسميه rpt ، وضع هذا الكود لفتح التقرير :

    Dim strIN As String
    
    strIN = InputBox("رجاء ادخل ارقام الدول، بينهم فاصلة")

    DoCmd.OpenReport "rpt", acViewPreview, , "[ConID] IN(" & strIN & ")"
    

 

[ابو عبد الله العراقي]

عاشت ايدك استاذ 

مضبوط الشغل 

🌹🌹🌹

sptialtest.rar

[jjafferr]

 

اذا تم الحل ، رجاء اختيار المشتركة السابقة كأفضل اجابة 🙂

[ابو عبد الله العراقي]

طبعا اخي تم الحل

وقد قمت بعمل الكود وارفقت قاعدة البيانات للاستفادة من السؤال

بس وين اختار المشتركة ؟؟؟؟

[jjafferr]

عفوا

اذا تم الحل ، رجاء اختيار المشاركة السابقة كأفضل اجابة 🙂

 

[ابو عبد الله العراقي]

1 hour ago, jjafferr said:

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

 

العمل سهل للتقرير :

اعمل تقرير غير مقيد بمعيار ، ولنسميه rpt ، وضع هذا الكود لفتح التقرير :

    Dim strIN As String
    
    strIN = InputBox("رجاء ادخل ارقام الدول، بينهم فاصلة")

    DoCmd.OpenReport "rpt", acViewPreview, , "[ConID] IN(" & strIN & ")"
    

تدلل استاذ

تستاهل والله كل خير