jjafferr

وعليكم السلا م الوصفات الطبية تُحفظ في جدول tbl_Prescription ، والجدول به هذه الحقول: File_No : رقم المريض ، فتمييز الوصفات بين المرضى ، وإلا فكيف نعرف هذه الوصفة لمن!! Visit_Date : تاريخ الزيارة ، فالمريض له عدة زيارات للدكتور ، ووصفة كل زيارة تحدد نوع مرضه ، وبدون التاريخ يصبح للمريض سلسلة ادوية متراكمه DoseID : عند اختيارك للأدوية ، البرنامج يحتفظ برقم الدواء فقط (لأن بقية معلومات الدواء موجودة في الجدول tbl_Drugs) ، وعند عمل استعلام ، نربط الجدولين فنحصل على بقية معلومات الدواء. اذا عملت هذا ، فكأنك جعلت الجدول tbl_Prescription مثل الجدول tbl_Drugs جعفر

الامر DoCmd.RunCommand acCmdRefresh يساوي me.Refresh والذي يعمله هو انه يجدد معلومات النموذج (اي انه يحفظ معلومات السجل) بمعلومات جديدة من من مصدر النموذج ، يعني يعمل me.Requery ، ومشكلة me.Refresh هي انها تعمل لك وميض بسيط في النموذج ، ولكن المشكلة الاكبر انها تأخذك من اختيار السجل الذي انت عليه الى اول سجل في النموذج ، لذلك ، يفضل استعمال الامر: docmd.runcommand accmdsaverecord وكلما تستخدم امر عدم اعطاء اي تنبيه: DoCmd.SetWarnings False فيجب عليك استخدام امر إعادة التنبيه في نهاية الكود: DoCmd.SetWarnings True جعفر

حياك الله للعلم: هناك فارق في السرعة بين الامرين التاليين (طبعا لن تلاحظ فرق السرعة على بضع مئات من السجلات): هذه الطريقة DCount("*","Table1","[Field_YN]=-1") اسرع من هذه الطريقة DCount("[Field_YN]","Table1","[Field_YN]=-1") جعفر

