اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

دالة لتسريع العمليات في الاستعلام


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

2 دقائق مضت, jjafferr said:
10 دقائق مضت, co2002co said:

 

وعليكم السلام اخي بدر

 

نعم نعرف هذه الطريقة ، ولكن التقرير بطيء ، لذلك فنحن نحاول فتح التقرير مرة واحدة ، والطباعة عدة مرات:smile:

 

 

ومنكم نستفيد سيد

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

الظاهر المشكلة من الطابعة ، لذلك خلينا نجرب:

جرب هذا الكود ، عملت فارق 5 ثوان بين الطبعة الاولى والثانية ، ثم 4 ثوان بين الطبعة الثانية والثالثة ، فقط للتجربة:

DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria
DoCmd.SelectObject acReport, "Rreceipt"
DoCmd.PrintOut , , , , 1
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
      
DoCmd.PrintOut , , , , 1
    PauseTime = 4    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
                          
DoCmd.PrintOut , , , , 1
DoCmd.Close acReport, "Rreceipt", acSaveNo
    

 

 

واذا ما مشى الحال ، فيمكن تشوف هذه المشاركة،

نفس المشكلة مع طابعة الباركود ، وهي شبيهة بطابعة الفواتير ، والمشكلة كانت في اعدادات الطابعة:

 

جعفر

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

22 دقائق مضت, co2002co said:

   Dim I As Byte
    CopyN = 3
    If IsNumeric(CopyN) Then
        For I = 0 To CopyN - 1
            DoCmd.OpenReport "rpt_name"
        Next I
    End If

تسلم اخوي بدر باارك الله فيك   ... ولكن  نفس  درجة البطي الحالي

مع الشكر

15 دقائق مضت, jjafferr said:

DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo

هو دا يا ساااااحر     تسلم ايدااااااااك

ربي يجازيك عنا كل خير  :fff:    ويزيدك من نعمه وفضلة

كل الشكر  والتقدير  استاذنا الغالي

استفسار صغير حبيبنا ....

36 دقائق مضت, jjafferr said:

هل لاحظت اني عملة التقرير غير مخفي

؟؟؟؟؟

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

9 دقائق مضت, jjafferr said:

DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 PauseTime = 4 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo

والله ما عارف اقولك ايه ؟؟؟؟؟  حقيقي مبدع ماشاء الله تبارك الله  ....  ربنا يحفظك ويبارك فى عمرك واهلك

بجد استاذنا كانت مشكلة كبيرة جداااااااااا  وخصوصا مع تزايد حجم البيانات

:fff::fff::fff:

 

5 دقائق مضت, jjafferr said:

سابقا كنا نخلي التقرير مخفي ، ولكني للتجربة عملت التقرير ظاهر:smile:

تماام  طيب حاليا انا وضعت  acHidden   ولكن التقرير يظهر ايضا 

هي مو مشكلة حبيبنا الغالي  ولكن للتوضيح فقط

تقديري واحترامي

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

14 ساعات مضت, wael_rafat said:

تماام  طيب حاليا انا وضعت  acHidden   ولكن التقرير يظهر ايضا 

هي مو مشكلة حبيبنا الغالي  ولكن للتوضيح فقط

 

كيف مو مشكلة!!

اذا استعملت:

DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden
DoCmd.SelectObject acReport, "Rreceipt"
DoCmd.PrintOut , , , , 1
DoCmd.PrintOut , , , , 1
DoCmd.PrintOut , , , , 1
DoCmd.Close acReport, "Rreceipt", acSaveNo
                          
                          او
                          
DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden
DoCmd.SelectObject acReport, "Rreceipt"
DoCmd.PrintOut , , , , 1
    PauseTime = 5    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
      
DoCmd.PrintOut , , , , 1
    PauseTime = 4    ' Set duration.
    Start = Timer    ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
                          
DoCmd.PrintOut , , , , 1
DoCmd.Close acReport, "Rreceipt", acSaveNo                          

والاكسس اظهر لك التقرير ،

معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي:wink2:

 

جعفر

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

منذ ساعه, jjafferr said:


 

والاكسس اظهر لك التقرير ،

معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي

ههههههه

معلش استاذنا سماح هالمرة ... بصراحة يشكر كتر خيره ومو مشكلة الاظهار ....في سبيل الوصول لهدفنا 

تسلم ايدك استاذنا الجميل :signthankspin:

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

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