Formular automatisch ausfüllen

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen!
In Access 2010 habe ich ein Formular erstellt, das u.a. aus einer Tabelle „Vorgänge“ die Felder Kunde und Vorgang abfragt.
Was ich nun gerne hätte:
Wenn man den Kunden (kommt aus einer anderen Tabelle) eingibt, soll in der Tabelle „Vorgänge“ nach dem letzten Vorgang dieses Kunden gesucht werden und dieser Vorgang in das Feld „Vorgang“ eingetragen werden.

Beispiel: Tabelle Vorgänge enthält folgende Datensätze:
Kunde Vorgang
Müller Installation
Meier Reparatur
Peters Umbau

Wird nun im Formular ein neuer Datensatz angelegt und wieder der Kunde Müller ausgewählt, soll bei Vorgang automatisch Installation eingetragen werden. Wie handhabe ich das am besten?

Gruß
Norbert

#2

Hallo,

In Access 2010 habe ich ein Formular erstellt, das u.a. aus
einer Tabelle „Vorgänge“ die Felder Kunde und Vorgang abfragt.
Was ich nun gerne hätte:
Wenn man den Kunden (kommt aus einer anderen Tabelle) eingibt,
soll in der Tabelle „Vorgänge“ nach dem letzten Vorgang dieses
Kunden gesucht werden und dieser Vorgang in das Feld „Vorgang“
eingetragen werden.

Beispiel: Tabelle Vorgänge enthält folgende Datensätze:
Kunde Vorgang
Müller Installation
Meier Reparatur
Peters Umbau

Wird nun im Formular ein neuer Datensatz angelegt und wieder
der Kunde Müller ausgewählt, soll bei Vorgang automatisch
Installation eingetragen werden. Wie handhabe ich das am
besten?

Um das konkret (und syntaktisch) richtig darzustellen, müssen der genaue Aufbau der Tabellen und des Formulares bekannt sein.

Prinzipiell:

Sub KundenID_Afterupdate()
Me!Vorgang.Defaultvalue= „“"" & nz(CurrentDb.Openrecordset(„Select top 1 Vorgang, KundenID, VorgangDatum from tblVorgänge Where KundenID = " Me!KundenID & " order by VorgangDatum Desc“, dbOpenSnapShot)(0),"") & „“""
End Sub

oder auch:

Sub KundenID_Afterupdate()
Me!Vorgang= CurrentDb.Openrecordset(„Select top 1 Vorgang, KundenID, VorgangDatum from tblVorgänge where KundenID = " Me!KundenID & " order by VorgangDatum Desc“, dbOpenSnapShot)(0)
End Sub

Viele Grüße vom Bodensee
Franz, DF6GL