kanory

طيب ممكن نستخدم هذه الطريقة .... ولكن يبقى ايضا نقطة مربعات التسمية وعددها في النموذج ؟؟؟؟؟ 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

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

مبارك اخي الاستاذ @محمد احمد لطفى تستاهل ... اعانك الله على هذا اللقب ...

ممكن ايقاف عمل السطر .... Private Sub AT_cmd_Click() 'CurrentDb.Execute ("Delete * From test_order_tbl") Me.selected_list.Requery Me.testlist.RowSourceType = "Table/Query" Me.main_title.Caption = "All Tests" ref = "" low = "" high = "" Me.S1 = Null Me.S1.Enabled = False Me.testlist.ColumnCount = 5 Me.testlist.ColumnWidths = "0;1;0;0;0" Me.testlist.RowSource = "qryAllTest" Me.testlist.Requery Me.testlist.OnDblClick = "=Old_Function()" End Sub

هل هذا هو التصور المطلوب ؟