UserUser2

22 ساعات مضت, أبوبسمله said:

واياكم اخى

ولا يهمك تحت امرك

طيب اتفضل جرب المرفق ده واخبرنى بالنتيجه

بالتوفيق

help_2.mdb 288 kB · 6 downloads

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

18 ساعات مضت, أبوبسمله said:

جزاه الله خيرا شيخنا الجليل @ابوخليل 

اتفضل ع حسب ما فهمت ان لم يكن وضح اكتر بارك الله فيك بالخطوات

help_1.mdb 284 kB · 6 downloads

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

هذا الكود لاستاذنا @ابوخليل
المطلوب تعديله 
ان الكود يفتح السجل المحدد فى النموذج المستمر وبعدين اللى بعده وهكذا الى ان ينتهي 
للسجلات التى حقل OK بها FALSE 
الكود الحالى بيبدا باول سجل فى النموذج المستمر 

help3 6.mdb

UP

4 ساعات مضت, Hema24 said:

انا حابب اوضح نقطه انا تقريبا فهمت اللى انت عايز تعمله

بص من كلامك  انت عايز تخلى المستخدم يكتب المعادله بنفسه بدل ما يتم حفظها داخل اكواد vba بالتالى هيكون صعب يقدر يعدلها دا اولا..

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

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

واى رموز تانيه زى العمليات الحسابيه تفضل زى ماهى فى الكود

 يعنى مثلا دا تحليل محسوب اسمه homair 

ودى المعادله بتاعته اللى هيتم تكوينها فى الفورم    (FBG*Fasting Insulin)/405 

انت محتاج تحول المعادله لداله زى كدا

  (DLookup("result","test_order_tbl","[tcode] = 4 And [ID] = [Forms]![visit_frm]![ID]")*DLookup("result","test_order_tbl","[tcode] = 651 And [ID] = [Forms]![visit_frm]![ID]"))/405                   

انا فاهم صح كدا

تمام بالظبط كده 
ياريت لو ترسل مثال من فضلك 
او تعدل على الملف الاساسى 

26 دقائق مضت, ابو البشر said:

ممكن تشرح لنا ماذا تريد حتى نفهم .... لا تقسط لنا المعلومات !!!!!

اعطنا النموذج الاساسي لديك .... ثم ماذا تريد ان تعرض والافتراضات فيها ؟؟؟

 

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

لو فى التقرير اختبار الكود الخاص به 42
وايضا اختبار اخر الكود الخاص به 65
المطلوب ان التقرير SUBFORM 
يعرض الخاص بهم فقط 

31 دقائق مضت, ابو البشر said:

تفضل ملفك ....

 

Testreport (1).mdb 456 kB · 0 downloads

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

10 دقائق مضت, ابو البشر said:

هل هذا هو المطلوب ؟؟؟
 

بالظبط هذا المفترض يظهر

8 ساعات مضت, ابو البشر said:

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

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

Testreport (1).mdb

في 4‏/11‏/2024 at 16:13, ابو البشر said:

@UserUser2 واضح من التقرير ان Tital مكتوبة داخل مربع تسمية وليس عنوان لحقل كما هو في عنوان الموضوع ... وهل يتم كتابة هذه التسمية بشكل متكرر كل مرة من وضع تصميم التقرير ام مصدرها بيانات في جدول .... عموما هل هذه الصورة المطلوبة ؟

 

2 ساعات مضت, ابو البشر said:

تفضل ....

 

Testreport.mdb 264 kB · 1 download

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

اشكرك على وقتك استاذ @ابو البشر
المطلوب نفس الصوره بالظبط 
 

فى الملف المرفق تقرير 
مطلوب ظهور Tital مره واحده وعدم تكرارها مع باقى البيانات فى حقل com

Testreport.mdb

21 ساعات مضت, ابوخليل said:

لم ترفق مثالك ..

من اجل التطبيق على اكوادك

علما اني لم افهم طلبك .. حاول تشرح بالتفصيل فكرتك ومطلوبك

