عبد الله قدور قام بنشر ديسمبر 27, 2020 مشاركة قام بنشر ديسمبر 27, 2020 السلام عليكم ورحمة الله وبركاته اريد التحكم بفتح واستعراض النموذج الفرعي بحيث ان اضع زر في النموذج الرئيسي يفتح كل اشارات + الموجودة وزر اخر يغلق كل الاشارات - بعبارة اخرى طي السجلات و فتح السجلات كاملة تحياتي للجميع رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 27, 2020 مشاركة قام بنشر ديسمبر 27, 2020 ممكن مرفق رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 27, 2020 مشاركة قام بنشر ديسمبر 27, 2020 المرفق يسهل على منر يريد تقديم المساعدة ارجوك لا تقتصر على مجرد اسألة نظرية رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 السلام عليكم إليك المرفق اخي ابا جودي Database2.accdb رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 عليكم السلام.. 'طي جميع السجلات RunCommand acCmdSubdatasheetCollapseAll 'فتح جميع السجلات RunCommand acCmdSubdatasheetExpandAll رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 أو يمكنك استعمال: Private Sub cmdClose_Click() Forms!frmaccount!subform.SubdatasheetExpanded = False End Sub Private Sub cmdOpen_Click() Forms!frmaccount!subform.SubdatasheetExpanded = True End Sub من خلال تغيير الخاصية SubdatasheetExpanded المسؤولة عن فتح وطي السجلات برمجياً رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 السلام عليكم 🙂 تعديل بسيط على كود اخوي حسنين: Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() Me.subform.Form.SubdatasheetExpanded = True End Sub جعفر 1 رابط هذا التعليق شارك More sharing options...
عبد الله قدور قام بنشر ديسمبر 29, 2020 الكاتب مشاركة قام بنشر ديسمبر 29, 2020 منذ ساعه, jjafferr said: السلام عليكم 🙂 تعديل بسيط على كود اخوي حسنين: Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() Me.subform.Form.SubdatasheetExpanded = True End Sub جعفر حياكم الله اخواني الكرام جميعا الكود يعمل بشكل جيد لكن على الفورم الفرعي الاول فقط ولا يعمل على الفورم الفرعي الثاني ، الذي هو بداخل الفورم الفرعي الاول وهكذا الى الفورم الاخير رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 اتفضل تجربتى Database2 (1).accdb 2 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر ديسمبر 29, 2020 مشاركة قام بنشر ديسمبر 29, 2020 سيدي الفاضل ، 5 نماذج فرعية !! انا اعطيك الجائزة الاولى لمثل هذا العمق في النماذج 🙂 ولكني ولسبب ما ، اعتقد بأنه بإمكانك عمل هذا بطريقة اسهل ، ولا اعرف كي 🙂 فككت لك الكود بطريقة مفهومة ، وقد يستفيد منها بقية الاعضاء لأمور مثل طلبك : Private Sub cmd_Colapse_Click() Me.subform.Form.SubdatasheetExpanded = False End Sub Private Sub cmd_Expand_Click() On Error GoTo err_cmd_Expand_Click Me.subform.Form.SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubdatasheetExpanded = True Me.subform.Form. _ SubAcc2.Form. _ SubAcc3.Form. _ SubAcc4.Form. _ SubAcc5.Form. _ SubdatasheetExpanded = True Exit_cmd_Expand_Click: Exit Sub err_cmd_Expand_Click: If Err.Number = 2455 Then Resume Exit_cmd_Expand_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وستحصل على الخطأ 2455 اذا لم يكن لديك نماذج فرعية كافية 😁 جعفر Database2.zip 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان