co2002co

السلام عليكم ورحمه الله وبركاته اشكركم جزيل الشكر

عندي خيارين بالمثال اما يوم او يومين انا لا اريد هذين الخيارين ان يكونو متاحين للاختيار الا بعد اكمال باقي النموذج اذا اكتملت الخانات التي بالنموذج بعدها يكون الخيار متاح db.rar

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

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

للرفع

Pedia2.rar

myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!text1 & "'" Is_It_Used = DCount("*", "tbl_MedicalReport", myCriteria) If Is_It_Used > 0 Then ulast = DLast("Visit_Date", "tbl_MedicalReport", myCriteria) unow = Form_frm_Patient_Drugs.iDate udiff = DateDiff("d", ulast, unow) If MsgBox("تم اعطاءه اجازه مرضيه بتاريخ" & ulast & vbCrLf & "هل ترغب بأعطائه اجازه مرضية اخرى ؟", vbExclamation + vbYesNo) = vbYes Then Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus DoCmd.GoToRecord , , acNewRec End If End If ارجو التعديل على هذا الكود بحيث ان لطبيب ل يستطيع إعطاء المريض اجازه مرضيه الا بعد مضي 48 ساعه من اخر مره اخذ فيها اجازه الكود من عمل المبدع الأخ محمد ايمن

myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!text1 & "'" Is_It_Used = DCount("*", "tbl_MedicalReport", myCriteria) If Is_It_Used > 0 Then ulast = DLast("Visit_Date", "tbl_MedicalReport", myCriteria) unow = Form_frm_Patient_Drugs.iDate udiff = DateDiff("d", ulast, unow) If MsgBox("تم اعطاءه اجازه مرضيه بتاريخ" & ulast & vbCrLf & "هل ترغب بأعطائه اجازه مرضية اخرى ؟", vbExclamation + vbYesNo) = vbYes Then Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus DoCmd.GoToRecord , , acNewRec End If End If ارجو التعديل على هذا الكود بحيث ان لطبيب ل يستطيع إعطاء المريض اجازه مرضيه الا بعد مضي 48 ساعه من اخر مره اخذ فيها اجازه الكود من عمل المبدع الأخ محمد ايمن

اسف للتاخير ER_DB.rar

السلام عليكم ورحمة الله وبركاته ارجو منكم التكرم بمساعدتي عندي نموذج فرعي وجدولين منفصلين ( الجدوين موجودين بصفحتين مثل ما هو موجود بالمثال ) حاب الادخال يكون من كلا الجدولين في نفس الوقت يعني ممكن اخذ دواء من الجدول الاول والدواء الثاني من الجدول الاخر بحيث يعرضون في النموذج نفسه وطباعه ما هو موجود بالنموذج الفرعي Database.rar

السلام علكيكم ورحمة الله وبركاته عملت مثال بسيط للشي الي اقصده فقط لتقريب وجة النظر لان عمل حقل دائم للنسب من/ الى سوف يأخذ خير كبير من السعه التخزينيه وان كانت لا تتعدى الكيلو بايت الواحد لكن مقارنه بباقي الجدول فهي كبيره عملت النسبه ليبل بجنب النتيجه مهمة هاذي النسبه هي لمقارنة الطبيب بين النسب الطبيعيه والغير طبيعيه قاعدة بيانات1.rar

جرب الان Database.rar

اليك المرفق Database.rar

لاني بالجدول من احط -1 تطلع لي الرساله انو هذا الدواء غير متوفر

اريد انشاء حدث عند النقر بحث تعطيني رساله مفادها ان هذا الدواء غير متوفر وضعت حقل na بجدول الادويه If DCount("*", "[tbl_Drugs]", "[DoseID]=" & Me.[ListDrugs]) > -1 Then MsgBox "This Medication not available" Exit Sub End If لكن لم تعمل ممكن تصححون لي الخطأ

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

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

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

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

للرفع

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

لو قرات كلامي بتمعن اكثر استخدم alienware i7 اولا انا قلت انه يعمل مشاكل وارجعن المشكله الى اني عامل القاعده من اصدار 2010 ولا له دخل اغلقت الشركه او لا هذا ليس الهدف من النقاش اشكرك على تعقيبك شيخنا الفاضل تجربتي في 2003 لا تتجاوز الشهر لكني وجدت فيه ابجديه لغويه وانت اعرف بها بمعنى انت تضطر تكتب اغلب الاوامر بشكل يدوي خصوصا بالاستعلام بعكس الاصدارات المتقدمه تاتي جاهزه وميسره وهناك اومر مختلفه امثال DoCmd.RefreshRecord = me.Refresh هذا ما صادفني خلال استخدامي بالاضافه انه لا يعمل واشرت اني من مستخدمي 2010

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم بكل خير انا جربت كل الاصدارات اسوئهم بلا منازع هو 2016 لانه يعلق كثير ( ممكن لان القاعده معموله على اصدارات اخرى ) جربت اصدار 2003 وهو متعب فعلا الا انه يعلمك اغلب الاوامر الجاهزه بالاصدارات الاخرى وهو فعلا ممتع العمل عليه مع انه متعب استخدم 2010 في اغلب الاوقات بس من سمعت كلام الشيخ ابو اخليل قلت احول تدريجيا الى 2003

انا اتعلم منك ايضا طيب مشكلة التكرار

بالمثال المرفق احاول عملت مجموعات للادويه مثلا ادويه الاطفال ، اسعاف ، باطنيه عملت مثال بجدول الادويه Pediatrics اريد عمل كلك في النموذج الاساسي يعرض لي فقط الدويه المختاره من عمود Pediatrics Database.rar