مطلوب تكرار فتح نموذج آليا منبثق من نموذج آخر _ معدل

[hosslom]

السلام عليكم أخوتي الكرام

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

   form1 القاعده عباره عن نموذج  لادخال نتيجه تحاليل

بالضغط علي الزر المقابل لكل تحليل يفتح نموذج ادخال نتيجه التحليل

ويحفظ ويغلق النموذج true ندخل النتيجه ونضغط زر الحفظ يغير حقل اوك   ل  

المطلوب هو كيفيه بعد ضغط زر الحفظ والاغلاق يفتح نموذج ادخال النتيجه للتحليل  التالي في النموذج الاول  تلقائي 

دون الحاجه الي الذهاب للنموذج الاول والضغط علي زر فتح نموذج النتيجه للتحليل وهكذا تسلسلي تلقائي حتي ينتهي ادخال النتائج لاخر تحليل   

ويقف الكود ارجو ان تكون وصلت الفكره 

 وجزاكم الله كل خير اخوتي

help.accdb

[ابوخليل]

عليكم السلام

السؤال لماذا كل هذه الازرار  والنماذج الزائدة .. 

لماذا لا يتم ادخال النتيجة في النموذج المستمر مباشرة ؟

[hosslom]

شكرا اخي ابو خليل علي التفاعل

هذا مجرد نموذج مبسط لان بعض التحاليل تحتاج نموذج ادخال به اكثر من نظام الموضوع ليس مبسط هكذا 

انا ادرجت مثال فقط لتنفيذ الفكره

جزاك الله كل خير اخي

[hosslom]

انا مستبشر خير وارجو المساعده من عمالقه المنتدي

[ابوخليل]

حسب فهمي لطلبك

انظر التعديل ، اذا يحقق طلبك .. وإلا اشرح مطلوبك بتفصيل اكثر

help2.rar

[kha9009lid]

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

تحياتي

 

 

تم تعديل أبريل 23, 2021 بواسطه kha9009lid
ملف خاطئ

[hosslom]

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

انا احتاج نفس الفكره ولكن بعد الحفظ يغلق النموذج ويعاد فتحه من النموذج الاول  مره اخري  بعد التركيز علي سجل التحليل التالي  لاني اريد تنفيذ امر معين عند الفتح

واسف علي تعبك اخي العزيز ياريت لو تقدر تشوف لي حل

جزاك الله كل خير

[ابو محمد 316]

السلام عليكم ورحمة الله وبركاته

اسعد الله اوقاتكم بكل اخير

 

إضافة الى ما تقدم به الأخوة الكرام 

هذى فكرة بسيطة ربما تكون صح او خطاء  وتحتاج الى تطوير 

اضفة جدول TBL_THLELL ونموذج  TBL_THLELL من خلال هذى النموذج يمكن تضيف أي نوع من أنواع التحليل لهذى المريض حيث يتم حفظ نوع التحليل و رقم الموظف في جدول Emp_thelell وهذى الجدول له نموذج هو Emp_thelell1 ويقوم قسم المختبر بفتح النموذج وإدخال رقم الموظف ويظهر عنده التحاليل المطلوبة للمريض  ويقم بتعبية النتيجة بعد اجراء التحليل

هناك استعلام الحاقي 

ملاحظة 

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

والله اعلم

بالتوفيق إن شاء الله

help21.accdb

[hosslom]

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

جزاك الله كل خير اخي الكريم علي المساعده

[ابوخليل]

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

وعلى كل حال  وبرغم صعوبة تقسيم عمل كود بين نموذجين كي يعملا آليا .. تفضل تم التعديل حسب طلبك

 

help2.mdb

[hosslom]

جزاك الله كل خير اخي ابو خليل 

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

فعلا هو المطلوب ولكن ملحوظه صغيره الكود يفتح من اول السجل التاني

لا يفتح السجل الاول urine 

هل لها حل ؟؟

واسف لحضرتك

تم تعديل أبريل 27, 2021 بواسطه hosslom

[ابوخليل]

يلزم التحايل على السجلات وتحديد الترتيب عند فتح النموذج المنبثق

Dim j As Integer
Private Sub Command3_Click()
DoCmd.GoToRecord , , acFirst
DoCmd.OpenForm "form2"
ifrm = 1
j = 1
End Sub
Private Sub Form_Timer()
On Error GoTo ErrHandler
Dim i As Integer, R As Integer
Dim rs As Recordset
Set rs = Me.RecordsetClone
R = rs.RecordCount
If j = 1 Then
DoCmd.GoToRecord , , acFirst
j = 0
ElseIf ifrm = 1 And j = 0 Then
DoCmd.GoToRecord , , acNext
End If
For i = 1 To R - 1
If ifrm = 1 Then
DoCmd.OpenForm "form2"
ifrm = 0
End If
Next
ErrHandler:
If Err.Number = 2105 Then ifrm = 0: Exit Sub
End Sub

 

help3.mdb

[hosslom]

عشت اخي الكريم ابو خليل

والله انك عبقري فعلا ده المطلوب بالظبط

جزاك الله كل خير وسلمت يداك