Tipp 3.1 - Name aktiver Bericht

Wie kann ich den Namen des aktiven Berichts ermitteln?

Mit dieser Funktion können Sie den Namen des aktiven Berichts ermitteln. 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 A2XGetActiveReport() As String
'// =====================================================
'// Methode   | Gibt den Namen des aktiven Berichts
'//           | zurück!
'// -----------------------------------------------------
'// Rückgabe  | String - Name des Berichts oder Leer-
'//           | string, falls kein akt. Bericht vorhanden
'// -----------------------------------------------------
'// Erstellt  | Manuela Kulpa
'//           | EDV Innovation & Consulting - Dormagen
'// =====================================================
 
    On Error GoTo A2XGetActiveReport_Error
 
    A2XGetActiveReport = Application.Screen.ActiveReport.Name
 
A2XGetActiveReport_Exit:
    On Error GoTo 0
    Exit Function
 
A2XGetActiveReport_Error:
    MsgBox "Fehler " & Err.Number & ": " & _
           Err.Description, vbCritical, _
           "modRpt.GetActiveReport"
    Resume A2XGetActiveReport_Exit
 
End Function


Zurück | Inhalt | Tipp 3.2 - Ist Bericht im Entwurf Weiter