Fråga : Behov att tillfoga namnger till det combo boxas

Jag har ett combo att boxas (Combo30)/kontrollerar källa = OwnerID
baserat på en query:   VALDA OwnerTbl.OID, OwnerTbl.Owner FRÅN OwnerTbl BESTÄLLER BY [ägaren]; behov för

I (OwnerTbl) att öppna så nytt namnger kan tillfogas när användareförsöken att mata in ett känt som inte är i lista.  Nu det berättar dem att precis de måste att använda ett känt i list. " klar "

Svar : Behov att tillfoga namnger till det combo boxas

Är här en koppla ihop av exempel också:

Exempel 1 - Sätta in ett nytt objekt direkt in i referensen bordlägga bak platserna….
Privat undercboCONTACT_ID_NotInList (NewData som stränger, svar som heltal)
Dunkelt myVar
Dunkel ctl som kontrollerar
Dunkel lresponse som Long
Fastställd ctl = Me.cboCONTACT_ID
Om MsgBox (NewData & ”är ett nytt objekt.  Du önskar att tillfoga det till det combo boxas? ” vbYesNoen, ”tillfogar objektet”) = vbYes därefter

   'tillfoga det nya rekordet
    Det CurrentDb.Execute-”mellanlägget in i tbl_contacts ([contact_NAME]) värderar (”” & NewData & ””); ”,
    Svaret = acDataErrAdded
Annars
    myVar = Me.cboCONTACT_ID
    Svar = acDataErrContinue
    ctl. Ångra
    Avsluta om

Avsluta suben

Exempel 2 - ”Form2” är ett enkelt bildar förbindelse till lista bordlägger
Privat Sub Combo1_NotInList (NewData som stränger, svaret som heltal)

    Om MsgBox (NewData & ”är ett nytt objekt.  Du önskar att tillfoga det till det combo boxas? ”) = vbYesNo därefter
        DoCmd.OpenForm ”Form2”, acFormAdd, acDialog, NewData
        Svaret = acDataErrAdded
    Annars
        Svar = acDataErrContinue
        Me.Combo1.Undo
    Avsluta om
   
Avsluta suben

mx