Access: per Makro Checkboxen zurücksetzen

[Martin_H3G]

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