ممنوع الذهاب الى سجل جديد

[jo_2010]

السادة الخبراء

لكم التحية 

اتمنى ان تكونوا قد امضيتم عيد سعيد اعادة الله عليكم وعلى كل اعضاء المنتدى بالخير والسعادة

اريد اجبار المستخدم بعدم الانتقال الى سجل جديد الا بعد كتابة كود التحليل حتى نعرف اية التحاليل المطلوبة للمريض

Lab 2019.rar

[مسفر]

جرب والله اعلم 

Lab_2019.accdb

[jo_2010]

اخى الفاضل مسفر 

بمجرد الضغط على ok يمكنك الانتقال الى سجل جديد

ارجو ايجاد حل اخر

[kanory]

منذ ساعه, jo_2010 said:

اخى الفاضل مسفر 

بمجرد الضغط على ok يمكنك الانتقال الى سجل جديد

ارجو ايجاد حل اخر

أخي الكريم .... في البرنامج عند ترك خانة التحاليل فاغة .... تسجل تحاليل من تلقاء نفسها فهل هذا طبيعي ... أم هي تحاليل تجرى للجميع

[مسفر]

 

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

اخى الفاضل مسفر 

بمجرد الضغط على ok يمكنك الانتقال الى سجل جديد

ارجو ايجاد حل اخر

أخي العزيز :

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

فإذا أضفت سجل جديد لابد أن اختار المريض أولا حتى أبني عليه ما بعده 

هكذا نشاهد 

يقوم الاستقبال بالبحث عن طريق الاسم او رقم الجوال 

ثم السؤال عن الطبيب المراد  ثم ارسال ملفك عن طريق البرنامج للطبيب 

تذهب للطبيب تجد قد سجل اسمك لديه مع بقية المرضى فإذا جاء دورك طلبك 

ثم يسجل في سجلك الجديد الضغط  ودرجة الحرارة والتاريخ واليوم 

ثم بعد ذلك يبدأ الكشف عليك وبعدها يطلب تحاليل  لك 

وأيضا ملفك مربوط بقسم التحاليل بعد الانتهاء يطلع عليها الطبيب بالإضافة إلى ورقة مكتوب فيها التحاليل تحفظ في ملفك 

وكذلك الأشعة عن طريق البرنامج 

آسف لإطالة ولكن أخبرك بإجراءات المستوصفات لدينا 

وأكرر أهم ما في البرنامج سجل المرضى يبنى عليه كل شي وكل شي مرتبط به 

 

والله اعلم واجل وأسال الله لي ولكم التوفيق 

 

تم تعديل يونيو 10, 2019 بواسطه مسفر

[jo_2010]

استاذي الفاضل kanory

يتم كتابة الاسم والضغط علي enter ننتقل الي كود التحاليل ولك شخص تحليل منفصل ومختلف عن الاخر والتحاليل لاتكتب تلقائي لابد من اختيار رقم من الموجودة امامك من ١  الي ١٢ وعند تحريك بكرة الماوس ننتقل الي سجل جديد المشكلة اني بعض الاحيان اكتب اسم المريض وقبل كتابة كود التحليل احرك بكرة الماوس انتقل الي سجل جديد دون كتابة تحاليل للسجل السابق وانسي واقوم بادخال مريض جديد

تم تعديل يونيو 10, 2019 بواسطه jo_2010

[ابو جودي]

شوف ياسيدى انا النت عندى بعافيه وغير قادر على عمل دونلود الان

اجعل الكودخلف زر الامر جديد كالاتى

    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

 

على اعتبار ان حقل الكود اسمه txtAnalysisCode

[مسفر]

ممكن تشرح أين يتم كتابة الاسم بعد الضغط على إضافة سجل جديد ؟

( يتم كتابة الاسم والضغط علي enter ننتقل الي كود التحاليل ) 

عشان نجرب حنا شغالين على الزر فقط 

[ابو جودي]

 ياريت توضح بصوره اسهل

[مسفر]

حتى لو فرضنا أن المريض لا يحتاج إلى تحليل فما الفائدة من انتقال إلى كود التحليل ؟

[jo_2010]

اخي الفاضل مسفر 

لابد من اختيار تحليل لان دة برنامج معمل طالما كتبت اسم مريض لابد من عمل تحليل ولكل تحليل كود كما موضح في القائمة امامك من ١ الي ١٢

[jo_2010]

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

بعد التحبة 

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

[A7MD M7MD]

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

 

[A7MD M7MD]

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

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

 

[jo_2010]

الكود لا يعمل بالصورة المطلوبة

 

[jo_2010]

استاذتى الاجلاء

بعد التحية

سوف اطرح سؤالى بصورة اخرى لعلى اجد عندكم حل لة

اريد عند لف بكرة الماوس يذهب الى سجل جديد تمام

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

[ابوخليل]

السلام عليكم

حبيبنا .. غير الحدث في الحقل TTT  من بعد التحديث الى قبل التحديث  وغير مايلزم  خاصة يجب فرض بقاء المؤشر في الحقل حتى يتم ادخال رقم التحليل

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

[ابوخليل]

تفضل تم التعديل على المثال المرفق

وتم ضبط الحدث عند الخروج من الحقل

ملحوظة :

يوجد في الجداول آلاف الأسماء ، 

اعمل دائما على وضع بيانات قليلة في بما يكفي للتجربة والتطبيق فقط

 

Lab 2019.rar

[jo_2010]

معلمىالجليل

ايو خليل

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

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

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

[ابوخليل]

تفضل

وضعنا شرط للتأكد من عدم وجود تحاليل

Lab 2019_up.rar

[jo_2010]

خالص الشكر يامبدع

[jo_2010]

الفاضل استاذنا الكبير ابو خليل

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

القاعدة الجديدة بعد اضافة اكواد حضرتك

Lab 2019_NEW.rar

[ابوخليل]

تفضل تم تحقيق المطلوب

الحدث الذي ماسك حقل الاسم هو حدث الخروج ، ولما يكون الحقل خالي يستحيل الخروج منه

لذا عملنا وسيط  تكون قيمته شرطا في تشغيل الحدث

هذا الوسيط هو متغير  تجده في اعلى الصفحة

واستخدمنا زر الهروب Esc لتغيير قيمة المتغير ولتحريك السجلات

____________

عند الرغبة في الرجوع من السجل الجديد  الى آخر سجل  فقط انقر على زر الهروب

 

Lab 2019_up2.rar

[jo_2010]

استاذى الفاضل ابو خليل

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

[ابوخليل]

الحمد لله ,, على فضله ,, وشكرا لدعواتك