Access - wie krieg ich sowas hin?

[bully]

Ich geh einmal davon aus, dass du die drei Felder als Datumsfelder definiert hast, auch ein Feld Gültigkeitsdatum sollte als Datumsfeld existieren. Dann könnte eine Prozedur, die deinen Wünschen entspricht ganz einfach so aussehen:

Private Sub Zuweisen_Click()
If Not IsNull(verordnung3) Then
gueltig = verordnung3 + 23
Else
If Not IsNull(verordnung2) Then
gueltig = verordnung2 + 23
Else
gueltig = verordnung1 + 23
End If
End If
End Sub

Ich habe in dem Beispiel die Sache so gelöst, dass mittels Befehlsschaltfläche Zuweisen das Datum in das Feld gueltig übernommen wird. Wichtig ist die Definition als Datumsfeld. Access rechnet jedes Datum intern in einen Integer-Wert um, damit funktioniert die Zuweisung mittels Addition von 23. Die If-Struktur erklärt sich hoffentlich von selbst.

lg
bully