Frage : Namen dem kombinierten Kasten hinzufügen müssen

Ich habe einen kombinierten Kasten (Combo30)/Steuerquelle = OwnerID
gegründet auf einer Frage:   OwnerTbl.OID, OwnerTbl.Owner VORBEI VORWÄHLEN vom OwnerTbl AUFTRAG [Inhaber]; die

I Notwendigkeit (OwnerTbl) so neue Namen zu öffnen kann addiert werden, wenn der Benutzer versucht, einen Namen einzugeben, der nicht in der Liste ist.  Jetzt erklärt sie ihnen, dass gerade sie einen Namen im list. verwenden müssen

Antwort : Namen dem kombinierten Kasten hinzufügen müssen

Sind hier ein paar Beispiele auch:

Beispiel 1 - Einfügung ein neues Einzelteil direkt in die Nachschlagentabelle hinter den Kulissen….
Privates VorcboCONTACT_ID_NotInList (NewData als Schnur, Antwort als ganze Zahl)
Schwaches myVar
Schwaches ctl als Steuerung
Schwaches lresponse als lang
Ctl = Me.cboCONTACT_ID einstellen
Wenn MsgBox (NewData u. „ist ein neues Einzelteil.  Möchten Sie es dem kombinierten Kasten hinzufügen? “, addieren vbYesNo, „Einzelteil“) = vbYes dann

   'den neuen Rekord addieren
    CurrentDb.Execute „Einsatz in tbl_contacts ([contact_NAME]) Werte („“ u. NewData u. „"); „
    Antwort = acDataErrAdded
Sonst
    myVar = Me.cboCONTACT_ID
    Antwort = acDataErrContinue
    ctl. Annulieren
    Beenden wenn

Unterseeboot beenden

Beispiel 2 - „Form2“ ist eine einfache Form, die an das Listentabelle angeschlossen
Privates Unterseeboot Combo1_NotInList (NewData als Schnur, Antwort als ganze Zahl)

    Wenn MsgBox (NewData u. „ist ein neues Einzelteil.  Möchten Sie es dem kombinierten Kasten hinzufügen? ") = vbYesNo dann
        DoCmd.OpenForm „Form2“, acFormAdd, acDialog, NewData
        Antwort = acDataErrAdded
    Sonst
        Antwort = acDataErrContinue
        Me.Combo1.Undo
    Beenden wenn
   
Unterseeboot beenden

MX