Office: Kombinationsfeld automatisch aktualisieren

Allen zuerstmal einen schönen guten Abend!

Ich hab da ein Problem bei dem ich seit heute Mittag nicht weiterkomme.

Ich habe in meinem Funkprotokoll ein Kombifeld "Meldung von" und eines "Meldung an". Beide Felder beziehen Ihre Daten aus der Tabelle "Melderkennung".

Ich hätte gerne, das wenn ich einen Eintrag mache der noch nicht im DorpDown zur Verfügung steht (erstes mal) das dieser Übernommen und gleichzeitig in der Tabelle "Melderkennung" gespeeichert wird.

Die Lösung mit dem seperaten Formular um die Daten einzugeben möchte ich aus Zeitgründen (Schlechte Verständigung und viele Meldungen auf einmal bei einer Funkmittschrift) umgehen.

Ich arbeite mit Access 2002. Vielen Dank für Eure Hilfe!

Sani

 

Hallo sani,

das geht schon indem Du bei dem Dropdown als Datenherkunft die Tabelle eingibts und darunter die richtige Spalte einträgst. Leider werden die Einträge für das Dropdownfenster immer nur refreshed wenn das Formular geschlossen und neu geöffnet wird. Ich würde mir an Deiner Stelle ein Makro machen, das das Formular schließt und dann wieder öffnet und das mit einem Button auf dem Formular einbindet. Dann was neues eingeben und den Button klicken und schon is es drin.

Gruß
Michael

 

Hallo Michael!

Habe im Netz folgenden Code gefunden.

setze die Eigenschaft Nur Listeneinträge auf Ja und
- verwende im Ereignis Bei nicht in Liste des Kombis Code wie diesen:

'************** CODE START **************
Response = acDataErrAdded
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabellenname", dbOpenDynaset)

rs.AddNew
rs!Feldname = NewData
rs.Update

rs.Close : Set rs = Nothing
Set db = Nothing
'************** CODE ENDE **************


Habe ihn eingefügt, Funkt. aber nicht bekomme immer ne fehlermeldung:
"Benutzerdefinierter Typ nicht Definiert" (Sagt mir leider nichts.

Danke im Voraus Sani90

 

Das sagt mir leider auch nicht viel. Haste Statt Tabellenname mal Deine Tabelle eingegeben? Ansonsten einfach mal probieren was ich geschrieben habe.

Gruß
Michael