Barna

الحمد الله رب العالمين واياك اخي محمد

تفضل جرب ............... On Error Resume Next If IsNull(Me.tslsul) Then Me.Undo Me.U1.SetFocus Else If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Me.U1.SetFocus Exit Sub Else Dim i As Integer, k As Integer 'k = tag1![COU] 'و مهمته هي حساب عدد السجلات لتكرار الكود' ' المربع موجود في النموذج لفرعي Tag1 Me.tag1.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To [Forms]![Tag]![tag1].Form![COU] DoCmd.SetWarnings False DoCmd.RunSQL " UPDATE hmola SET hmola.tag = false WHERE (((hmola.byan)=[Forms]![tag]![tag1].Form![byan]));" DoCmd.SetWarnings True DoCmd.GoToRecord , , acNext Next i [Forms]![Tag]![esm].SetFocus DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Refresh MsgBox "تمت عملية الحذف بنجاح", , "تم" Me.U1.SetFocus End If End If

لم افهم ما المقصود ببقية الكود

طيب جرب كودك الان .................... On Error Resume Next If IsNull(Me.tslsul) Then Me.Undo Me.U1.SetFocus Else If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Me.U1.SetFocus Exit Sub Else Dim i As Integer, k As Integer 'k = tag1![COU] 'و مهمته هي حساب عدد السجلات لتكرار الكود' ' المربع موجود في النموذج لفرعي Tag1 Me.tag1.SetFocus DoCmd.GoToRecord , , acFirst For i = 1 To [Forms]![Tag]![tag1].Form![COU] DoCmd.SetWarnings False DoCmd.RunSQL " UPDATE hmola SET hmola.tag = false WHERE (((hmola.byan)=[Forms]![tag]![tag1].Form![byan]));" DoCmd.SetWarnings True DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Refresh MsgBox "تمت عملية الحذف بنجاح", , "تم" Me.U1.SetFocus End If End If

طيب .. انا على الموبايل ... ارجع ووافيك

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

جرب هذا الكود بدل الموجود لديك ........................ On Error Resume Next If IsNull(Me.tslsul) Then Me.Undo Me.U1.SetFocus Else If MsgBox("هل تريد الحذف فعلاً ؟", vbYesNo + vbCritical + vbMsgBoxRight + vbDefaultButton2, "تحذير") = vbNo Then Me.U1.SetFocus Exit Sub Else DoCmd.SetWarnings False DoCmd.RunSQL " UPDATE tag1 INNER JOIN hmola ON tag1.byan = hmola.BYAN SET hmola.tag = False;" DoCmd.SetWarnings True DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True Me.Refresh MsgBox "تمت عملية الحذف بنجاح", , "تم" Me.U1.SetFocus End If End If

الكود شغال .... ماذا تريد بالضبط ... ممكن شرط مبسط ؟؟؟

اضافة لماتفضل اخي عمر ... اضغط بزر الماوس في التقرير لديك ثم اتبع الصور ....

افتح النموذج ثم اضغط على الزر الموجود ........ Bar_234.accdb

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

هل هذا التصور صحيح .... انظر الصورة ودقق هل النتيجة الظاهرة صحيحة كما تريد ؟؟؟؟

دوال التكرار كثيرة ... انظر وطبق الأول: الدالة For Dim i As Integer, k As Integer k = 4 For i = k To 1 Step -1 MsgBox i Next i الثاني: الدالة Do While Dim i As Integer i = 4 Do While i >= 1 MsgBox i i = i - 1 Loop الثالث: الدالة Do Until Dim i As Integer i = 4 Do Until i < 1 MsgBox i i = i - 1 Loop الرابع: الدالة Do.....Loop Until Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop Until i < 1 الخامس: الدالة Do.....Loop While Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop While i >= 1

والان بعد الشروحات والمقدمات الطويلة للفائدة هذه الطريقة الاخيرة مختصرة وبدون استعلامات .... نفس طريقتك السابقة مع تعديل بسيط فقط Value Students (1).accdb

وايضا يمكن عملها في الاستعلام مباشرة بهذا الشكل ...........

تفضل <><><><><> Students.accdb

اخي @الشربيني 123 من يستحق افضل اجابة هي اجابة استاذي الفاضل @jjafferr بارك الله بك وبه .....

تفضل <><><><><> On Error Resume Next DoCmd.OpenReport "R1", acViewReport, , "[المؤهل]=" & Me.HA & " and [النوع]=" & Me.SI DoCmd.Close acForm, Me.Name

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

ارفق مثال للنموذج والتقربر

هل النموذج المراد اغلاقة به هذا الزر الذي يحوي الكود السابق ؟؟؟؟؟

جرب ................ DoCmd.Close DoCmd.OpenReport "M11", acViewReport, , "[GER]=" & Me.GE & _ "and [NOV]=" & Me.SX

جرب اذا ناسبقك ..... تأكد من الاعمار لديك واكمل حتى تتعلم الكود ...... Aziz (2).zip

منطقيا وحسب ماذكرت انت ...... هذه الحسبة تختلف من سنة لاخرى فمثلا : 2017 = تمهيدي هذه السنة 2017 = الاول السنة القادمة وهكذا لبقية التواريخ ..... لذلك ارى والله أعلم ان تفكر في عمر التلميذ وليس السنة ........

تفضل ... اكتب الكود المطلوب ثم دبل كلك على مربع النص وانظر ..... test (13).accdb