jjafferr

وعليكم السلام أختي انا اشرت الى هذا النموذج في المشاركة: http://www.officena.net/ib/topic/67430-تغيير-تسمية-الازرار-في-رسالة-msgbox/?do=findComment&comment=438435 وذكرت رابط النموذج هذا: http://blog.nkadesign.com/2008/ms-access-enhanced-message-box-replacement/ انا لم استعمله الى الان ، ولكن الرابط به الكود وطريقة الاستعمال جعفر

السلام عليكم الكود عبارة عن خطوتين: عمل سجل جديد في النموذج ، واضافة 3 معلومات: فيصبح الكود بدون رقم المريض ، وبدون تاريخ الزيارة: Forms!frm_Medication!tbl_Prescription!File_NO = Forms!Forms!frm_Medication!cmb_Patient_Name Forms!frm_Medication!tbl_Prescription!Visit_Date = Forms!frm_Medication!Auto_Date Forms!frm_Medication!tbl_Prescription!DoseID = Me.ListDosing.Column(7) جعفر

انت الخير والبركة اخوي ابو خليل واكمالا لفكرتك ، نستطيع ان يكون عندنا متغيرين اثنين (Date_1 و Date_2) ، فبهذه الطريقة يمكن الاستفادة من المعادلة لسنة او 4 سنوات او اي عدد من السنين: Between DateSerial(Year([Date_1]),1,1) And DateSerial(Year([Date_2]),12,31) جعفر

همم ، مع ان هذا السؤال غير عن السؤال الاصل ، ولكن له علاقة ما خلينا نراجع الموضوع بطريقة تختلف شوي ، وراح نوصل بنتائج اخرى يجب عدم السماح لمستخدمي البرنامج ان يدخلوا البيانات في الجداول مباشرة ، لأي سبب كان ، لهذا السبب ، فإدخال البيانات يكون عن طريق حقل في نموذج ، وهنا يمكنك ان تستخدم قاعدة التحقق من الصحة لبيانات هذا الحقل ، فالمسألة اصبحت سهلة ، حيث نستطيع ان نعمل معادلة لهذا الحدث ، فلنفترض ان اسم الحقل Date_From ، عليه تكون المعادلة شئ من هذا النوع: Between DateSerial(Year(Date()),1,1) And DateSerial(Year(Date()),12,31) واعتقد بأننا نستطيع ان نضع هذه المعادلة في قاعدة التحقق من الصحةفي الجدول كذلك جعفر

وانت منهم أخي عبدالفتاح

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

وعليكم السلام أخوي جعفر وين هالغيبة تفضل: Private Sub Form_Current() MyTime = Now() Me.pic.Visible = True Me.نص7.Visible = True Me.نص11.Visible = True End Sub Private Sub t_Change() Dim i As String i = Len(Me.t.Text) If i >= 4 Then DoCmd.Requery Dim db As DAO.Database, rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("t2") rs.AddNew rs("an") = Me.an rs("adate") = Date rs("intime") = Me.LabelDate rs.Update rs.Close t = "" t.SetFocus PauseTime = 20 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop Me.pic.Visible = False Me.نص7.Visible = False Me.نص11.Visible = False End If End Sub تقدر تلعب بسطر التأخير ،بالثوان: PauseTime = 20 جعفر 304.abc.mdb.zip

وعليكم السلا م الوصفات الطبية تُحفظ في جدول 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 الظاهر ان انا عندي عادة سيئة ، وهي اذا انا ما مقتنع من طريقة معينة او اعتقد ان بيكون فيها مشكلة ، فما اعرض الحلول لها جعفر

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