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
____________________________________
Freunde nehmen dich so wie du bist. Freunde verzeihen dir deine Schwächen. Freunde sind treu. Freunde freuen sich dich zu sehen.
Mein Hund ist mein Freund.
Meine Homepage
|