استاذ @ابوخليل 
جزاك الله خيرا 
على وقتك 
المطلوب نفس المشاركه المشار اليها فى الموضوع بالاعلى 
الجديد المطلوب هو 
لو التست Urine  يفتح نموذج ال urine وليس نموذج form2
وكذلك تست stool يفتح نموذج ال stool وليس نموذج form2
 

Testform.mdb

up

هذا الموضوع لاستاذنا الفاضل @ابوخليل

محتاج انفذه على الاكواد دى كيفيه عمل ذلك 

Private Sub Command3_Click()
DoCmd.GoToRecord , , acFirst
DoCmd.OpenForm "form2"
ifrm = 1
j = 1
هذا الكود خاص بحضرتك 
-------------------------------------------------

محتاج انفذه هنا 

[Forms]![Orders_frm]![testcode] = Me.testcode
[Forms]![Orders_frm]![testname] = Me.testname
If Me.testcode = 346 Then
DoCmd.OpenForm "Postcoital_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
ElseIf Me.testcode = 5 Then
DoCmd.OpenForm "Znstain_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
ElseIf Me.testcode = 440 Then
DoCmd.OpenForm "Tuberculin_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
Else
DoCmd.OpenForm "Resultenter_frm", acNormal, , "[ID]=" & [Forms]![Orders_frm]![ID]
End If

2 دقائق مضت, ابوخليل said:

لا يمكنك استدعاء قيمة صحيحة .. يجب أولا عمل علاقة بين الجدولين ..

لو وقت حضرتك يسمح 
تعمل مثال 
شكرا لحضرتك 

6 دقائق مضت, jjafferr said:

الهدف من مثالي السابق (القائمة المنسدلة Combobox) ، ومن مثالي الاخير (القائمة من النقر على الفأرة بالزر اليمين) ، هو حتى لا يخطئ المستخدم ودخل حرف غلط ، واللي على اساسه لن يعمل البرنامج.

 

بالظبط كده نخليها من خلال القائمة المنسدلة Combobox فى الاختيار منعا للاخطاء 
قائمه الاختبارات تحتوى اكثر من 500 اختبار 

55 دقائق مضت, UserUser2 said:

* ازاى نعمل نCal error - 3.accdbموذج به زر عن الضغط عليه يظهر نتيجه المعادله المسجله مسبقا فى جدول Table2  فى حقل result فى Table1 

?

21 ساعات مضت, jjafferr said:

السلام عليكم

عملت جميع الاحتمالات ، و ان شاء الله افرد موضوع لزر الفأرة اليمين (قيم متغيرة) .

البرنامج لا يتأكد من صحة القيم التي تم ادخالها ، للعلم.

لا تنسى تنقر على الفأرة اليمين لإدخال الحقول من الجدول Table 1.

1618.1.Cal error2.accdb.zip 62.91 kB · 2 downloads

وعليكم السلام 
جزاك الله خيرا استاذنا @jjafferr
بعتذر لحضرتك على تعبك ووقتك ربنا يجعله فى ميزان حسناتك 
* هل من حل لدى حضرتك اخر غير الكليك اليمين لكثره الاختبارات ممكن تستبدل باليست بوكس او كومب بوكس 
* ازاى نعمل نCal error - 3.accdbموذج به زر عن الضغط عليه يظهر نتيجه المعادله المسجله مسبقا فى جدول Table2  فى حقل result فى Table1 

في 7‏/10‏/2024 at 11:43, ابوخليل said:

انا اللي فاهم على صاحب الموضوع هو يريد تنفيذ (تشغيل) كود مكتوب في الجدول 

لهذا وجهته ان هذه الطريقة ستسبب له لاحقا مشاكل برمجية .. وايضا فيها محاذير أمنية . 

على كل حال انت صاحب الشان جرب هذا

  Dim x As String
  x = DLookup("cal", "test_tbl")
  Me.C = Round(Eval(x), 3)

 

Cal error2.rar 28.21 kB · 4 downloads

