سامي الضالعي قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 (معدل) السلام عليكم لدي استعلام فيه الكثير من العمليات الحسابية ، الا انه عندما افتح هذا الاستعلام ياخذ ما يقارب 30 ثانية حتى يفتح ، مع العلم بان الاستعلام المصدر يفتح بسرعة فهل يوجد دالة او حل لمعالجة هذا التاخير في فتح الاستعلام مع العلم بان الاستعلام يحتوي على اكثر من 60 الف عملية(سجل، صف) شكرا لكم تم تعديل أبريل 26, 2017 بواسطه سامي الضالعي
sandanet قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 اخي سامي ارجو ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/74957-مشكلة-بطء-عرض-التقرير/?do=findComment&comment=481182 تحياتي 2
سامي الضالعي قام بنشر أبريل 26, 2017 الكاتب قام بنشر أبريل 26, 2017 32 دقائق مضت, sandanet said: اخي سامي ارجو ان يفيدك هذا الموضوع https://www.officena.net/ib/topic/74957-مشكلة-بطء-عرض-التقرير/?do=findComment&comment=481182 تحياتي شكرا sandanet لكن الموضوع مختلف
sandanet قام بنشر أبريل 26, 2017 قام بنشر أبريل 26, 2017 عفواً اخي سامي .. انا فقط اردتك ان تنتبه الى النقطة الاولى التي ذكرها الاستاذ جعفر وهي استخدام اوامر VBA في SQL ، مما يبطئ العمليات 1
jjafferr قام بنشر أبريل 27, 2017 قام بنشر أبريل 27, 2017 14 ساعات مضت, سامي الضالعي said: 2. عندما افتح هذا الاستعلام ياخذ ما يقارب 30 ثانية حتى يفتح ، 1. مع العلم بان الاستعلام المصدر يفتح بسرعة السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر 6
سامي الضالعي قام بنشر أبريل 28, 2017 الكاتب قام بنشر أبريل 28, 2017 في ٢٧/٤/٢٠١٧ at 12:18, jjafferr said: السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر شكرا اخي جعفر ما تفضلت به من معالجة كانت جيدة عالجت المشكلة بنسبة 50% انخفض وقت الانتظار من 30 ثانية الى 15 ثانية بارك الله فيك وزادك علما ونورا
jjafferr قام بنشر أبريل 28, 2017 قام بنشر أبريل 28, 2017 هلا والله زين ، اذن نحن في الطريق الصحيح بس سرعة الاستعلام الثاني لازم تكون مقارنة مع الاستعلام الاول ، فلوسمحت تخبرنا ايش الاشياء الاخرى اللي تعملها في الاستعلام الثاني ، يعني مو الغلط كله نخليه على البرنامج ، المبرمج كذلك عليه جزء من الغلط جعفر 3
wael_rafat قام بنشر أبريل 28, 2017 قام بنشر أبريل 28, 2017 (معدل) ماشاء الله تبارك الله عليك استاذنا الغالـــي كلامك من ذهب ربنا يزيدك من فضله نفس المشكلة تقريبا عندي منذ فترة ولكن تحدث عند طباعة التقرير لعدد 3 نسخ حيث يوجد فرق وقت طويل ما بين كل نسخة والاخرى . وكنت فاكر ان المشكلة بكود الطباعة حيث كان DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] وقمت بتغيير الكود الي Dim I As Integer For I = 1 To 3 DoCmd.OpenReport "Rreceipt", acViewNormal, , "[orderno] = " & Me![orderno] Next I ولكن نفس المشكلة مازالت مستمرة علما ان هذه المشكلة تحدث فقط عند زيادة السجلات ..... حيث بلغت حوالي 34000 سجل 34 الف وعند تفريغ السجلات تذهب هذه المشكلة عموما .... جاري تطبيق الخطوات التي ذكرتها ، وابلاغك بالنتيجة ان شاء الله لكن مبدئيا استاذنا هل يوجد فرق بين الكودين المذكورين اعلاه لامر الطباعة لاكثر من نسخة ؟؟؟؟ اقصد فرق فى الاداء والاستجابه ؟؟؟؟ كل الحب والتقدير استاذنا الغالــــــــــــــــي ،،، تم تعديل أبريل 29, 2017 بواسطه wael_rafat
jjafferr قام بنشر أبريل 29, 2017 قام بنشر أبريل 29, 2017 هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر 4
abosherif1 قام بنشر أبريل 29, 2017 قام بنشر أبريل 29, 2017 بارك الله فيك أستاذنا و زادك علما وفضلا وكل من قام و الذين مازالو قائمين على هذا الصرح.
wael_rafat قام بنشر أبريل 29, 2017 قام بنشر أبريل 29, 2017 منذ ساعه, jjafferr said: حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اقسم بالله اتمنى ذلك استاذنا الغالي يكفيني شرف رؤية قامات عالية مثلكم . حدد ميعاد وانا حاضر وعموما انا مو بعيد عنكم بارك الله فيك وجزاك الله عنا كل خير حبيبنا وزادك الله من فضله ونعمه جاري تحديث الكود وابلاغك بالنتيجة كل الحب والتقدير والاحترام
wael_rafat قام بنشر أبريل 30, 2017 قام بنشر أبريل 30, 2017 السلام عليكم استاذنا الساحر @جعفر تم التجربة بنجاح والحمد لله تسلم ايدك حبيبنــا Dim stLinkCriteria As String stLinkCriteria = "[orderno] =" & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.close acReport, "Rreceipt", acSaveNo كل التقدير والاحترام ،،،
jjafferr قام بنشر أبريل 30, 2017 قام بنشر أبريل 30, 2017 منذ ساعه, ابوخليل said: أشم رائحة عشاء يصير عندنا .. قولوا تم .. الله يسلمك ويعافيك ان شاء الله أخوي ابوخليل ، وهاي يحتاج لها سؤال ، انت تأمر ونحن نقول تم ان شاء الله 22 ساعات مضت, wael_rafat said: وعموما انا مو بعيد عنكم هاي ما عرفت معادلتها 2 ساعات مضت, wael_rafat said: السلام عليكم استاذنا الساحر @جعفر تم التجربة بنجاح والحمد لله تسلم ايدك حبيبنــا Dim stLinkCriteria As String stLinkCriteria = "[orderno] =" & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.close acReport, "Rreceipt", acSaveNo كل التقدير والاحترام ،،، وحياك الله جعفر 1
صالح حمادي قام بنشر أبريل 30, 2017 قام بنشر أبريل 30, 2017 23 ساعات مضت, jjafferr said: حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل منذ ساعه, ابوخليل said: أشم رائحة عشاء يصير عندنا .. قولوا تم .. ما راح أكلفكم كثير راح أجيب عشايا و أتعشى معاكم 1
سامي الضالعي قام بنشر أبريل 30, 2017 الكاتب قام بنشر أبريل 30, 2017 في ٢٨/٤/٢٠١٧ at 22:09, jjafferr said: هلا والله زين ، اذن نحن في الطريق الصحيح بس سرعة الاستعلام الثاني لازم تكون مقارنة مع الاستعلام الاول ، فلوسمحت تخبرنا ايش الاشياء الاخرى اللي تعملها في الاستعلام الثاني ، يعني مو الغلط كله نخليه على البرنامج ، المبرمج كذلك عليه جزء من الغلط جعفر هلا اخوي جعفر بالنسبة للعمليات التي تتم في الاستعلام الثاني هي عبارة عن تجميع لحقول الاستعلام الاول ، بالاضافة الى وجود بعض العمليات الحسابية والشرطية داخل الاستعلام الثاني
jjafferr قام بنشر أبريل 30, 2017 قام بنشر أبريل 30, 2017 12 دقائق مضت, سامي الضالعي said: هلا اخوي جعفر بالنسبة للعمليات التي تتم في الاستعلام الثاني هي عبارة عن تجميع لحقول الاستعلام الاول ، بالاضافة الى وجود بعض العمليات الحسابية والشرطية داخل الاستعلام الثاني اذن التأخير طبيعي المتبقي جعفر 2
wael_rafat قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 (معدل) في Sunday, 30,04, 2017 at 08:26, wael_rafat said: السلام عليكم استاذنا الساحر @جعفر تم التجربة بنجاح والحمد لله تسلم ايدك حبيبنــا Dim stLinkCriteria As String stLinkCriteria = "[orderno] =" & Me![orderno] DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.close acReport, "Rreceipt", acSaveNo السلام عليكم ورحمة الله وبركاته استاذنا الفاضل @jjafferr سامحني الكود شغال زى الفل على طابعة الA4 ، ولكن للاسف بعد التجربة على طابعة الفواتير للاسف لم يعمل ويعطيني نسخة واحدة فقط بمعني DoCmd.PrintOut acPrintAll, , , , 3 يعطي نسخة واحدة فقط والله حاولت كتير استاذنا الكريم قبل هذه المشاركة وايضا باعدادات الطابعة كثيرا دون جدوى وسوف يتضح معك الامر لو قمت بالتجربة على طابعة الاوفيس Send To OneNote 2013 عموما استاذي لدي فكرة او حيلة .. لو حاولنا ان نقوم بتكرار الكود DoCmd.PrintOut acPrintAll, , , , 3 سوف تنجح الفكرة .... ولكني فشلت فى الوصول لهذه الحيلة كل شكري واحترامي استاذنا الساحر تم تعديل مايو 16, 2017 بواسطه wael_rafat
jjafferr قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 وعليكم السلام جرب هذا: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر
wael_rafat قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 بارك الله فيك على سرعة التفاعل والمشاركة للاسف استاذنا .... نفس المشكلة يطبع نسخة واحدة فقط
wael_rafat قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 (معدل) نعم لاحظت ذلك تم تعديل مايو 16, 2017 بواسطه wael_rafat
co2002co قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 Dim I As Byte CopyN = 3 If IsNumeric(CopyN) Then For I = 0 To CopyN - 1 DoCmd.OpenReport "rpt_name" Next I End If
jjafferr قام بنشر مايو 16, 2017 قام بنشر مايو 16, 2017 طيب جرب هذه الطريقة: DoCmd.OpenReport "Rreceipt", acViewPreview, ,stLinkCriteria DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo 6 دقائق مضت, 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 وعليكم السلام اخي بدر نعم نعرف هذه الطريقة ، ولكن التقرير بطيء ، لذلك فنحن نحاول فتح التقرير مرة واحدة ، والطباعة عدة مرات جعفر 1
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.