A7MD M7MD

والله فعلا أبو جودى عنده حق لما يطلب دايما مثال على السؤال

دايما يقول الرد على السؤال النظرى متعب ع الفاضى 

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

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

لا انا مش هفكر تانى من غير مثال

انا طلع عينى ومش عارف انت عاوز ايه

طيب بص انا عملت لك خدعة في تعديل ودمج مثالين من بتوع أبو جودى

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

progress bar.zip

4 دقائق مضت, Barna said:

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

 

Test.mdb 332 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 0 downloads

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

يا أستاذ كانورى بص انا هفهمك هو عاوز ايه

هو عنده مثلا نموذج   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

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

7 ساعات مضت, لاتبخل said:

lذا ممكن تضيف لي المكتبة في هذا الملف

Module داخل الملف المرفق

https://up.top4top.net/downloadf-1257picgb1-rar.html

ما هو مش هينفع انا اضيفها لانها لو مش عندك هتديلك رسالة مسينج

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

8 دقائق مضت, لاتبخل said:

هل يوجد فيها الكائن المطلوب ؟

 Microsoft office 16.o object library

نعم

لو انت عامله كده يبقى اعمل كود أبو جودى زى ما قلتك من شويه

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

2 ساعات مضت, jo_2010 said:

استاذي اباجودي 

بعد التحبة 

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

في حدث عند لف بكرة الماوس اكتب كود الأستاذ أبو جودي

    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 

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

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

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

الله يبارك لاهلك يا اخى والله نعم التربية

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

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

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

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

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

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

سؤال غريب وكنت حاسس انه مستحيل والإجابة عليه من رابع المستحيلات

واتفاجئت بإجابة اغرب ومستحيلة اكتر من السؤال وربنا سحر و خيال

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

لا وبتقول خلاص تعبت هاهاهاهاهاهاها وربنا انا اللى تعبت من كتر منا مش مصدق ان السؤال الغريب ده ليه إجابه ممكنه