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

طباعة الصفحة الحالية في التقرير


yoofe

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

مشكلتي عند الضغط لأظهار التقرير يتم استعراض جميع التقاير السابقه

ارغب بأمر يظهر لي التقرير الحالي وطباعة التقرير النشط فقط 

 

هذا والامر 

On Error Resume Next
Dim stLinkCriteria As String
stLinkCriteria = "[User]=" & Me![User]
DoCmd.OpenReport "ReCard", stLinkCriteria

 

الرجاء التعديل عليه بحيث يظهر لي بالتقرير الصفحة النشطه فقط وشكراً 

رابط هذا التعليق
شارك

لو وضعت مرفق ليتم التطبيق كان افضل

عموما جرب هذا الكود

Dim stDocName As String
stLinkCriteria = "[User]=" & Me![User]
stDocName = "ReCard"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

  • Like 1
رابط هذا التعليق
شارك

20 ساعات مضت, kaser906 said:

لو وضعت مرفق ليتم التطبيق كان افضل

عموما جرب هذا الكود


Dim stDocName As String
stLinkCriteria = "[User]=" & Me![User]
stDocName = "ReCard"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

شكراً لك اخي على ردك وتجاوبك السريع 

 

لم اتمكن من اضافة الامر كما يجب 

 

مرفق لكم المثال للتعديل عليه وشكراً للجميع على هذا الموقع المميز

al.rar

تم تعديل بواسطه yoofe
رابط هذا التعليق
شارك

تفضل

الافضل ان يكون عامل الفرز حقل رقمي ما أمكن

تم تغير عامل الفرز الى رقم المشترك بدل اسمه

Dim stDocName As String
stLinkCriteria = "[number]=" & Me![number]
stDocName = "record1"
DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria

::بالتوفيق::

2018-05-01_09-27-20.gif.2d80794fadd1705c39d0581294811049.gif

almaherK906.rar

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



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

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

Important Information