A7MD M7MD

والله فعلا أبو جودى عنده حق لما يطلب دايما مثال على السؤال دايما يقول الرد على السؤال النظرى متعب ع الفاضى يا اخى هات جزء البداية بس من قاعدتك اللى عليه سؤالك شوف جالك كام رد وكل واحد عمال يضرب اخماس في اسداس والله انت متعب

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

طيب بص انا عملت لك خدعة في تعديل ودمج مثالين من بتوع أبو جودى جرب وبص لو معجبش متتعبناش يا عم انت ارفع قاعدتك على موقع خارجى وهات الرابط احنا تعبنا progress bar.zip

منا قلت له الحل ده في المشاركة دى والشرح تفصيلا كمان من موضوع أبو جودى بس هو مش عاجبه ده

يا أستاذ كانورى بص انا هفهمك هو عاوز ايه هو عنده مثلا نموذج A النموذج ده هو عاوز يفتح عليه البرنامج وبعد 13 ثانية تقريبا يقفل ويروح ل نموذج B طيب ايه المشكله بقه المشكله رقم 1 ان الرنامج فى الـ 13 ثانيه دول بيخضر استعلامات المشكلة رقم 2 خو عاوز شريط التقدم يبدأ شغل مع الثانية الاولى وينتهى لحد 100% عند الثانية ال 13 اللى خى نهاية الانتهاء من تحصير الاستعلامات المعضله زى ما فهمت قبل كده من ابو جودى ان الاكسس ما يقدرش يعمل حاجتين فى نفس اللحظه يعنى لازم يخلص الاستعلامات وبعدين كود التحميل

اهو المرفق https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=158567 والشرح هنا

طيب مبدئيا اعتقد طالما في استعلامات مش ينفع معاه الشريط وتقريبا انا شوفت لابو جودى رد على الجتى ديت قبل كده بس في حل تانى أبو جودى عمله استنى اشوفهولك

طيب ممكن سؤال علشان اقدر افهم حاجه هو ال 13 ثانيه دول ليه يعنى ليه النموذج بيتأخر لان مثلا بيحضر استعلام واللا انت اللى حابب كده بس من غير اى شئ

يعنى انت كل الحكاية عاوز 13 ثانيه

جرب كده https://up.top4top.net/downloadf-1257dh36b1-zip.html

طيب هات برنامجك

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

نعم

لو انت عامله كده يبقى اعمل كود أبو جودى زى ما قلتك من شويه Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) If IsNull(Me![txtAnalysisCode]) Or Me![txtAnalysisCode] = Null Or Me![txtAnalysisCode] = Empty Or Me![txtAnalysisCode] = "" Then Me![txtAnalysisCode].SetFocus MsgBox "من فضلك يجب وضع كود التحليل اولا" Exit Sub Else DoCmd.GoToRecord , , acNewR End if End Sub

في حدث عند لف بكرة الماوس اكتب كود الأستاذ أبو جودي If IsNull(Me![txtAnalysisCode]) Or Me![txtAnalysisCode] = Null Or Me![txtAnalysisCode] = Empty Or Me![txtAnalysisCode] = "" Then Me![txtAnalysisCode].SetFocus MsgBox "من فضلك يجب وضع كود التحليل اولا" Exit Sub Else DoCmd.GoToRecord , , acNewRec  End If وبعدين بصراحة انا اول مره اعرف ان في حدث اسمه كده عند لف بكرة الماوس ممكن حضرتك توريني الكود ده لو تكرمت اه فهمت انت عامله كده Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) DoCmd.GoToRecord , , acNewRec End Sub