Standardwert im Kombinationsfeld

Hallo zusammen,

ich habe in einem Unterformular ein ungebundenes Kombinationsfeld, das seine Listenwerte aus einer Abfrage erhält (nur ein Feld). Die Listenwerte dieses Kombinationsfelds werden beim Öffnen des Formulars, bzw. Blättern in den Formularen immer korrekt entsprechend den verknüpften Daten im „Überformular“ aktualisiert.

Das Feld wird aber immer leer angezeigt. Was ich möchte ist, dass das Feld immer automatisch den ersten Wert aus der Abfrage annimmt und anzeigt.

Leider kriege ich das aber nicht hin und mit der Access-Hilfe komme ich auch nicht weiter. Es wäre daher echt super, wenn mir jemand einen Tipp hätte!

Danke im voraus und schöne Grüße
Bettina

Hallo,

beim Öffnen

Dim db As Database, rst As Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset(„Name_der_Abfrage“, dbOpenSnapshot)
rst.MoveFirst
Me![Name_des_Kombinationsfelds] = rst![Name_des_Feldes]
rst.Close
Set rst = Nothing
db.Close
Set db = Nothing

MfG,

ujk

So funktioniert’s!

Schöne Grüße und vielen, vielen Dank,
Bettina