Private Sub LGNR_Exit(Cancel As Integer)

End Sub
Private Sub Befehl46_Click()
On Error GoTo Err_Befehl46_Click

    Dim stDocName As String

    stDocName = "BSorten"
    DoCmd.OpenReport stDocName, acViewPreview

Exit_Befehl46_Click:
    Exit Sub

Err_Befehl46_Click:
    MsgBox Err.Description
    Resume Exit_Befehl46_Click
    
End Sub

Private Sub BSortenKuerzelUmbenennen_Click()

DoCmd.OpenForm "FSortenkuerzelUmbenennen"

End Sub