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

[co2002co]

1.rar

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

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

 

 

 

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

 

 

 

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

لكن يعطي الرساله متاخره وكانه يتعارض مع الكود الاساسي

 

 

If DCount("*", "[tbl_Prescription]", "[DoseID]=" & Me.[DoseID]) > 0 Then
MsgBox " This Medication was used in " & Me.Visit_Date & CountNum & vbCrLf & _
               "" & vbCrLf, vbOK, "ÊäÈíå"
        Cancel = True
        Me.Undo
    End If

[co2002co]

هل من مجيب

[محمد ايمن]

11.rar

 

تم تعديل سبتمبر 4, 2016 بواسطه محمد ايمن

[co2002co]

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

اشكرك على الرد

لكن ليس هذا ما اردت

 

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

 

 

 

الذي اريد عمله هو رساله اخرى مفادها

ان هذا الدواء قد استخدم من قبل بتاريخ ؟؟؟؟؟؟؟؟

مع امكانية اضافته للوصفه الحاليه

 

 

الفائده من هذه الرساله هو تنبيه الطبيب ان هذا الدواء استخدم من قبل ولمعرفة المده التي استخدم فيها الدواء

بالتالي الطبيب له حريه الاختيار

اما اكمال خطة العلاج

او تغيير الدواء

 

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

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

 

معليش ل جهلي بالشي الي عملته

 

طيب كيف اخلي الوقت طلع بالرساله

[co2002co]

    
        myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!Patient_No & "'"
        myCriteria = myCriteria & " And [DoseID] = " & Me.ListDosing.Column(5)
    
    Is_It_Used = DCount("*", "tbl_Prescription", myCriteria)
        If Is_It_Used > 0 Then
MsgBox " This Medication was used in " & Me.Visit_Date & CountNum & vbCrLf & _
               "" & vbCrLf, vbOK, "ÊäÈíå"
        Cancel = True
        Me.Undo
        End If

اضقت على الكود بعد التعديل التاريخ

 

 

هل ما قمت به صحيح من الناحيه البرمجيه

ارجو التصحيح

[محمد ايمن]

في 9/3/2016 at 03:49, co2002co said:

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

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

اخي الكريم لعلمك ان المرفق الذي ارسلته يسمح بتكرار الدواء بنفس الوصفة و بنفس التاريخ مرة و تنين و تلات وبغير تاريخ

 

في 9/3/2016 at 03:49, co2002co said:

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

هذا كان طلبك و انا ارسلته في المرفق

 

59 دقائق مضت, co2002co said:

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

اشكرك على الرد

لكن ليس هذا ما اردت

 

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

 

 

 

الذي اريد عمله هو رساله اخرى مفادها

ان هذا الدواء قد استخدم من قبل بتاريخ ؟؟؟؟؟؟؟؟

مع امكانية اضافته للوصفه الحاليه

 

 

الفائده من هذه الرساله هو تنبيه الطبيب ان هذا الدواء استخدم من قبل ولمعرفة المده التي استخدم فيها الدواء

بالتالي الطبيب له حريه الاختيار

اما اكمال خطة العلاج

او تغيير الدواء

 

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

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

 

معليش ل جهلي بالشي الي عملته

 

طيب كيف اخلي الوقت طلع بالرساله

 

اخي الكريم

حدد طلباتك ولك ما ستطلب

تم تعديل سبتمبر 4, 2016 بواسطه محمد ايمن

[co2002co]

صح لكن

لا يضهر التاريخ الذي استخدم فيه الدواء

[محمد ايمن]

تفضل اخي الكريم

12.rar

[co2002co]

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

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

بس خايف اطلب شي ثاني تعصب علي

[محمد ايمن]

ههههههههههههههه لا لا اخي الكريم اطلب ولا يهمك

واعتذر منك اذا احسست اني عصبت في المرة الماضية

[co2002co]

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

 

مشكور وماقصرت

 

طيب لو حبيت هذا الكود يستخرج المعلومات من جدول اخر ( tbl_x )

[محمد ايمن]

1 ساعه مضت, co2002co said:

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

 

مشكور وماقصرت

 

طيب لو حبيت هذا الكود يستخرج المعلومات من جدول اخر ( tbl_x )

ماهي المعلومات المطلوب استخراجها ؟؟

وهل يوجد شروط ترغب بوضعها لاستخراج المعلومات ؟؟

[co2002co]

من بعد اذنك

 

 

خلي ارفع لك قاعده مصغير مع بعض العديلات

من بعد اذنك

حاب اربط جدول diagnosis ب جدول الوصفات

بحيث مجرد اختيار التشخيص الكومبوبوكس يضهر بالجدول

من دون عمل نموذج فرعي 

2.rar

[co2002co]

ماكو شرط محدد هو نفس الشرط الاول

فقط رساله تنبيهيه والتاريخ

 

 

طيب لو حبيت اعمل شرط بعدم شرف الدواء الا بعد مضي مثلا 5 ايام من اخر مره صرف فيها

احس ان هذا الشرط متعب شوي 

لانه في ادويه نصرفها شهريا وبعضها 3 ايام

اذا تقدر تحط لي شرط ب جدول الادويه بحيث انا اقدر احدد المده 

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

[co2002co]

للرفع

[محمد ايمن]

في 9/6/2016 at 22:45, co2002co said:

حاب اربط جدول diagnosis ب جدول الوصفات

