kanory

راجع المرفق وتأكد فقط الان من الشروط الاربعة هل تحققت .......... 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

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

طيب جربي المرفق .......... LABBB (2).accdb

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

امين واياك ....

طيب <><><><><><> اكيد مع عمل البرنامج تظهر عبارات اخرى ..... على العموم اضفت مصفوفة يمكن من خلالها اضافة عبارات اخرى Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) myT = Array("مدام", "عبارة1", "عبارة2") For Each t In myT If t = ComboBox1.Value Then TT = t: Exit For End If Next t If ComboBox1.Value = TT Or lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub

تفضلي <><><><><><> Private Sub ComboBox1_Change() Dim lastChar As String lastChar = Right(ComboBox1.Text, 1) If lastChar = "ه" Or lastChar = "ة" Then ComboBox2.SetFocus: ComboBox2.Text = "female" Else ComboBox2.SetFocus: ComboBox2.Text = "male" End If End Sub

طيب جربي المرفق هذا <><><><><> LABBB (2).accdb

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

حسب الاحصاء النظري هو نفس العدد انظري الصور التالية