Hallo,
ich habe ein Kombinationsfeld, wo ein neues Element eingefügt werden soll bei not in List.
Hierfür verwende ich den Befehl not in List und rufe dann ein neues Formular auf.
Leider bekomme ich immer die Fehlermeldung von Access, dass Element nicht in Liste ist.
Ich würde dies gern ausschalten und weiss nicht wie…
Hier mein Code:
Private Sub FUNK_NotInList(NewData As String, Response As Integer)
Dim RC As Object
Dim Funktion As String
’ Den Benutzer fragen, ob ein neuer Wert hinzugefügt werden soll.
If MsgBox(„Eintrag fehlt. Hinzufügen?“, _
vbOKCancel + vbQuestion, „Neuer Eintrag“) = vbOK Then
’ Einstellen des Arguments Response, um
’ anzugeben, daß die Daten hinzugefügt werden.
Response = acDataErrAdded
Set RC = CurrentDb.OpenRecordset(„VOR_SCH_KENNUNGEN“)
Funktion = NewData
With RC
.AddNew ’ Neuen Datensatz erstellen.
!Kenn_Text = NewData ’ Daten zuweisen
!Kenn_ZIEL = „FUNKTION“
'!ANR_GÜLTIG = Geschlecht
.Update ’ Änderungen speichern.
.Close ’ schließen
End With
CurrentDb.Close ’ Datenbank schließen
Else
’ Der Benutzer hat „Abbrechen“ gewählt: die Fehlermeldung
’ unterdrücken und die Änderungen rückgängig machen.
Response = acDataErrContinue
FUNK.Undo
End If
End Sub
Danke vielmals
Nicole