Problem

Beim Berechnen in einem Formular für die Rechnungserstellung wird mit der folgenden Formel ein Zahlungsziel berechnet.

Me.Zahlungsziel= Me.RGDatum + 30

Wenn nun das so errechnete Zahlungsziel auf einen Samstag oder einen Sonntag fällt, möchte ich darauf hingewiesen werden.

Lösung

Dazu können Sie die VBA-Funktion „WeekDay()“ zum Beispiel wie folgt nutzen:

Me.Zahlungsziel= Me.RGDatum + 30

If WeekDay(Me.Zahlungsziel) = vbSaturday Or _
WeekDay(Me.Zahlungsziel) = vbSunday Then
Beep
MsgBox "Zahlungsziel fällt auf Samstag/Sonntag!"
Me.Zahlungsziel.SetFocus
End If