jjafferr

اعطني اسم النموذج ، وكيف استطيع ان ارى هذه الرسائل؟

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

عفوا ، عندك مسافة اضافية بين [ mostwa1] جرب IIf(Len([Forms]![frm_Data_Entry]![mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa]) . واذا ما صار ، فرجاء اخباري اين اجد المشكلة جعفر

عندك قوس زائد الكود الصحيح: IIf(Len([Forms]![frm_Data_Entry]![ mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa]) جعفر

ايش رأيك في مثال موسع أكثر نستطيع ان نعمل قاعدة التحقق من الصحة في كود ، مثلا: اعمل حقل اسمه int_No ، وعلى حدث "الحالي" للنموذج ، استعمل كود مثل هذا: Private Sub Form_Current() If Day(Date) <= 5 Then Me.int_No.ValidationRule = "is null or <=5" ElseIf Day(Date) <= 10 Then Me.int_No.ValidationRule = "<=10" ElseIf Day(Date) <= 15 Then Me.int_No.ValidationRule = "isnumeric([int_No])=true" ElseIf Day(Date) <= 20 Then Me.int_No.ValidationRule = "isnumeric([int_No])=false" ElseIf Day(Date) <= 25 Then Me.int_No.ValidationRule = "between 15 and 30" Else Me.int_No.ValidationRule = "between 1 and 14" End If End Sub . فحسب يوم الشهر ، تتغير قاعدة التحقق من الصحة مرونة تامّه ، مو مثل الجدول جعفر

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

حياك الله أختي وانا اضم صوتي مع اخي ابا جودي ، مثال لتعم الفائده ، لوسمحتي جعفر

وعليكم السلام تفضل ، عملت هذه الحقول في الاستعلام: . وهذا كود كل حقل ، ولا تهتم للمسميات الانجليزية ، فانا وضعتها هنا حتى يتم كتابة/قرأة الكود بالطريقة الصحيحة: magmoa: Nz([althryry],0)+Nz([alsafhy],0)+Nz([alwagp],0)+Nz([almoatapa],0) mohasilh: Round([magmoa]/5,0) natygh: IIf([magmoa]>49.5,"Pass-ناجح",IIf([magmoa]=0,"Absent-غائب","Failed-راسب")) mostwa: IIf([magmoa]>74,"Good-جيد",IIf([magmoa]<50,"Weak-ضعيف","Average-متوسط")) . والنتيجة: جعفر 307.المعلم اليمني المجموع والمحصله.mdb.zip

بالنسبة الى الامر Nz ، انظر الطريقة الصحيحة لإستعماله: جعفر

السلام عليكم تفضل هذا النموذج يعطيك نظرة شاملة عن حقول التواريخ: . قاعدة التحقق من الصحة في الحقول Date_1 و Date_2 ثابته في الجدول ، مثلا: . وقاعدة التحقق من الصحة في الحقول Date_11 و Date_22 متغيرة في الجدول على اساس السنة ، مثلا: . بينما قاعدة التحقق من الصحة في الحقول Date_111 و Date_222 متغيرة في النموذج ، مثلا: . والكود يمكن يكون: سواء Between [Date_From] And [Date_To] او اذا التواريخ موجودة في نموذج خارجي Between [Forms]![frm_Dates]![Date_From] And [Forms]![frm_Dates]![Date_To] . والتجربة: . النتيجة اللي كنت اريد ان اوصل لها هي ، عندما تكون التواريخ متغيرة في النموذج (وهذا رأي اخوي ابو خليل كذلك) ، فيكون عندك تحكم افضل ، وتغييره يكون اسهل ، وخصوصا اذا كان البرنامج عند العميل ، لأن برمجة النموذج ممكنه جعفر 306.Validation_Rule.mdb.zip

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

وعليكم السلام أختي انا اشرت الى هذا النموذج في المشاركة: 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 جعفر