WinFuture-Forum.de: A00: Notinlist Geht Nicht Richtig - WinFuture-Forum.de

Hallo liebes Forum....

Ich bin gerade daran mir in Access ein Literaturverzeichnis aufzubauen. Dabei soll der Benutzer den Titel eines Buches eingeben können und die restlichen Daten (d.h. Autor, Erscheinungsjahr, Verlag, ISBN, etc.) sollen - sofern vorhanden - von Amazon.de heruntergeladen werden (per XML). Das ganze klappt auch schon wunderbar, nur gibt es ein neues Problem.

Das Einfügen bereitet mir einige Schwierigkeiten. Die Felder cmbAutor und cmbVerlag sind nämlich Comboboxen und beim einfügen der Daten (XML --> AccessTabelle) soll der Eintrag erst noch (auf Wunsch des Benutzers) in der Tabelle tblAutor, bzw. tblVerlag gespeichert werden.

Problem: Ich habe es bereits mit NotInList versuch, doch da erhalte ich 4x die Meldung ob ich den Autor hinzufügen möchte (siehe Code), dafür kommt keine Meldung, ob der Verlag hinzugefügt werden soll.

Hier der Code:

' damit füge ich die Daten in die Felder ein cmbAutor, bzw. cmbVerlag auf dem
 Formular frmBuecher ein. (KillBlank müsst ihr nicht beachten)
        Forms.frmBuecher.cmbAutor.SetFocus
        Forms.frmBuecher.cmbAutor.Text = KillBlank(DetailsList.SelectedItem.SubItems(4))
        
        Forms.frmBuecher.cmbVerlag.SetFocus
        Forms.frmBuecher.cmbVerlag.Text = KillBlank(DetailsList.SelectedItem.SubItems(2))

' das ist der Code für die Kombinationsfelder, der ausgelöst wird sobald ein Eintrag eingefügt wird, der nicht in der Liste steht

Private Sub cmbAutor_NotInList(NewData As String, Response As Integer)
  If MsgBox("Dieser Autor ist nicht vorhanden. Möchten Sie hinzufügen?", vbYesNo) = vbYes Then
         Response = acDataErrContinue
         DoCmd.OpenForm "frmAutoren", , , , acFormAdd
         Forms!frmAutoren!txtAutor = NewData
  Else
         Response = acDataErrContinue
         Me.cmbAutor = ""
  End If
End Sub

Private Sub cmbVerlag_NotInList(NewData As String, Response As Integer)
  If MsgBox("Dieser Verlag ist nicht vorhanden. Möchten Sie hinzufügen?", vbYesNo) = vbYes Then
         Response = acDataErrContinue
         DoCmd.OpenForm "frmVerlag", , , , acFormAdd
         Forms!frmVerlag!txtVerlag= NewData
  Else
         Response = acDataErrContinue
         Me.cmbVerlag= ""
  End If
End Sub

Das Problem ist halt eben, dass beim Einfügen 4x die Meldung "Dieser Autor ist nicht vorhanden..." angezeigt wird und dass die Frage ob der Verlag hinzugefügt werden soll gar nicht erst kommt.

Danke im Voraus für eure Hilfe.

Gruss
ig