Option Explicit
Dim zaehler As Single
Private Sub Befehl85_Click()
zaehler = zaehler + 1
counter.Text = CSng(zaehler)
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub reset_Click()
counter.Text = "0"
End Sub

Private Sub Befehl99_Click()
On Error GoTo Err_Befehl99_Click
 
    Dim stDocName As String
 
    stDocName = "Übersicht der Entleihdauer"
    DoCmd.OpenReport stDocName, acNormal
 
Exit_Befehl99_Click:
    Exit Sub
 
Err_Befehl99_Click:
    MsgBox Err.Description
    Resume Exit_Befehl99_Click
 
End Sub