بحيث مجرد اختيار التشخيص الكومبوبوكس يضهر بالجدول

من دون عمل نموذج فرعي 

اخي الكريم هذا الطلب يحتاج الى توضيح اكثر

في 9/6/2016 at 23:00, co2002co said:

طيب لو حبيت اعمل شرط بعدم شرف الدواء الا بعد مضي مثلا 5 ايام من اخر مره صرف فيها

احس ان هذا الشرط متعب شوي 

لانه في ادويه نصرفها شهريا وبعضها 3 ايام

يمكن ذلك

[co2002co]

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

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

1- 

في 06/09/2016 at 20:39, co2002co said:

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

 

مشكور وماقصرت

 

طيب لو حبيت هذا الكود يستخرج المعلومات من جدول اخر ( tbl_x )

ماهي المعلومات المطلوب استخراجها ؟؟

وهل يوجد شروط ترغب بوضعها لاستخراج المعلومات ؟؟

 ممكن تعلمنا او تشرح لنا طريقه كتابه الكود 

اقصد الرساله التحذيريه المشروطه او غير المشروطه

من نفس الجدول المستخدم او من جدول اخر

 

2- ابي عند اختبار التشخيص من نموذج الوصفه يكون يخزن ب جدول الوصفه ( مثل ما هو عمول به ب جدول الادويه )

 

3- 

في 06/09/2016 at 23:00, co2002co said:

طيب لو حبيت اعمل شرط بعدم شرف الدواء الا بعد مضي مثلا 5 ايام من اخر مره صرف فيها

احس ان هذا الشرط متعب شوي 

لانه في ادويه نصرفها شهريا وبعضها 3 ايام

يمكن ذلك

[co2002co]

للرفع

[محمد ايمن]

عذرا اخي الكريم لكنك لم تجب على سؤالي

في 9/8/2016 at 23:14, محمد ايمن said:

 

في 9/6/2016 at 22:45, co2002co said:

حاب اربط جدول diagnosis ب جدول الوصفات

بحيث مجرد اختيار التشخيص الكومبوبوكس يضهر بالجدول

من دون عمل نموذج فرعي 

اخي الكريم هذا الطلب يحتاج الى توضيح اكثر

 

 

[co2002co]

اشكر لك تجاوبك

 

عندي جدول به اغلب التشخيصات للامراض

حاب اعمل التشخيص كومبوبوكس بنموذج الوصفه الرئيسي

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

مع اضهار التشخيص كامل اثناء الطباعه ( بالتقرير )

[co2002co]

عملته بالشكل الي انا حاب اسويته بس لا بد من الاخطاء البرمجيه

ارجو التصحيح

حيث انه لا يقبل من دواء واحد فقط بالوصفه

2.rar

[محمد ايمن]

اخي الكريم

فضلا و ليس امرا قم بتجربة هذا المرفق و اي تعديلات مطلوبة قم باجرائها عليه

 

 

2.rar

[co2002co]

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

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

شاكر ومقدر لك مجهودك

واسال الله العلي القدير بحق يوم عرفه انه يمدك من علمه

 

 

عملت 2 كومبو بوكس للتشخيص

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

اذا ادخل دواء واحد التقرير لا يخرج لي اي بيانات اما اذا كان اكثر من دواء فانه يعمل لكن من دون وجود الدواء الاول

وايضا بالنسبه للتشخيص فانه يعطيني الكود فقط وليس كامل التشخيص

 

بالاضافه الى

 

 

في 06/09/2016 at 23:00, co2002co said:

طيب لو حبيت اعمل شرط بعدم صرف الدواء الا بعد مضي مثلا 5 ايام من اخر مره صرف فيها

احس ان هذا الشرط متعب شوي 

لانه في ادويه نصرفها شهريا وبعضها 3 ايام

يمكن ذلك

 

بحيث ان الشرط يكون موجود في جدول drugs

بحث اني اضع عدد الايام المشروطه لصرف الدواء

 

 

 

3.rar

[محمد ايمن]

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

عملت 2 كومبو بوكس للتشخيص

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

بالطبع لن تظهر لك بيانات اخي الكريم

نموذج صرف الوصفات هو نموذج غير مرتبط لذلك يجب وضع التشخيص في النموذج الفرعي و ليس الرئيسي

لنفرض مثلا المريض محمود زارك وهو يعاني من التهاب معدة و بعد شهر زارك وهو يعاني من انفلونزا كيف ستضع التشخيص ؟؟؟؟

يجب ان يوضع التشخيص مقابل الدواء

 

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

بحيث ان الشرط يكون موجود في جدول drugs

بحث اني اضع عدد الايام المشروطه لصرف الدواء

افتح جدول الادوية وعدل الحقل ( مدة صرف الدواء )

 

قم بالتجربة ووافيني بالنتيجة

4.rar

[co2002co]

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

مساء الخير

 

بارك الله فيك

الشرط اقل ما يقال عنه ممتاز

اعجز عن الشكر

 

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

 

 

طيب في شرط مشابه وهو خاص بالتداخلات الدوائيه

يعني من جدول drugs

راح نحط شرط عدم صرف ادويه معينه مع بعض

مثلا

الادويه التي تحتوي على رقم 1

لا يصرف منها الا دواء واحد

يعني نعمل شرط مجموعات

مدري الفكره وصلت او لا