اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

بعد تحزيم البرنامج ب access run time 2010 اصبحت التقارير لا تعمل . 

نقوم بالضغط على الازرار لكن لا فائدة بالرغم من كونها تشتغل جيدا فبل عملية التحزيم 

مع العلم انه لا توجد اي رسالة تنبه على ذلك 

قام بنشر
3 ساعات مضت, rockjone33 said:

التنصيب على نفس الجهاز ؟! .. 

عند وضع التصميم التقرير شغال ؟!.. 

ممكن ارفاق مرفق من نموذج وتقرير .. 🙂

 

 

نعم استاذي : التنصيب على نفس الجهاز و كل التقارير في وضع التصميم شغالة لكن بعد التحزيم بالران تايم يتجاوب البرنامج عند الطباعة لكن التقارير لا تظهر مع العلم ان كل النماذج تشنغل جيدا على كل ارفقت لك مثال من الربنامج 

استاذي البرنامج كبير و ساحاول رفعه عن طريق رابط مباشر 

المشكل انه بعد التجربة الاخيرة استطيع طباعة التقارير لكنها لا تظهر على الشاشة يعني انه عندما اضغط على زر الطباعة تنفذ العملية لكن دون مشاهدة  التقرير و هذا الكود المستعمل

    DoCmd.Maximize
    stDocName = "PrintPreviewFrm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "سجل الامراض المزمنة"
' ربما المشكل في الكود التالي : 
'  stLinkCriteria
هل يمكن تغييره الى acPreview '

مع العلم انني استعمل في الطباعة مثال الاخت زهرة : و هذه صورة  نموذج الطباعة :

 

2.PNG.c89a6335c5c1fce936a40d1cd7ade46e.PNG

تظهر هذه الشاشة و تتم عملية الطباعة بطريقة جيدة لكن التقرير لا يظهر على الشاشة 

قام بنشر

وعليكم السلام اخي عمار 🙂

 

للأسف لا دراية لدي عن التحزيم ، فجوابي هنا عن الاكسس 😁

 

في 15‏/8‏/2022 at 15:19, derbali ammar said:
    stDocName = "PrintPreviewFrm"
    DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "سجل الامراض المزمنة"

 

في الكود اعلاه ، انت لا تفتح تقرير ، وانما تفتح نموذج !!

 

في 15‏/8‏/2022 at 17:41, derbali ammar said:

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

هذه هي الطريقة

image.png.dc4b37665085403a9b98e53b40a710fe.png

.

فيصبح الكود:

    Dim stDocName As String
    
    stDocName = "PrintPreviewFrm"
    DoCmd.OpenReport stDocName, acViewPreview

 

 

جعفر

  • Like 1
قام بنشر
3 ساعات مضت, jjafferr said:

وعليكم السلام اخي عمار 🙂

 

للأسف لا دراية لدي عن التحزيم ، فجوابي هنا عن الاكسس 😁

 

 

في الكود اعلاه ، انت لا تفتح تقرير ، وانما تفتح نموذج !!

 

هذه هي الطريقة

image.png.dc4b37665085403a9b98e53b40a710fe.png

.

فيصبح الكود:

    Dim stDocName As String
    
    stDocName = "PrintPreviewFrm"
    DoCmd.OpenReport stDocName, acViewPreview

 

اخ جعفر هذا المثال للاخت زهرة : صحيح في الكود يوجد نص فتح  نموذج لكن في الاصل هو يفتح تقرير على شكل كريستال ريبورت سارفق ان شاء الله مثالا لذلك 

مشكور اخي على الرد و المرور 

جعفر

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information