Zum Inhalt springen

[ACCESS] Not in List - Ereignis


Pittiplatsch

Empfohlene Beiträge

Hab hier einen Code - Schnipsel:

Private Sub Kombinationsfeld18_NotInList(NewData As String, Response As Integer)

On Error GoTo fehler

Dim db As Database

Dim rs As Recordset

Dim erg As Integer

Response = acDataErrAdded

erg = MsgBox("Der eingegebene Wert '" & NewData & "' ist nicht in der Liste vorhanden. Möchten Sie " & "den Wert in die Tabelle übernehmen?", 52, "Neuer Wert")

If erg = 6 Then

Set db = CurrentDb

Set rs = db.OpenRecordset("Daten", dbOpenDynaset)

rs.AddNew

rs!NamTxt = NewData

rs.Update

rs.Close

Set rs = Nothing

db.Close

Else

Response = acDataErrContinue

End If

ende:

Exit Sub

fehler:

MsgBox Err.Description, 16, "Fehler"

Resume ende

End Sub

Soweit ist das ja auch ganz OK, aber wie umgeh ich diese unnötige Abfrage, von wegen nicht in Liste und ob ich die Daten in die entsprechende Tabelle übernehmen will?

Link zu diesem Kommentar
Auf anderen Seiten teilen

Hab jetzt selbst 'ne Lösung


Option Compare Database
Private Sub vo_ansprechpartner_NotInList(NewData As String, Response As Integer)

On Error GoTo fehler

Dim db As DAO.Database
Dim rs As DAO.Recordset

Response = acDataErrAdded

Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Ansprechpartnerdaten", dbOpenDynaset)
rs.AddNew
rs!nachname = NewData
rs.Update
rs.Close
Set rs = Nothing
db.Close

ende:
Exit Sub

fehler:
MsgBox Err.Description, 16, "Fehler"

Resume ende
End Sub
[/PHP]

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...