Option Compare Database
Option Explicit
Function ModalOff()
    FormModal(False, "F_") = True
    ReportModal(False, "E_") = True
    
    FormModal(False, "SF_") = True
    ReportModal(False, "SE_") = True
End Function
Function ModalOn()
    FormModal(True, "F_") = True
    ReportModal(True, "E_") = True
End Function
Function FormModal(boModal As Boolean, sPartName As String)
'FormModal( True , "F_" )
'ce qui placera tous les formulaires dont le nom commence pas "F_" en modal.
'FormModal( False , "F_Clients" )
'ce qui supprimera la propriété modale de tous les formulaires dont le nom commence par "F_Clients"
    Dim obj As AccessObject, db As Object
    Dim sForm As String, sFormList As String
    Set db = Application.CurrentProject
    '/ Boucler sur tous les formulaires
    For Each obj In db.AllForms
        sForm = obj.Name
        If Left(sForm, Len(sPartName)) = sPartName Then
            sFormList = sFormList & sForm & vbCrLf
            DoCmd.OpenForm (sForm), acDesign, , , , acHidden
            Forms(sForm).Modal = boModal
            DoCmd.Close acForm, sForm, acSaveYes
        End If
    Next obj
    MsgBox "Liste des objets traités:" & vbCrLf & vbCrLf & sFormList '/ Libérer
    Set db = Nothing
End Function
Function ReportModal(boModal As Boolean, sPartName As String)
'ReportModal( True , "E_" )
'ce qui placera tous les états dont le nom commence pas "E_" en modal.
'ReportModal( False , "E_Clients" )
'ce qui supprimera la propriété modale de tous les états dont le nom commence par "E_Clients"
    
    Dim obj As AccessObject, db As Object
    Dim sReport As String, sReportList As String
    Set db = Application.CurrentProject
    '/ Boucler sur tous les états
    For Each obj In db.AllReports
        sReport = obj.Name
        If Left(sReport, Len(sPartName)) = sPartName Then
            sReportList = sReportList & sReport & vbCrLf
            DoCmd.OpenReport (sReport), acViewDesign, , , acHidden
            Reports(sReport).Modal = boModal
            DoCmd.Close acReport, sReport, acSaveYes
        End If
    Next obj
    MsgBox "Liste des objets traités:" & vbCrLf & vbCrLf & sReportList '/ Libérer
    Set db = Nothing
End Function