kanory

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

Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim R As Integer Dim firstRecordFields As String Dim firstRecordFields1 As String Set rs1 = CurrentDb.OpenRecordset("SELECT Table1.الاسم FROM Table1 GROUP BY Table1.الاسم;", dbOpenDynaset) rs1.MoveLast: rs1.MoveFirst R = rs1.RecordCount For i = 1 To R Set rs = CurrentDb.OpenRecordset("SELECT Table1.الاسم, Table1.العمل1, Table1.العمل2, Table1.اللجنة1, Table1.اللجنة2 " & _ " FROM Table1 " & _ " WHERE (((Table1.الاسم)=""" & rs1!الاسم & """));", dbOpenDynaset) If Not (rs.BOF And rs.EOF) Then rs.MoveLast firstRecordFields = rs!العمل1 firstRecordFields1 = rs!اللجنة1 rs.MoveFirst rs.Edit rs!العمل2 = firstRecordFields rs!اللجنة2 = firstRecordFields1 rs.Update End If rs1.MoveNext Next i rs.Close rs1.Close Set rs = Nothing Set rs1 = Nothing لهذا كان السؤال .... لان الكود أو البرنامج ممكن يعلق يوقف يحدث خطأ ما ... عندها لن تستطيع العودة لتلك البيانات .... على العموم جرب هذا الكود وبدون حذف ,,, فقط تحديث للبيانات

رغم ان العنوان لا يمثل المطلوب وهذا مخالف لترتيبات وقوانين المنتدى ..... لكن بعد الدمج ماهو مصير السجل الثاني ( هل يحذف أم يبقى في الجدول ) .......

طيب ممكن نستخدم هذه الطريقة .... ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟ Dim db As Object Dim rst As DAO.Recordset Dim mySQL As String Dim i, m As Integer mySQL = "SELECT DISTINCT جدول1.[اسم العامل], DSum(""راتب"",""جدول1"",""[اسم العامل] ='"" & [اسم العامل] & ""'"") AS Expr1 FROM جدول1;" Set rst = CurrentDb.OpenRecordset(mySQL) rst.MoveLast: rst.MoveFirst If Not rst.BOF Then rst.MoveFirst Dim ctl As Control For i = 1 To rst.RecordCount Me.Controls("a" & i).Caption = "مجموع" & " " & rst.Fields(0) Me.Controls("b" & i).Caption = rst.Fields(1) rst.MoveNext Next i rst.Close Set rst = Nothing مثال (5).accdb

جرب المرفق ..................... New Microsoft Access Database (9).accdb

انا اعتذر منك على المواصلة .....

جرب هذا ........ Private Sub Order_No_AfterUpdate() D_R = DateAdd("d", -3, Date) On Error GoTo Errw DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.supplier = "مرفوض" And Me.mark = 0 And Format(Me.inday, "dd/mm/yyyy") <= Format(D_R, "dd/mm/yyyy") And IsNull(Me.P_Odate) Then DoCmd.GoToRecord , , acLast DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord Me.Order_No.SetFocus MsgBox "لايمكن اضافة جديد" Exit Sub Else Me.Order_No.SetFocus End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: End Sub

تغضل طبق على مثالك

واياك اخي الكريم

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

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

راجع المرفق وتأكد فقط الان من الشروط الاربعة هل تحققت .......... Datab (officena).accdb

فقط المحدد ..... جرب

تفضل .... Private Sub Command6_Click() If CheckA.Value = True Then DoCmd.OpenReport "Report1", acViewPreview End If If CheckE.Value = True Then DoCmd.OpenReport "Report4", acViewPreview End If If CheckC.Value = True Then DoCmd.OpenReport "Report2", acViewPreview End If If CheckD.Value = True Then DoCmd.OpenReport "Report3", acViewPreview End If End Sub

هل تسلسل السجل الظاهر لدينا في الصورة دائما اول سجل ام هناك اختلاف في تسلسله ( اقصد الان ظاهر كاول سجل ... هل ممكن ان يكون في مرات اخرى ثان او ثالث سجل مثلا )

لم افهم ؟؟؟؟

طيب شوف كدة ..... بداية ... kan_1.accdb

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

تفضل ................... tah.accdb

وعليكم السلام أخي @Foksh هذا الملف يفيدك kan.accdb

نعم ........ تفضل tah.accdb

مشاركة مع اخي الفاضل @kkhalifa1960 التعديل::::: عدم اختيار خمس مواد واذا تم الاختيار يقوم البرنامج بمسح اخر اختيار حفظ الاختيارات في الجدول عند فتح النموذج مرة اخرى تجد نفس الاختيارات موجود ( للتعديل - الالغاء - الاضافة ) في نفس الليست بوكس تعديل التقرير حسب اسم الطالب انظر الصورة ..... tah.accdb

جزاك الله خير استاذي القدير @ابوخليل جاري التجربة .... بارك الله فيك