Switch Modal

Les états possèdent une propriété qui leur permet de rester à l'avant-plan (modale).

Si l'on souhaite modifier cette propriété, il faut ouvrir l'état en mode création, se rendre dans la fenêtre des propriétés, modifier la propriété "Fenêtre modale" et pour finir, sauver l'état.

Lorsqu'il s'agit de faire cela pour une série d'états, cela devient rapidement fastidieux... sauf si l'on utilise la fonction ReportModal( ) ci-dessous!

Utilisation:

Cette fonction sera appelée par un bouton sur un formulaire ou dans la fenêtre d'exécution directe que l'on appelle par les touches Ctrl + G

Exemples d'appels à la fonction:

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"

Function ReportModal(boModal As Boolean, sPartName As String)
    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