Vraag : Behoefte om namen aan de combodoos toe te voegen

Ik heb een van de combodoos (Combo30)/controle bron = OwnerID
Gebaseerd op een vraag:   SELECTEER OwnerTbl.OID, OwnerTbl.Owner LANGS VAN ORDE OwnerTbl [Eigenaar];

I moet (OwnerTbl) zo nieuwe namen openen kan worden toegevoegd wanneer de gebruiker probeert om een naam in te voeren die niet in de lijst is.  Nu vertelt het hen enkel dat zij een naam in list. moeten gebruiken

Antwoord : Behoefte om namen aan de combodoos toe te voegen

Hier zijn een paar voorbeelden ook:

Voorbeeld 1 die - een nieuw punt opnemen direct in de raadplegingslijst achter de scènes….
Privé SubcboCONTACT_ID_NotInList (NewData als Koord, Reactie als Geheel)
Schemerige myVar
Schemerige ctl als Controle
Schemerige lresponse zoals lang
Reeks ctl = Me.cboCONTACT_ID
Als MsgBox (NewData & „is een nieuw punt.  Wenst u om het aan de combodoos toe te voegen? “, voegt vbYesNo, „Punt toe“) = vbYes toen

   'voeg het nieuwe verslag toe
    CurrentDb.Execute „tussenvoegsel in tbl_contacts ([contact_NAME]) waarden („“ & NewData & „“); „
    De reactie = acDataErrAdded
Anders
    myVar = Me.cboCONTACT_ID
    Reactie = acDataErrContinue
    ctl. Maak ongedaan
    Beëindig als

Beëindig Sub

Voorbeeld 2 - „Form2“ is een eenvoudige die vorm met de lijstlijst wordt verbonden
Privé SubCombo1_NotInList (NewData als Koord, Reactie als Geheel)

    Als MsgBox (NewData & „is een nieuw punt.  Wenst u om het aan de combodoos toe te voegen? “) = vbYesNo toen
        DoCmd.OpenForm „Form2“, acFormAdd, acDialog, NewData
        De reactie = acDataErrAdded
    Anders
        Reactie = acDataErrContinue
        Me.Combo1.Undo
    Eind als
   
Sub van het eind

mx