Barna

الف . الف . مبروك ابا احمد ...... تستاهل .... اعانك الله وسدد خطاك .

بارك الله فيك أخي الكريم : اولا : مبارك لك الترقية وأسأل الله تعالى لك وللجميع التوفيق والسداد والاعانة .. تستاهل . الف . الف . مبروك ثانيا : فكرة المنتدى في اساسه التعلم والتعليم ..... كلنا نتعلم وانا اولكم ..... فأكثر من اجابة ومشاركة في الأراء تثري الموضوع .... تفضل أخي الكريم التعديل ..... DB5 (1).mdb

طيب .... جرب المرفق .... DB5 (1).mdb

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

وعليكم السلام ورحمة الله وبركاته ... بالنسبة للمطلوب الاول : الأفضل يبقى كما هو ... لأنك قد تظطر الى الغاء الفاتورة مثلا ..... لكن حسب رغبتك تفضل ...... انقل هذا الكود من زر الحفظ الى حدث النموذج عند الفتح Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl") + 1) Forms!Form1.InvoiceID1 = Year(Date) & "- " & Forms!Form1.ID.Value بالنسبة للمطلوب الثاني : للاسف غير مفهوم لي !!!!!!

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

تفضل جرب ............... 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

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

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