Beispiel:
Tabelle:
MitgliedsName (Text)
Bezahlt (Ja/Nein)
BezahltDatum (Zahl / Integer / Standardzahl)
Formular:
Eingabefelder für Mitgliedsname, Bezahlt und BezahltDatum
Eigenschaften bei "Bezahlt":
Ereignisprozedur bei "Nach Aktualisierung":
Code:
Dim A As Integer
If Bezahlt = True Then
A = Year(Now())
BezahltDatum = A
Else
MsgBox ("Nicht bezahlt!")
End If
Repaint
Das REPAINT sorgt dafür, dass das Jahr auch sofort im Formular sichtbar wird.
Hoffe ich konnte helfen.
LG Martin
|