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