تفضل Private Sub أمر13_Click() Me.b1 = DSum("[wared]", "malyah", "[sdate] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b2 = DSum("[tamoel]", "malyah", "[sdate1] between #" & Me.sdate & "# and #" & Me.fdate & "#") Me.b3 = DSum("[masrof]", "malyah", "[sdate2] between #" & Me.sdate & "# and #" & Me.fdate & "#") End Sub جعفر

كيف ما نفع؟ في الصورة الاولى محتويات التقرير ما كانت ظاهره ، وفي الصورة الثانية محتويات التقرير ظاهرة !! جعفر

وعليكم السلام استخدم الامر التالي في حدث "عند الفتح": docmd.maximize جعفر

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

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

وعليكم السلام الحل ان لا تسمح للمستخدم بإدخال رقم مكرر في هذا الحقل ، او اذا كان لابد من ادخال ارقام مكررة ، فاسمح بذلك من الجدول: indexed=Yes (Duplicates ok)s جعفر

خلي كلامنا في الاستعلام: المشكلة تحدث عندما نريد ان نعمل عملية معينة على حقل Null ، فجرب التالي: nz([fName],"") اما بالنسبة للتاريخ ، فيجب ان نتأكد من وجود التاريخين ، فاذا لم يوجدا ، فنقول للاستعلام ، استعمل التاريخ الاصل (اي الذي نبحث فيه): iif(len([Date_From] & "")=0 or len([Date_To] & "")=0,[myDate], Between Date_From and Date_To) جعفر

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

وعليكم السلام هذه استعلامات بحد ذاتها واذا اردناها في النموذج ، على زرين مختلفين: 1. A= DCount("*","Table1","[Field_YN]=-1") 2. mySQL= "UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]= -1" currentdb.execute(mySQL) جعفر

تفضل 1. SELECT Count(Field_YN) AS How_Many FROM Table1 GROUP BY Field_YN HAVING Count(Field_YN)=True; 2. UPDATE Table1 SET [Field_YN] = 0 WHERE [Field_YN]=True . جعفر

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

لا توجد صورة ولا يوجد مرفق جعفر

تقريبا كل شئ ممكن في الاستعلام ، واذا خايف تغيير استعلام ، فاعمل استعلام جديد ، واستعمل الاستعلام السابق كمصدر لهذا الاستعلام ، واعمل ما شئت حيا الله أخوي رمهان و 10/10 الظاهر ان انا عندي عادة سيئة ، وهي اذا انا ما مقتنع من طريقة معينة او اعتقد ان بيكون فيها مشكلة ، فما اعرض الحلول لها جعفر

وعليكم السلام اسمح لي اخبرك كيف انظر لمثل هذه الرسالة المفروض ان هذه الرسالة لا تظهر اصلا ، فالمبرمج يجب عليه ان يتأكد من ذلك يعني ، لا تحاول الحصول على حل للاعراض ، وإنما حل اصل المشكلة جعفر

السلام عليكم قرأت من مجموعة خبراء ومواقع ، يقولوا ان حقل "محسوب" في الجدول ، قد يسبب لك مشاكل لاحقا ، وخصوصا اذا غيرت احد البيايات في احد الحقول ، والذي فهمته ايضا ، انك لا تستطيع برمجيا إعادة الحسبة لهذا الحقل للعلم جعفر

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

وعليكم السلام هذه طريقتي ، بمشروع متكامل: http://www.officena.net/ib/topic/60235-هدية-ربط-الصور-وملفات-pdf-بالنموذج،-وتشغيل-الماسح-الضوئي/ ومثل ما قال أخونا ابو خليل: ابحث عن "اكثر من صورة" ، مثال مختصر للموضوع اعلاه: http://www.officena.net/ib/topic/62143-هدية-سحب-اكثر-من-صورة-من-الاسكنر-وتحويلها-الي-pdf-او-صور-مسلسلة/ جعفر

حياك الله الشئ المهم معرفته هو: 1. اذا اردت 3 سجلات في التقرير فقط ، استخدم رقم 3 ، واذا اردت 4 سجلات في التقرير استخدم الرقم 4 ، وعلى هذا الاساس تستخدم الرقم الصح لعدد سجلات التقرير ، 2. هذه المعادلة لا تتغير ، والتقرير يعتمد على هذا الحقل في عمل المجموعة ، وهذين الحقلين يمكن استخدامهما في اي برنامج ، والتغيير يكون في مسميات الحقول في رقم 1: . والنتيجة (لاحظ الحقل Int_S ، كما اشرت لك في رقم 2 اعلاه ، تلاحظ كل 3 سجلات برقم مسلسل): . وهكذا نعمل مجموعة للحقل Int_S : . والنتيجة كما في مشاركتي السابقة: البرنامج بين يديك ، فاعمل به ما تشاء جعفر

السلام عليكم بعدما تختار اسم المريض ، وتختار جميع زياراته ، ترى جميع زياراته في حقل Visit_Date ، وعندها تستطيع ان تنقر مرتين على التاريخ الذي تريد ، فسيتم تصفية النموذج على اساسه وهذا شكل التقرير ، كل 3 ادوية مجموعة مع بعض: جعفر 298.Medication.accdb.zip

السلام عليكم أخي عصام الكود بحاجة الى مسافة قبل كلمة Where ، فيصبح الكود الصحيح هكذا: DoCmd.RunSQL "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "' WHERE (((main.ID)=[forms]![new txn]![issue id]))" وفي برامجي ، دائما اجزّء الكود الى اسطر ، حتى لا اقع في مثل هذا الخطأ ، فيكون الكود هكذا (لاحظ المسافة قبل Where) : mySQL = "UPDATE main SET main.responsable ='" & [TempVars]![loginid] & "'" mySQL = mySQL & " WHERE main.ID =[forms]![new txn]![issue id]" DoCmd.RunSQL mySQL جعفر

وعليكم السلام رجاء وضع الكود الكامل الذي تستخدمه للأمر Update ، مع الاسطر الاخرى من الكود التي تواجه فيها مشكلة (احيانا ) ، ولماذا تستخدم هذا الامر بالذات؟ جعفر

السلام عليكم رجاء مطالعة المرفق ، فهو حسب ما ذكرته انا في مشاركتي السابقة رجاء تفسر شو معنى افتح "وصفة جديدة" ؟ هل معناه انك تريد عمل فرز للأدوية عند طباعتها ، بحيث كل وصفة ادوية تحتوي على 3 ادوية فقط؟ فاذا كان الجواب نعم ، فالمسألة لا علاقة لها في نموذج الادخال ، وانما في التقرير جعفر 298.Medication.accdb.zip