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

[co2002co]

1.rarFetching info...

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

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

 

 

 

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

 

 

 

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

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

 

 

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.rarFetching info...

 

تم تعديل سبتمبر 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

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

 

 

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

ارجو التصحيح

[محمد ايمن]

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

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

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

Expand  

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

 

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

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

Expand  

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

 

  في 4‏/9‏/2016 at 21:15, co2002co said:

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

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

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

 

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

 

 

 

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

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

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

 

 

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

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

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

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

 

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

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

 

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

 

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

Expand  

 

اخي الكريم

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

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

[co2002co]

صح لكن

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

[محمد ايمن]

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

12.rar

[co2002co]

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

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

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

[محمد ايمن]

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

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

[co2002co]

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

 

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

 

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

[محمد ايمن]

  في 6‏/9‏/2016 at 17:39, co2002co said:

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

 

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

 

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

Expand  

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

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

[co2002co]

من بعد اذنك

 

 

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

من بعد اذنك

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

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

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

2.rar

[co2002co]

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

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

 

 

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

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

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

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

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

[co2002co]

للرفع

[محمد ايمن]

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

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

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

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

Expand  

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

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

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

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

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

Expand  

يمكن ذلك

[co2002co]

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

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

1- 

  في 6‏/9‏/2016 at 17:39, co2002co said:

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

 

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

 

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

Expand  

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

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

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

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

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

 

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

 

3- 

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

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

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

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

يمكن ذلك

[co2002co]

للرفع

[محمد ايمن]

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

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

 

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

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

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

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

Expand  

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

 

Expand  

 

[co2002co]

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

 

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

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

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

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

[co2002co]

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

ارجو التصحيح

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

2.rar

[محمد ايمن]

اخي الكريم

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

 

 

2.rar

[co2002co]

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

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

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

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

 

 

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

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

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

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

 

بالاضافه الى

 

 

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

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

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

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

يمكن ذلك

 

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

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

 

 

 

3.rar

[محمد ايمن]

  في 11‏/9‏/2016 at 08:23, co2002co said:

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

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

Expand  

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

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

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

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

 

  في 11‏/9‏/2016 at 08:23, co2002co said:

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

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

Expand  

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

 

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

4.rar

[co2002co]

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

مساء الخير

 

بارك الله فيك

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

اعجز عن الشكر

 

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

 

 

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

يعني من جدول drugs

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

مثلا

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

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

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

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