Shivan Rekany

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

يجب ان نشوف القاعدة حتى نقدر نقولك وين الخلل ... ممكن ان ترفق نصخة مصغرة من قاعدة بياناتك ؟ تكتب لنا سؤالك بللون الابيض وراح نجاوبك بنفس اللون

If Not IsNumeric(Me.text0) And Not IsNumeric(Me.text1) And Not IsNumeric(Me.text2) Then Me.text0.BackColor = vbWhite: Me.text1.BackColor = vbWhite: Me.text2.BackColor = vbWhite Else If Me.text0 > Me.text1 And Me.text0 > Me.text2 Then Me.text0.BackColor = vbRed Me.text1.BackColor = vbWhite Me.text2.BackColor = vbWhite ElseIf Me.text1 > Me.text0 And Me.text1 > Me.text2 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbRed Me.text2.BackColor = vbWhite ElseIf Me.text2 > Me.text1 And Me.text2 > Me.text0 Then Me.text0.BackColor = vbWhite Me.text1.BackColor = vbWhite Me.text2.BackColor = vbRed End If End If TEST TRY.accdb

اتفضل كما مبينة في الصورة او بدل ما تتغيره كما في الصورة تقدر تستخدم هذه الجملة Me.ProgressBar2.Max = 120 تقدر تنقصه او تزيده واليك المثال ProgressBar.mdb

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

عند كتابة تاريخ معين النتيجة وعند كتابة لا شيء النتيجة اظن ان هذا قد كان تريد او انا فهمت من الموضوع خطأً اليك الاستعلام كويري 1 Like chose date or all date .mdb

=([Forms]![Form1]![txtPosition]+[Page])-1 Page Number.accdb

اكتب هذا Like "*" & [chose date]

If Me.[وقت الخروج] < Me.[وقت الدخول] Then MsgBox "لا يمكن الحفظ لأن وقت الدخول هو اكبر من الوقت الدخول" Else DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec End If Database391test.accdb

الاشكالية كان في استدعاء الطباعة للنموذج اوراين انا غيرت الشرط فيه من Appearance الى crystals انت تقدر ان تغيره الى احد الحقول اللي يجب ان تكتب فيه البيانات واذا ما تكتب فيه ان لا يطبع التقرير ولتجنب اي رسالة تقدر ان تكتب هذه الجملة في بداية الكود on error resume next لكن انا لا استخدمه كثيرا نعم ممكن ... لكن في هذه القاعدة انا فقد قمت باخفائهم Print by one click.rar

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

اتفضل ما طلبت اولا تم تغيير الكود للطباعة التقارير في النماذج الفرعية اولا غيرت نوعيته من Private الى Public و بعدين اضفت لهم جملة شرطية هكذا Public Sub Command21_Click() If Len(Me.Direct & vbNullString) <> 0 Then DoCmd.RunCommand acCmdSaveRecord stDocName = "St" DoCmd.OpenReport stDocName, acNormal End If End Sub وفي النموذج الرئيسي كتبت هذا الكود Private Sub PrintReports_Click() Call Form_stool.Command21_Click Call Form_Urine.Command33_Click Call Form_Chemistry_Tests.Command14_Click End Sub Print by one click.rar

اتفضل اليك مثال على ذلك بطريقة اخرى Private Sub Form_Current() If Me.RecordsetClone.RecordCount >= 10 Then ' Me.Names.Enabled = False ' Me.ID.Enabled = False ' Me.PhoneNumber.Enabled = False Me.Form.AllowAdditions = False Else ' Me.Names.Enabled = true ' Me.ID.Enabled = true ' Me.PhoneNumber.Enabled = true Me.Form.AllowAdditions = True End If End Sub فقط استقبال 10 سجلات في النموذج.accdb

اتفضل اليك هذا فيه ما تريد واليك هذا

وهذا تطبيق لمشاركة استاذ ابو خليل اخفاء خلفيه الحقل.accdb

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

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

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

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

اتفضل استخدمت هذا الكود Private Sub الرقم_المدني_للزوج_BeforeUpdate(Cancel As Integer) If DCount("*", "البيانات", "[الرقم المدني للزوج]=" & Me.الرقم_المدني_للزوج) > 0 Or DCount("*", "البيانات", "[الرقم المدني للزوجة]=" & Me.الرقم_المدني_للزوجة) > 0 Then MsgBox "هذا الرقم مكرر ... رجاءا قم بتغيره" Cancel = -1 End If End Sub الفطر.rar

السلام عليكم لمثل هذه المواضيع تقدر ان تستخدم دالة DCount اذا تبحث عنهستجد كثير مثالات على ذلك كنت اريد ان اعمل تعديل على مرفقك لكن هناك سؤالك غير واضح بنسبة لي هل تريد مثلا اذا كتبنا رقم 1 في الحقل رقم المدني للزوج هل تريد ان يبحث عن رقم واحد في الجدول وفي حقل رقم المدني للزوج اذا وجد رقم 1 بيظهر لك رسالة ام تريد ان يبحث في جدول في كلا الحقلين الرقم المدني للزوج والزوجة واذا وجد رقم 1 في احدى الالحقلين بيظهر لك رسالة ام ماذا تريد بالضبط لذلك عندك اختيارين اولا اذا تريد ابحث عن دالة وقم بالعمل ثانيا رد علي وساقوم بالتعديل على مرفقك مع تحياتي

اتفضل استخدم هذا الكود بعد تحديث التسلسل في نموذج الرئيسي Private Sub ID_AfterUpdate() If IsNumeric(Me.ID) Then Form_frm1.ID = Me.ID End Sub اليك المرفق بعد اضافة الكود ProgEmp177.rar

بعد سؤالك ليسة واضحة بنسبة لي ؟

اتفضل تم استخدام الكود هكذا Private Sub أمر6_Click() Dim rst As DAO.Recordset Dim ddate As Date Dim i As Integer, RC As Integer Set rst = CurrentDb.OpenRecordset("SELECT * FROM [HRR]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If rst!Atarih < ddate Then MsgBox (rst!Rjmfatwra & " هناك تسلسل خاطئ في التاريخ للفاتورة رقم ") Else ddate = rst!Atarih End If rst.MoveNext Next i End Sub ومن قبل قام استاذ صالح بتعديل الكود واليك المرفق بعد تعديل فحص تسلسل التاريح (1).accdb

شكرا لك وانا ايضا استخدم نموذج كبديل الرسالة لكن كان اريد اعرف هل يجوز ام لا ... وشكرا لك تعبت معنا 🙂