ابوخليل

If IsNull([الادارة]) Or [الادارة] = 0 Then Undo MsgBox "لا يمكنك ترك الحقل فارغا" Exit Sub End If حاول ان تغلق النموذج بعد ان تترك حقل الإدارة فارغا ثم اذهب الى الجدول وانظر .. لن يتم حفظ السجل __bb-4 - Copy.accdb

اي المثالين تريد ؟ من خلال الجدول او من خلال الفورم ؟ وما الحقل الذي تريد التطبيق عليه ؟

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

الحمد لله

اليك الحل بطريقتين الطريقة الاولى من خلال حقول النموذج Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acComboBox Or ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Or ctl.Value = 0 Then Undo MsgBox "لا يمكنك ترك احد الحقول فارغا" Exit Sub End If End If Next ctl والثانية من خلال حقول الجدول Select Case DataErr Case 2113 End Select Response = acDataErrContinue MsgBox "لطفا لا يمكنك ترك احد الحقول خاليا", vbOKOnly, "تنبيه!!" Exit Sub Downloads.rar

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

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

الله يحفظك استاذنا الكريم فكرة منع التكرار جميلة .. والذي جاء على بالي بعد تصفح المرفق ان جدول1 اصناف وجدول2 تفاصيل و كما تعلم التكرار مطلوب ولكني حقيقة وقفت حائرا امام جلب التاريخ .. وضع عندي علامة استفهام ؟ بل اجابتك الاخيرة هي افضل اجابة

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

تفضل Private Sub itemCode_AfterUpdate() Me.Refresh Dim rs As Recordset Dim strsql As String strsql = "SELECT Table1.* FROM Table1 WHERE Table1.[itemCode]=" & [Forms]![AdditemPerCode]![itemCode] Set rs = CurrentDb.OpenRecordset(strsql) Me.itemname = rs!itemname Me.itemdesc = rs!itemdesc Me.itemqty = rs!itemqty Me.dateee = rs!dateee End Sub Database3.accdb

انظر المرفق printRprt3.rar

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

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

ابحث هنا عن موضوع قطع الاتصال عن المستخدمين الآخرين موجود هنا تمت مناقشته تحتاج اليه عند حدوث مشكلة او عند التعديل والتطوير

انظر هذا الموضع سوف يفيدك ان شا الله

نعم او هكذا forms!formain!subform!FieldName.Enabled = False

DoCmd.CopyObject , Me.comboform, acForm, "No deletion" حلوة .. سلمت اناملك .. @TQTHAMI ننتظر المزيد

نعم غير المعيار الى [Forms]![كشف حساب]![مبلغ]

طلبك اختلف بالاول تريد الفلاش الخارجي وبياناته مفصلة والآن تريد الفلاش الخارجي من اجل النسخ وفرق بين الاثنين الأن انت بحاجة الى مسار الفلاش الخارجي من اجل نسخه

تفضل بمجرد اختيار المادة يظهر لك عدد الحقول الفارغة Private Sub txt_nshat_AfterUpdate() Dim i, R As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast rs.MoveFirst x = txt_nshat For i = 1 To rs.RecordCount If Not IsNull(rs.Fields(x)) Then rs.MoveNext Else R = R + 1 rs.MoveNext End If Next Me.fark = R End Sub رصد الانشطة4.rar

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

او من خلال النموذج جعل خانة الخيار ( نعم/ لا ) شرط في اظهار او اخفاء زر الطباعة ، او اظهار مربع نص بلون احمر يفيد بوضعه

تفضل استبدل كامل الكود الموجود في الحدث بهذا If Me.txt_nshat = "" Or IsNull(Me.txt_nshat) Then MsgBox "رجاء اختر النشاط", vbCritical Exit Sub End If Me.txt_drga2 = Me.drga2 If Me.drga2 = "" Or IsNull(Me.drga2) Then MsgBox "رجاء ضع الدرجة المطلوبة", vbCritical Exit Sub End If Dim i As Integer, R As Integer, k As Integer Dim rs As Recordset Dim x As String Set rs = Me.RecordsetClone rs.MoveLast R = rs.RecordCount rs.MoveFirst x = txt_nshat k = DCount(x, "tb_trm1", x > "0") If k > 0 Then MsgBox "سبق رصد الدرجة ! لا يمكنك تسجيل هذه المادة" Else rs.MoveFirst Do While Not rs.EOF rs.Edit rs.Fields(x) = drga2 rs.Update rs.MoveNext Loop MsgBox "تم رصد نشاط" & " " & Me.txt_nshat.Column(1) End If Me.Refresh

شكرا لثنائك مهندس قاسم .. بارك الله فيك وكتب اجرك مثلك تماما في البداية جاء على بالي الجدول ولكني نظرت فإذا القيم ثابتة لا يمكن ان تتبدل . لذا افضل مكان لها هو الكود الاعمال التي يحتمل ان يجري عليها التعديل مثل .. جداول الحصص المدرسية او سلم الرواتب والمكافآت ... وامثالها .. فهذه يجب ن يكون مكانها الجدول

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