Private Sub LGNR_Exit(Cancel As Integer)

End Sub
Private Sub Befehl48_Click()
On Error GoTo Err_Befehl48_Click

    Dim stDocName As String

    stDocName = "BQualitätsstufen"
    DoCmd.OpenReport stDocName, acViewPreview

Exit_Befehl48_Click:
    Exit Sub

Err_Befehl48_Click:
    MsgBox Err.Description
    Resume Exit_Befehl48_Click
    
End Sub