Private Sub LGNR_Exit(Cancel As Integer)

End Sub
Private Sub Befehl46_Click()
On Error GoTo Err_Befehl46_Click

    Dim stDocName As String

    stDocName = "BAbschlaege"
    DoCmd.OpenReport stDocName, acViewPreview

Exit_Befehl46_Click:
    Exit Sub

Err_Befehl46_Click:
    MsgBox Err.Description
    Resume Exit_Befehl46_Click
    
End Sub


Private Sub TAZAS_Exit(Cancel As Integer)

If Not IsNull(TAZAS) And Not IsNull(TAZASProzent) Then
 MsgBox "Es kann pro Zu/Abschlag entweder ein absoluter Wert oder ein Prozentwert angegeben werden, aber nicht beides !", vbCritical
 TAZAS = ""
End If

End Sub

Private Sub TAZASProzent_Exit(Cancel As Integer)

If Not IsNull(TAZAS) And Not IsNull(TAZASProzent) Then
 MsgBox "Es kann pro Zu/Abschlag entweder ein absoluter Wert oder ein Prozentwert angegeben werden, aber nicht beides !", vbCritical
 TAZASProzent = ""
End If

End Sub