Pergunta : Precisar de adicionar nomes à caixa combinado

Eu tenho uma caixa combinado (Combo30)/a fonte = OwnerID
baseado em uma pergunta:   SELECIONAR OwnerTbl.OID, OwnerTbl.Owner da ORDEM de OwnerTbl PERTO [proprietário]; a necessidade do

I (OwnerTbl) para abrir nomes tão novos pode ser adicionada quando o usuário tenta entrar um nome que não esteja na lista.  Agora apenas diz-lhes que têm que usar um nome no list. class= do

Resposta : Precisar de adicionar nomes à caixa combinado

São aqui um par exemplos igualmente:

Exemplo 1 - Introduzindo um artigo novo diretamente na tabela de consulta atrás das cenas….
cboCONTACT_ID_NotInList secundário confidencial (NewData como a corda, resposta como o inteiro)
myVar não ofuscante
Ctl não ofuscante como o controle
Lresponse não ofuscante como por muito tempo
Ajustar o ctl = o Me.cboCONTACT_ID
Se MsgBox (NewData & “é um artigo novo.  Você deseja adicioná-lo à caixa combinado? ”, o vbYesNo, “adiciona o artigo”) = vbYes então

   'adicionar o novo recorda
    CurrentDb.Execute “inserção em valores dos tbl_contacts ([contact_NAME]) (“” & NewData & “"); “
    Resposta = acDataErrAdded
Mais
    myVar = Me.cboCONTACT_ID
    Resposta = acDataErrContinue
    ctl. Undo
    Terminar se

Terminar o submarino

Exemplo 2 - “Form2” é um formulário simples conetado à tabela da lista
Submarino confidencial Combo1_NotInList (NewData como a corda, resposta como o inteiro)

    Se MsgBox (NewData & “é um artigo novo.  Você deseja adicioná-lo à caixa combinado? ") = vbYesNo então
        DoCmd.OpenForm “Form2”, acFormAdd, acDialog, NewData
        Resposta = acDataErrAdded
    Mais
        Resposta = acDataErrContinue
        Me.Combo1.Undo
    Terminar se
   
Terminar o submarino

MX