Dropdown-Menü

Hallo Karl

Geht leider nicht... Ich habe den Code wie von Dir erwähnt ergänzt:

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

If MsgBox("Do you really want to add new data to the list?", vbYesNo) = vbYes Then

Response = acDataErrAdded

Dim db As DAO.Database

Dim rs As DAO.Recordset

Set db = CurrentDb

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

rs.AddNew

rs!I_Name = NewData

rs.Update

rs.Close: Set rs = Nothing

Set db = Nothing

Else

Response = acDataErrContinue

Me!combInteresse2.Undo

End If

End Sub

Vielen Dank für Deine Hilfe und herzliche Grüsse

Mike

Hallo

Vielen Dank für die erneute Hilfe...

Ich bin nun schon etwas weiter gekommen und konnte den folgenden VBA-Code für mein Kombinationsfeld im Internet finden. Dieser funktioniert auch. Einziger Makel ist, dass wenn ich einen neuen Wert in der Auswahl eintrage, dieser Wert zwar gespeichert und
als Vorlage hinterlegt wird, aber nach dem Prozedere (also nach Beantwortung der Frage) das Auswahlfeld wieder leer ist und ich den neuen Wert nochmals (aber nun aus der hinterlegten Liste, da es den Wert in der Tabelle "T_Interessen" ja abgelegt hat) einfügen
muss. Weisst Du, wie ich machen kann, dass wenn ein neuer Wert eingegeben wird, dieser nach der Beantwortung der Frage mit "Ja" dann auch gleich im Eingabefeld enthalten bleibt?

VBA-Code

Dim oRS As DAO.Recordset, i As Integer, sMsg As String

Dim oRSClone As DAO.Recordset

Response = acDataErrContinue

If MsgBox("Dieser Wert ist nicht in der Liste enthalten. Möchten Sie diesen auf der Interessenliste hinzufügen?", vbYesNo) = vbYes Then

Set oRS = CurrentDb.OpenRecordset("T_Interessen", dbOpenDynaset)

oRS.AddNew

oRS.Fields(1) = NewData

For i = 2 To oRS.Fields.Count - 1

sMsg = "What do you want for " & oRS(i).Name

oRS(i).Value = InputBox(sMsg, , oRS(i).DefaultValue)

Next i

oRS.Update

combInteresse1 = Null

combInteresse1.Requery

DoCmd.OpenTable "T_Interessen", acViewNormal, acReadOnly

DoCmd.GoToRecord acDataTable, "T_Interessen", acLast

End If

Vielen Dank und herzliche Grüsse

Mike

Hallo, Mike!

Die Rückfrage sollte so wie in Variante 2 des Artikels gezeigt funktionieren, also:

If MsgBox("Möchten Sie diesen Datensatz neu anlegen?", vbYesNo) = vbYes Then

'hier der ganze Code, den du bisher hattest

Else

Response = acDataErrContinue

Me!combInteresse1.Undo

End If

Hallo,

s. die Code- und Vorgehensbeispiele hier:

http://www.donkarl.com?FAQ4.13

Bei Variante 1 wird der neue Eintrag "automagisch" hinzugefügt und angezeigt. Bei Variante 2 ist wie im Artikel beschrieben ein Requery auf das Komb nötig.

Guten Morgen Karl

Vielen Dank für Deine Antwort. Leider war das Feld "Nur Listeneinträge" tatsächlich auf nein und es funktioniert nun bestens...

Vielen herzlichen Dank für Deine super Hilfe!!

Mike