طباعة ما يظهر في النموذج

[العوام]

السلام عليكم..

اهلييين وسهليين

اود معرفه كود طباعة ما يظهر في النموذج اثناء عمل فلتره للبيانات.. وجزاكم الله خيرا

 

تم تعديل أبريل 8, 2018 بواسطه العوام

[أبو آدم]

ارفق قاعدة للتطبيق لطفا

[العوام]

تفضل اخي ابو ادم لقد رفقت الملف.Database7.rar

4 ساعات مضت, العوام said:

السلام عليكم..

اهلييين وسهليين

اود معرفه كود طباعة ما يظهر في النموذج اثناء عمل فلتره للبيانات.. وجزاكم الله خيرا

 

Database7.rar

[أبو آدم]

أخي العزيز

قم بانشاء تقرير بالتصميم الذي تريده و اجعل الجدول مصدر السجلات للتقرير ، Rep1

قم بانشاء زر أمر في النموذج وخلف حدث عند النقر أنقل الكود التالي

If Me.FilterOn And Len(Me.Filter & "") > 0 Then
DoCmd.OpenReport "rep1", acViewPreview, WhereCondition:=Me.Filter
Else
DoCmd.OpenReport "rep1", acViewPreview
End If

 

افتح النموذج وقم بعملية الفلترة و اضغط زر الامر الخاص بالطباعة ، اذا طلبت الطباعة بدون فلترة يكون مصدر السجلات للتقرير الجدول كاملا

و انتظر منك دعوة طيبة بظهر الغيب

والله من وراء القصد

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

شكرا

Up_NA_PrintFilter.accdb

[العوام]

تشكر اخي الغالي وبارك الله فيك..

الله يعطيك الصحة والعافية

[أبو آدم]

الحمد لله الذي بفضله تقضى الحاجات

 

[رمهان]

عزيزي

انصحك بالبحث دائما وقبل طرح اي موضوع

هنا شبيه لما تريد وتقبل تحياتي

 

تم تعديل أبريل 13, 2018 بواسطه رمهان

[العوام]

في 4/8/2018 at 20:58, أبو آدم said:

أخي العزيز

قم بانشاء تقرير بالتصميم الذي تريده و اجعل الجدول مصدر السجلات للتقرير ، Rep1

قم بانشاء زر أمر في النموذج وخلف حدث عند النقر أنقل الكود التالي

If Me.FilterOn And Len(Me.Filter & "") > 0 Then
DoCmd.OpenReport "rep1", acViewPreview, WhereCondition:=Me.Filter
Else
DoCmd.OpenReport "rep1", acViewPreview
End If

 

افتح النموذج وقم بعملية الفلترة و اضغط زر الامر الخاص بالطباعة ، اذا طلبت الطباعة بدون فلترة يكون مصدر السجلات للتقرير الجدول كاملا

و انتظر منك دعوة طيبة بظهر الغيب

والله من وراء القصد

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

شكرا

Up_NA_PrintFilter.accdb

السلام عليكم .. كيفك استاذي الفاضل

سبق وحطيت موضوع بخصوص الفلتره في النموذج والتقرير عن طريق الحقل النصي بس هلا بدي يكون بين تاريخين اذا بتتفضلوا علينا وجزاكم الله خير والله يوسع عليكم ويرزقكم من فضله.

 

[nacer_alger]

بارك الله فيك اخي ابو ادم