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

[co2002co]

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

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

 

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

 

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

 

 

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

[jjafferr]

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

جرب هذا الكود ، عملت فارق 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
    

 

 

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

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

 

جعفر

[wael_rafat]

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

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

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

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

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

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

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

؟؟؟؟؟

[jjafferr]

الحمدلله

 

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

 

جعفر

[wael_rafat]

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

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

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

 

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

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

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

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

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

[أمير2008]

للمتابعة....

والله يا استاذ جعفر  هذا شيئ رائع

ربنا يجزيك كل خير

[jjafferr]

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                          

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

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

 

جعفر

[wael_rafat]

منذ ساعه, jjafferr said:

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

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

ههههههه

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

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