كيف يمكنني التحكم باستعراض الورقة الفرعية برمجيا في النموذج

[عبد الله قدور]

السلام عليكم ورحمة الله وبركاته

 

اريد التحكم بفتح واستعراض النموذج الفرعي بحيث ان اضع زر في النموذج الرئيسي يفتح كل اشارات  + الموجودة وزر اخر يغلق كل الاشارات -

بعبارة اخرى طي السجلات و فتح السجلات كاملة

 

تحياتي للجميع

 

[ابو جودي]

ممكن مرفق

[ابو جودي]

المرفق يسهل على منر يريد تقديم المساعدة 

ارجوك لا تقتصر على مجرد اسألة نظرية 

[عبد الله قدور]

السلام عليكم

إليك المرفق اخي ابا جودي

 

Database2.accdb

[SEMO.Pa3x]

عليكم السلام..

 

'طي جميع السجلات
RunCommand acCmdSubdatasheetCollapseAll
'فتح جميع السجلات
RunCommand acCmdSubdatasheetExpandAll

 

[SEMO.Pa3x]

أو يمكنك استعمال:

Private Sub cmdClose_Click()

    Forms!frmaccount!subform.SubdatasheetExpanded = False

End Sub

Private Sub cmdOpen_Click()

    Forms!frmaccount!subform.SubdatasheetExpanded = True
    
End Sub

 

من خلال تغيير الخاصية SubdatasheetExpanded المسؤولة عن فتح وطي السجلات برمجياً

[jjafferr]

السلام عليكم 🙂

 

تعديل بسيط على كود اخوي حسنين:

Private Sub cmd_Colapse_Click()

    Me.subform.Form.SubdatasheetExpanded = False
End Sub

Private Sub cmd_Expand_Click()

    Me.subform.Form.SubdatasheetExpanded = True
End Sub

 

جعفر

[عبد الله قدور]

منذ ساعه, 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

 

جعفر

حياكم الله اخواني الكرام جميعا

الكود يعمل بشكل جيد

لكن على الفورم الفرعي الاول فقط ولا يعمل على الفورم الفرعي الثاني ، الذي هو بداخل الفورم الفرعي الاول وهكذا الى الفورم الاخير

[ابو جودي]

اتفضل تجربتى  

 

Database2 (1).accdb

[jjafferr]

سيدي الفاضل ، 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