اقدم لكم طريقة عمل قائمة بالتقرير

[hussein arby]

السلام عليكم ورحمة الله وبركاته  اعضاء ومشرفي وزوار المنتدي الكرام

اليوم اقدم لكم شئ بسيط ممكن الكثير منا يحتاج اليه 

عمل قائمة بالتقارير الموجده لديك وفتحها من خلال زرامر واحد

الفكرة بسيطه جدا 

1- عمل جدول ووضع فيه جمع اسماء التقارير التي تريد ها حسب الحاجه 

2 -  داخل اي نموذج تريده انت  عمل قائمة تحرير وسرد واجعل طبعا المصدر جدول التقارير اجعل اسم المربع مثلا text2

3 - انشأ زر امر وفي حدث عند النقر ضع الكود التالي

On Error Resume Next

If IsNull(text2) Then

MsgBox "ÇßÊÈ ÇÓã ÇáÊÞÑíÑ"

DoCmd.CancelEvent

Else

stDocName = text2

DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria

End If

ولكم مثال علي ذالك مرفق

tast.rar

[ابو الآء]

الف شكر اخى الحبيب

 

    بارك الله فيك   

     انت بالفعل تستحق الشكر     

[hussein arby]

شكرا لك اخي الفاضل ابو الاء

[ابو جودي]

فكرررررررررررة راااااااااااااااااائعه جدا جدا جدا استاذ حسين شكرا لك 

[علي المصري]

جمييييييييييييييييييل جدا استاذ حسن

[أبو عبدالله الحلوانى]

جميل جدا

جزاك الله خيرا أستاذ حسين

[عبد الفتاح كيرة]

شكرا لك أستاذ حسين

[سمير1]

جزاك الله خيرا