co2002co

عملته بالشكل الي انا حاب اسويته بس لا بد من الاخطاء البرمجيه ارجو التصحيح حيث انه لا يقبل من دواء واحد فقط بالوصفه 2.rar

اشكر لك تجاوبك عندي جدول به اغلب التشخيصات للامراض حاب اعمل التشخيص كومبوبوكس بنموذج الوصفه الرئيسي بحيث عند اختياري للتشخيص من نموذج الوصفه يحفظ رقم الكود للتشخيص ب جدول الوصفه مع اضهار التشخيص كامل اثناء الطباعه ( بالتقرير )

للرفع

الخطوه الاهم هي تغيير موقع النظام عندك وتخليه اي دوله عربي

او بالامكان الذهاب الى اعدادت الاكسس Option Trust center Trust center setting Macro setting Enable all macros

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير 1- ماهي المعلومات المطلوب استخراجها ؟؟ وهل يوجد شروط ترغب بوضعها لاستخراج المعلومات ؟؟ ممكن تعلمنا او تشرح لنا طريقه كتابه الكود اقصد الرساله التحذيريه المشروطه او غير المشروطه من نفس الجدول المستخدم او من جدول اخر 2- ابي عند اختبار التشخيص من نموذج الوصفه يكون يخزن ب جدول الوصفه ( مثل ما هو عمول به ب جدول الادويه ) 3- يمكن ذلك

للرفع

ممتاز جدا الحل سهل ضع نفس الكود لكن استخدم الماسك *********

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

من بعد اذنك خلي ارفع لك قاعده مصغير مع بعض العديلات من بعد اذنك حاب اربط جدول diagnosis ب جدول الوصفات بحيث مجرد اختيار التشخيص الكومبوبوكس يضهر بالجدول من دون عمل نموذج فرعي 2.rar

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

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

صح لكن لا يضهر التاريخ الذي استخدم فيه الدواء

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 اضقت على الكود بعد التعديل التاريخ هل ما قمت به صحيح من الناحيه البرمجيه ارجو التصحيح

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

هل من مجيب

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

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

الملف فااااااااارغ

السلام عليكم ورحمة الله وبركاته ارغب بعمل تقرير لطباعه تقرير بتاريخ متاخر 298.Medication.rar

مساء الخير هل من مجيب

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

موفقين لكل خير ان شاء الله

ملاحظتي على التعديل الجديد طيب لو كان المستخدم يعتمد على الرقم التسلسلي ب مفتاح اساسي لبرنامجه يعني خلينا نفترض ان الرقم التسلسلي هو رقم فاتوره وانت تعتمد على رقم الفاتوره للرجوع لها بسرعه بس لما يتم تغيير التسلسل اعتقد ضاع كل شي انا اتكلم اذا كان رقم التسلسل هو نفسه رقم الفاتوره فاتوره رقم 1 فاتورة رقم 2 رفاتوره رقم 3 الخ يعني لو حذفت فاتورة رقم 2 راح تحل فاتوره رقم 3 مكان فاتوره رقم 2

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