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

على كل حال انا رفعت لك المكتبة من عندى https://up.top4top.net/downloadf-1256ozlno1-zip.html حملها من هنا وضيفها من خلال الزر Browse

انت ايه هو اصدار الاوفيس عندك

استخدم هذه المكتبة هي هي فقط اختلاف الرقم حسب اصدار الاوفيس Microsoft office 11.o object library

هات مثال نشوفه

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

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

ايه الحلاوة دى

ارفع القاعدة هنا احسن علشان نقدر نشوف في ايه

تغيير اشارة الناقص الى موجب

والله فعلا بسم الله والله اكبر الإجابة غير متوقعه بالمرة انا كنت حاسس ان أصلا مفيش إجابة ممكنه للسؤال الغريب ده أصلا مفيش علاقة بين بين الجدول اللى فيه الأيام بعلامات صح وبين ان التاريخ لوحده لما ينكتب يرتبط بعلامات الصح دى سؤال غريب وكنت حاسس انه مستحيل والإجابة عليه من رابع المستحيلات واتفاجئت بإجابة اغرب ومستحيلة اكتر من السؤال وربنا سحر و خيال برافو يا ابوجودى ربنا يوفقك بجد انت برنس انت ساحر يا عم منا قلت لك قبل كده انت شكلك معاك عصاية سحريه هاهاهاهاهاهاهاها لا وبتقول خلاص تعبت هاهاهاهاهاهاها وربنا انا اللى تعبت من كتر منا مش مصدق ان السؤال الغريب ده ليه إجابه ممكنه