اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


jo_2010
إذهب إلى أفضل إجابة Solved by ابوخليل,

الردود الموصى بها

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

لكم التحية 

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

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

Lab 2019.rar

رابط هذا التعليق
شارك

منذ ساعه, jo_2010 said:

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

 

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

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

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

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

أخي العزيز :

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

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

هكذا نشاهد 

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

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

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

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

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

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

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

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

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

 

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

 

تم تعديل بواسطه مسفر
رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه 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 ننتقل إلى كود التحليل لكي نسجل للمريض نوع التحليل المطلوب احيانا انسي تسجيل التحاليل واقوم بلف بكرة الماوس انتقل الي سجل جديد علشان انا مبرمج البرنامج في حدث عند لف بكرة الماوس ينتقل إلى سجل جديد وبالتالي انتقل إلى سجل جديد دون تسجيل تحليل للمريض في السجل السابق أرجو عدم الانتقال الي سجل جديد طالما لاتوجد تحاليل مكتوبة في النموذج الفرعي requedt ارجو الافادة وياريت اكون قدرت اوصل لحضرتك طلبي

  • Like 1
رابط هذا التعليق
شارك

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

 

  • Like 1
رابط هذا التعليق
شارك

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


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

 

رابط هذا التعليق
شارك

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

بعد التحية

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

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

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

رابط هذا التعليق
شارك

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

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

ملحوظة :

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

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

 

Lab 2019.rar

  • Thanks 2
رابط هذا التعليق
شارك

معلمىالجليل

ايو خليل

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

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

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

رابط هذا التعليق
شارك

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

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

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

Lab 2019_NEW.rar

رابط هذا التعليق
شارك

  • أفضل إجابة

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

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

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

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

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

____________

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

 

Lab 2019_up2.rar

  • Thanks 2
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information