Hallo,
ich möchte das wenn man in einem Listenfeld einen neuen Begriff einträgt, dieser in die vorhandene Nachschlageliste eingefügt wird,
wie mach ich das?
Gruß
Markus
Hallo Markus,
dann mußt Du in den Eigenschaften des Listenfeldes den Punkt suchen „bei nicht in Liste“ und da folgende Ereignisprozedur eingeben:
Private Sub Element\_NotInList(NewData As String, Response As Integer)
Dim temp As String
Dim ctl As Control
Dim db As Database, rs As Recordset
Set ctl = Me!Element
If MsgBox("Element fehlt. Hinzufügen?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
temp = NewData
Set db = CurrentDb
Set rs = db.OpenRecordset("DeineTabelle")
rs.AddNew
rs!Element = temp
rs.Update
Else
Response = acDataErrContinue
ctl.Undo
End If
End Sub
Grüße,
Kerstin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]