jjafferr

تفضل يا باش مهندس الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

تفضل الاستعلام: . والنتيجة: . جعفر 308.Tire operation System.mdb.zip

وعليكم السلام اعمل استعلام اجمالي ، واضف الحقل sn مرتين ، مرة استعمله كمجموعة ، والثانية تعداد (واعمل فيها معيار <1 ، واجعله تنازليا) جعفر

السلام عليكم انا لا خبرة لي في هذا الموضوع ، ولكنه احد المواضيع المتداولة كثيرا ، Form Resizer انت في الواقع تريد: https://www.fmsinc.com/microsoftaccess/controls/components/form-resizer/index.html الاكسس 2010 له طريقة تستطيع ان تكبر/تصغر احجام حقول معينة في حال تكبير/تصغير الشاشة ، عن طريقة Anchoring ، مثل حقل Notes في الرابط التالي: http://www.appliedoffice.net/news/2009-may/access.html وهنا امثلة يمكن انزالها لتكبير/تصغير النموذج كاملا: http://jamiessoftware.esy.es/resizeform/afr.zip http://jamiessoftware.esy.es/articles/resolution.html http://www.databasejournal.com/features/msaccess/article.php/3689226/Auto-Resize-Access-Subforms.htm جعفر

شكرا اختي الفاضلة

يا استاذ عبدالعزيز لوسمحت المرة القادمة تعطي معلومات كاملة عن الشئ اللي تريد ان تعمله ، وبالتفصيل ، يعني مثل ما عملت في المشاركة الاخيرة ، بس علشان استطيع ان افهم الموضوع السبب انك لا تستطيع ان تعمل تصفية للحقل natygh مثلا في الاستعلام ، لأن الحقل جاري احتسابه في الاستعلام وانت تريد تصفيته ، فما يصير ، يصير ان نعمل تصفية للمعلومات الجاهزة فقط!! لذلك ، اعمل استعلام جديد ولنسميه qry_Data_Entry2 ، واجعل مصدره الاستعلام qry_Data_Entry (هنا يكون الاستعلام qry_Data_Entry قد قام بالحساب والجمع) ، ثم اعمل التصفية على الحقلين natygh و mostwa في الاستعلام qry_Data_Entry2 طبعا لا تنسى ان تغير مصدر بيانات النموذج الى qry_Data_Entry2 جعفر 307.1.المعلم اليمني المجموع والمحصله.mdb.zip

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

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

عفوا ، عندك مسافة اضافية بين [ 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