Private Sub Befehl15_Click()
On Error GoTo Err_Befehl15_Click
 
    Dim stDocName As String
 
    stDocName = "Bericht offen"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Befehl15_Click:
    Exit Sub
 
Err_Befehl15_Click:
    MsgBox Err.Description
    Resume Exit_Befehl15_Click
 
End Sub