Tipp 3.2 - Ist Bericht im Entwurf

Wie kann ich überprüfen, ob sich ein geöffneteter Bericht im Entwurfsmodus befindet?

Mit dieser Funktion können Sie überprüfen, ob sich ein geöffneteter Bericht im Entwurfsmodus befindet. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Public Function A2XIsReportInDesignView(prptIn As Report) As Boolean
'// =====================================================
'// Methode   | Überprüft, ob der angegebene Bericht in
'//           | der Entwurfsansicht geöffnet ist
'// -----------------------------------------------------
'// Parameter | prptIn  - Report-Objekt
'// -----------------------------------------------------
'// Rückgabe  | Boolean - Wahr/Fals
'// -----------------------------------------------------
'// Erstellt  | Manuela Kulpa
'//           | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
'// Beispielaufruf:
'// ?A2XIsReportInDesignView(Reports("rptTest"))
'// =====================================================
    Dim vDummy As Variant
    On Error Resume Next
 
    vDummy = prptIn.PrintCount
 
    A2XIsReportInDesignView = (Err.Number <> 0)
 
A2XIsReportInDesignView_Exit:
    On Error GoTo 0
    Exit Function
 
End Function


Zurück Tipp 3.1 - Name aktiver Bericht | Inhalt | Tipp 3.3 - Controls in Array Weiter