Pytanie : Potrzeba imię the combo pudełko

I mieć combo pudełko (Combo30)/kontrolny źródło = OwnerID
Opierać się na zapytanie:   WYBRANY OwnerTbl.OID, OwnerTbl.Owner OD OwnerTbl ROZKAZ OBOK [Właściciel];

I potrzeba the (OwnerTbl) w ten sposób nowy imię móc dodawać gdy the użytkownik próbować input imię który być w the lista.  Teraz ono właśnie mówić że musieć imię w the list.

Odpowiedź : Potrzeba imię the combo pudełko

Tutaj być kilka przykład także:

Przykład (1) - Wkładać nowy rzecz bezpośrednio w the lookup stół za the scena….
Intymny Okręt podwodny cboCONTACT_ID_NotInList (NewData Jako Sznurek, Odpowiedź Jako Integer)
Ciemnawy myVar
Ciemnawy ctl Kontrola
Ciemnawy lresponse Długo
Ustalony ctl = Me.cboCONTACT_ID
Jeżeli MsgBox (NewData & "być nowy rzecz.  Ty życzyć ono the combo pudełko? ", vbYesNo, "Dodawać Rzecz") = vbYes Wtedy

   'dodawać the nowy rejestr
    CurrentDb.Execute "wszywka w tbl_contacts ([contact_NAME]) wartość ("" & NewData & ""); "
    Odpowiedź = acDataErrAdded
Inny
    myVar = Me.cboCONTACT_ID
    Odpowiedź = acDataErrContinue
    ctl. Rozwiązywać
    Kończyć Jeżeli

Kończyć Okręt podwodny

Przykład 2 - "Form2" być prosty forma łączyć the lista stół
Intymny Okręt podwodny Combo1_NotInList (NewData Jako Sznurek, Odpowiedź Jako Integer)

    Jeżeli MsgBox (NewData & "być nowy rzecz.  Ty życzyć ono the combo pudełko? ") = vbYesNo Wtedy
        DoCmd.OpenForm "Form2", acFormAdd, acDialog, NewData
        Odpowiedź = acDataErrAdded
    Inny
        Odpowiedź = acDataErrContinue
        Me.Combo1.Undo
    Kończyć Jeżeli
   
Kończyć Okręt podwodny

mx