Formularfelder in AbhΣngigkeit anderer Felder belegen

Bei der Eingabe in einem Access-Formular kommt es hΣufig zu gleichen Kombinationen der Inhalte verschiedener Felder. Ich m÷chte nun ohne ein Kombinationsfeld die M÷glichkeit haben, in einem Feld einen Standardwert zu erhalten, falls in einem anderen Feld ein bestimmter Wert eingegeben wird. K÷nnen Sie mir helfen?

Ihren Wunsch k÷nnen Sie mit einer VBA-Funktion realisieren. Dieser Tipp soll das Vorgehen anhand eines Beispiels erlΣutern. Nehmen Sie an, Sie wollen ein Formular mit den beiden Fehlern ╗Eingabe½ und ╗Wirkung½ realisieren. Falls der Anwender nun im Feld ╗Eingabe½ die Zeichenkette ╗Ja½ oder ╗Nein½ eintrΣgt, soll Access mit einer speziellen Default-Belegung im Feld ╗Wirkung½ reagieren.
Nachdem Sie das Formular entworfen und die beiden Eingabefelder ╗Eingabe½ und ╗Wirkung½ erzeugt haben, klicken Sie mit der rechten Maustaste auf das Feld ╗Eingabe½ und ÷ffnen im Kontextmenⁿ den Dialog ╗Eigenschaften½. WΣhlen Sie das Register ╗Ereignis½ und klicken Sie rechts neben der Eigenschaft ╗Nach Aktualisierung½ auf die SchaltflΣche ╗...½. Im Dialog ╗Editor auswΣhlen½ markieren Sie den ╗Code-Editor½ und bestΣtigen mit ╗OK½. Access legt nun die VBA-Prozedur ╗Eingabe_AfterUpdate()½ an, die immer ausgefⁿhrt wird, wenn Access Daten im Feld ╗Eingabe½ aktualisiert.
Alles weitere erreichen Sie mit einfachen VBA-Befehlen. Zuerst lesen Sie das Feld ╗Eingabe½ aus und bestimmen dann zum Beispiel mit einer ╗Select Case½-Anweisung den gewⁿnschten Inhalt des Feldes ╗Wirkung½, das Sie danach auch umgehend belegen:

Private Sub Eingabe_AfterUpdate()

   Select Case Me!Eingabe
   Case äjaä, äJAä, äJaä
      Me!Wirkung = äWirkung von JAä
   Case äneinä, äNEINä, äNeinä Me!Wirkung = äWirkung von NEINä
   Case Else
      Me!Wirkung = äKeine Wirkungä
   End Select

End Sub