دالة لاختصار الوقت والجهد على المصمم .. التحكم بخصائص النماذج والتقارير دفعة واحدة

[ابوخليل]

السلام عليكم

في اعمالي دوما اجعل خصائص النماذج والتقارير  منبثق ( pop Up) = نعم  و النمط النموذجي (modal ) = نعم  وكذلك التقارير

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

ولكن في معمعة التصميم  اجعلها كلها = لا  والسبب انني احتاج الى فتح اكثر من نموذج وتقرير والتعامل معها في نفس الوقت

واحيانا انتهي من المشروع واضبط الجميع على الخصيصة = نعم ثم يطرأ تعديلات في المشروع على اكثر من نموذج وتقرير

وهنا انا ملزم بتغيير الخصيصة الى = لا  من اجل تسهيل العمل والتنقل

احيانا يكون التعديل على 3 او 4 نماذج او اكثر

ولكم ان تتخيلوا  ان المشروع احيانا يشتمل على اكثر من 20 نموذجا ومثلها او اكثر من التقارير

وفي النهاية ومن باب الحرص على الضبط  .. اقوم بفتح جميع النماذج والتقارير للتأكد من ان الخصيصة على ما يرام ، وهذا لا شك مرهق ويأخذ من الجهد والوقت الكثير ..

لذا هداني الله لدالة تقوم بالعمل نيابة عني في جزء من الثانية

تجدون ادناه الدالة لتفعيل الخصائص المختارة .. ولاحظوا انه يمكن عكس العملية وبسهولة

الدالة عامة لجميع الخصائص .. عليك اختيار الخصيصة فقط لتعميمها على جميع النماذج ومثلها ايضا على جميع التقارير

'تطبيق على جميع النماذج
Public Function funforms()
Dim frm As Object
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Forms(frm.Name).PopUp = True
    Forms(frm.Name).Modal = True
    Forms(frm.Name).ShortcutMenu = False
    DoCmd.Close acForm, frm.Name, acSaveYes
Next
End Function

' ومثلها للتقارير
Public Function funreports()
Dim rep As Object
For Each rep In CurrentProject.AllReports
     DoCmd.OpenReport rep.Name, acDesign
    Reports(rep.Name).PopUp = True
    Reports(rep.Name).Modal = True
    Reports(rep.Name).ShortcutMenuBar = "cmb_Copy_Sort_Filter" 'قائمة استاذنا جعفر المختصرة
    DoCmd.Close acReport, rep.Name, acSaveYes
Next
End Function

 

[ابو جودي]

54 دقائق مضت, ابوخليل said:

السلام عليكم

في اعمالي دوما اجعل خصائص النماذج والتقارير  منبثق ( pop Up) = نعم  و النمط النموذجي (modal ) = نعم  وكذلك التقارير

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

ولكن في معمعة التصميم  اجعلها كلها = لا  والسبب انني احتاج الى فتح اكثر من نموذج وتقرير والتعامل معها في نفس الوقت

واحيانا انتهي من المشروع واضبط الجميع على الخصيصة = نعم ثم يطرأ تعديلات في المشروع على اكثر من نموذج وتقرير

وهنا انا ملزم بتغيير الخصيصة الى = لا  من اجل تسهيل العمل والتنقل

احيانا يكون التعديل على 3 او 4 نماذج او اكثر

ولكم ان تتخيلوا  ان المشروع احيانا يشتمل على اكثر من 20 نموذجا ومثلها او اكثر من التقارير

وفي النهاية ومن باب الحرص على الضبط  .. اقوم بفتح جميع النماذج والتقارير للتأكد من ان الخصيصة على ما يرام ، وهذا لا شك مرهق ويأخذ من الجهد والوقت الكثير ..

لذا هداني الله لدالة تقوم بالعمل نيابة عني في جزء من الثانية

تجدون ادناه الدالة لتفعيل الخصائص المختارة .. ولاحظوا انه يمكن عكس العملية وبسهولة

الدالة عامة لجميع الخصائص .. عليك اختيار الخصيصة فقط لتعميمها على جميع النماذج ومثلها ايضا على جميع التقارير

 

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

استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل 

ممكن نكتب الكود بالشكل ده  ليكون دالة واحدة فقط

' دالة لتطبيق الإعدادات على النماذج والتقارير
Public Sub ApplySettingsToAllObjects()
    Dim obj As Object
    On Error Resume Next  ' تجاهل الأخطاء لتجنب توقف الكود
    
    ' تطبيق الإعدادات على النماذج
    For Each obj In CurrentProject.AllForms
        DoCmd.openForm obj.Name, acDesign
        Forms(obj.Name).PopUp = True
        Forms(obj.Name).Modal = True
        Forms(obj.Name).ShortcutMenu = False
        DoCmd.Close acForm, obj.Name, acSaveYes
    Next
    
    ' تطبيق الإعدادات على التقارير
    For Each obj In CurrentProject.AllReports
        DoCmd.openReport obj.Name, acDesign
        Reports(obj.Name).PopUp = True
        Reports(obj.Name).Modal = True
        Reports(obj.Name).ShortcutMenuBar = "cmb_Copy_Sort_Filter" ' قائمة استاذنا جعفر المختصرة
        DoCmd.Close acReport, obj.Name, acSaveYes
    Next
    
    On Error GoTo 0  ' إعادة تفعيل التعامل مع الأخطاء
    MsgBox "تم تطبيق الإعدادات على جميع النماذج والتقارير بنجاح!", vbInformation
End Sub

 

وزيادة فى الخير واثراء للموضوع

هذا الموضوع ايضا لاشرطة الاوامر المختصرة