Questione : Dovere aggiungere i nomi alla casella combinata

Ho una casella combinata (Combo30)/la fonte = OwnerID
basato su una domanda:   SELEZIONARE OwnerTbl.OID, OwnerTbl.Owner da ORDINE di OwnerTbl VICINO [proprietario]; il bisogno del

I (OwnerTbl) aprire i nomi così nuovi può aggiungersi quando l'utente prova ad immettere un nome che non è nella lista.  Ora appena dice loro che devono utilizzare un nome nel list. class= del

Risposta : Dovere aggiungere i nomi alla casella combinata

Qui sono una coppia di esempi inoltre:

Esempio 1 - Inserendo un nuovo articolo direttamente nella tabella di occhiata dietro le scene….
cboCONTACT_ID_NotInList secondario riservato (NewData come stringa, risposta come numero intero)
myVar fioco
Ctl fioco come controllo
Lresponse fioco come lungamente
Regolare il ctl = Me.cboCONTACT_ID
Se MsgBox (NewData & “è un nuovo articolo.  Desiderate aggiungerli alla casella combinata? „, il vbYesNo, “aggiunge l'articolo„) = vbYes allora

   'aggiungere il nuovo record
    Inserto di CurrentDb.Execute “nei valori dei tbl_contacts ([contact_NAME]) ("„ & NewData & “"); “
    Risposta = acDataErrAdded
Altrimenti
    myVar = Me.cboCONTACT_ID
    Risposta = acDataErrContinue
    ctl. Disfare
    Concluder se

Concludere il sommergibile

Esempio 2 - “Form2„ è una forma semplice collegata alla tabella della lista
Sommergibile riservato Combo1_NotInList (NewData come stringa, risposta come numero intero)

    Se MsgBox (NewData & “è un nuovo articolo.  Desiderate aggiungerli alla casella combinata? ") = vbYesNo allora
        DoCmd.OpenForm “Form2„, acFormAdd, acDialog, NewData
        Risposta = acDataErrAdded
    Altrimenti
        Risposta = acDataErrContinue
        Me.Combo1.Undo
    Concluder se
   
Concludere il sommergibile

MX