كود تحويل كل النماذج و التقارير الى modal @ Popup الكود يلغى التصميم و ادراج حقول فى النموذج و التقرير

كود تحويل كل النماذج و التقارير الى modal @ Popup
الكود يلغى التصميم و ادراج حقول فى النموذج و التقرير
Private Sub Command26_Click()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' البحث عن النماذج
For Each obj In dbs.AllForms
'الغير مفتوحه
If obj.IsLoaded = False Then
'وضع التصميم
DoCmd.OpenForm obj.Name, acDesign, , , , acHidden

With Forms(obj.Name)
'الوضع مفعل
.PopUp = True
.Modal = True

End With
'حفظ و اغلاق
DoCmd.Save acForm, obj.Name
DoCmd.Close acForm, obj.Name

End If
Next obj

'''''''التقارير''''''''''''''''''''''''
Dim obj1 As AccessObject, dbs1 As Object
Set dbs1 = Application.CurrentProject
' البحث عن التقارير
For Each obj1 In dbs1.AllReports
'الغير مفتوحه
If obj1.IsLoaded = False Then
'وضع التصميم
DoCmd.OpenReport obj1.Name, acDesign, , , , acHidden

With Reports(obj1.Name)
'الوضع مفعل
.PopUp = True
.Modal = True

End With
'حفظ و اغلاق
DoCmd.Save acReport, obj1.Name
DoCmd.Close acReport, obj1.Name

End If

Next obj1
End Sub