38 lines
879 B
Plaintext
38 lines
879 B
Plaintext
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 |