جزاك الله خيرا استاذنا @ابوخليل هذا هو المطلوب 
متبقى نقطه 
لو ممكن تساعدنى بها 
DLookup("cal", "Table2 ")  يستدعى ده بشرطين الاول كود التست الموجود فى حقل CODE  فى جدول Table2 وكود العميل الموجود فى حقل ID فى جدول Table1
Cal error - 3.accdb

3 ساعات مضت, jjafferr said:

1. هل العمليات ستكون  / * - + فقط ؟

2. كم حقل ممكن تستعمل في المعادلة الواحدة؟

هنا استخدمت حقل واحد فقط: urea / 5

وهنا استخدمت 3 حقول: ALT/AST*UREA

وفي الطريقة الاولى استخدمت ارقام ، بينما في الطريقة الاخيرة استخدمت حقول فقط ،

 

فرجاء اعطنا مجموعة امثلة لتغطية جميع الطرق.

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

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

10 دقائق مضت, jjafferr said:

رجاء اعطنا كل انواع المعادلات

مش هتكون ثابنه 
متغيره وفقا لمستخدم البرنامج 

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

السلام عليكم

 

ارجو ان اكون فهمت المطلوب بالطريقة الصحيحة 🙂

1618.Cal error2.accdb.zip 49.89 kB · 0 downloads

جزاك الله خيرا استاذنا الفاضل جعله الله فى ميزان حسناتك 
طب لو المعادله هيكون فيها اكثر من تست مثلا ALT/AST*UREA
هتنفذ ازاي ؟؟؟؟

57 دقائق مضت, jjafferr said:

 

هل هذه خطوات العمل:

1- يختار المستخدم احد قيم الحقل test في الجدول Table2 ، وليكن مثلا ASO ،

2- المستخدم يكتب المعادلة التالية في السجل اعلاه:

[Bili]/2

3- البرنامج يأخذ قيمة السجل [Bili] من الحقل [result] في الجدول Table1 ، ويضعها في المعادلة اعلاه ،

4- ونتيجة المعادلة يضعها في سجل [ASO] من الحقل [result] في الجدول Table1 ، يعني قيمة [result] لهذا السجل راح تتغير قيمتها حسب نتيجة المعادلة اعلاه ؟

 

هل هذا صحيح ؟

بالظبط كده استاذنا الفاضل @jjafferr

منذ ساعه, ابوخليل said:

انا اللي فاهم على صاحب الموضوع هو يريد تنفيذ (تشغيل) كود مكتوب في الجدول 

لهذا وجهته ان هذه الطريقة ستسبب له لاحقا مشاكل برمجية .. وايضا فيها محاذير أمنية . 

على كل حال انت صاحب الشان جرب هذا

  Dim x As String
  x = DLookup("cal", "test_tbl")
  Me.C = Round(Eval(x), 3)

 

Cal error2.rar 28.21 kB · 2 downloads

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

منذ ساعه, jjafferr said:

هل هذه خطوات العمل:

1- يختار المستخدم احد قيم الحقل test في الجدول Table2 ، وليكن مثلا ASO ،

2- المستخدم يكتب المعادلة التالية في السجل اعلاه:

[Bili]/2

3- في حقل result في الجدول Table1 ، تريد ان تظهر نتيجة المعادلة اعلاه ؟

 

هذا كله سهل ،

السؤال هو ، في الخطوة 2 اعلاه ، من اين سيأتي البرنامج بقيمة [Bili] ؟

من جدول Table1  هتكون مدخله مسبقا
جزاك الله خيرا استاذنا @jjafferr
فى انتظار حضرتك 

منذ ساعه, jjafferr said:

لسؤال هو ، في الخطوة 2 اعلاه ، من اين سيأتي البرنامج بقيمة [Bili] ؟

من جدول Table1  هتكون مدخله مسبقا

جزاك الله خيرا 
استاذ محمد @ابو جودي
وشاكر لتعبك ومجهودك ووقتك