MS Access Fehlermeldung bei Not in List ausschalte

Computer: Software & Programmierung Microsoft Access
#1

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

#2

Hi, sorry habe falschen Code beigefügt:
Private Sub FIRMA_ZU_NotInList(NewData As String, Response As Integer)
'On Error Resume Next
DoCmd.SetWarnings False
MsgBox „Diese Firma ist nicht in der Datenbank. Legen Sie bitte einen Neue an.“, vbExclamation + vbOKOnly, „Kein Kontakt“
'On Error Resume Next
Me.FIRMA_ZU = Null
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = „XXX_Neue Firma“
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.SetWarnings True
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo Nicole,

das war aber nicht nötig, den ganzen Kram nochmal zu posten :smile:

>

Hi, sorry habe falschen Code beigefügt:
Private Sub FIRMA_ZU_NotInList(NewData As String, Response As
Integer)
'On Error Resume Next
DoCmd.SetWarnings False
MsgBox „Diese Firma ist nicht in der Datenbank. Legen Sie
bitte einen Neue an.“, vbExclamation + vbOKOnly, „Kein
Kontakt“
'On Error Resume Next
Me.FIRMA_ZU = Null

besser wäre >> Me.FIRMA_ZU = „“
obwohl eigentlich total überflüssig…mit entsprechendem Returncode wird das Feld sowieso zurück gesetzt.

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = „XXX_Neue Firma“
DoCmd.OpenForm stDocName, , , stLinkCriteria

DoCmd.SetWarnings True

hättest du dir den „flaschen“ Code genauer angesehen… wäre dir aufgefallen, dass du keinen ReturnCode an die Funktion zurück gibst:

Response = acDataErrContinue

End Sub

Grüße aus Essen
Wolfgang
(Netwolf)