Tipp 3.7 - Bericht schließen

Wie kann ich einen angegebenen Bericht ohne Fehler schließen?

Mit dieser Funktion können Sie einen angegebenen Bericht ohne Fehler schließen. 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 A2XRptClose(psRpt As String) As Boolean
  On Error GoTo A2XRptClose_Error
 
  '// =====================================================
  '// Methode   | Schließt einen Bericht ohne Fehler
  '// -----------------------------------------------------
  '// Parameter | psRpt - Name des Berichts
  '// -----------------------------------------------------
  '// Rückgabe  | Boolean - True=Ok / False=Fehler
  '// -----------------------------------------------------
  '// Erstellt  | Manuela Kulpa
  '//           | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  '// Beispielaufruf:
  '// ?A2XRptClose("rptTest")
  '// =====================================================
 
  If SysCmd(acSysCmdGetObjectState, acReport, psRpt) <> 0 Then
    DoCmd.Close acReport, psRpt
    A2XRptClose = True
  Else
    A2XRptClose = False
  End If
 
A2XRptClose_Exit:
  On Error GoTo 0
  Exit Function
 
A2XRptClose_Error:
  Select Case Err.Number
    Case Else
      MsgBox "Fehler " & Err.Number & ": " & _
             Err.Description, vbCritical, _
             "modRpt.A2XRptClose"
  End Select
  Resume A2XRptClose_Exit
 
End Function


Zurück Tipp 3.6 - Berichte in String | Inhalt | Tipp 3.8 - Daten vorhanden Weiter