Cuestión : Necesitar agregar nombres a la caja combinada

Tengo una caja combinada (Combo30)/fuente = OwnerID
basado en una pregunta:   SELECCIONAR OwnerTbl.OID, OwnerTbl.Owner de la ORDEN de OwnerTbl CERCA [dueño]; la necesidad del

I (OwnerTbl) abrir tan nuevos nombres puede ser agregada cuando el usuario intenta entrar un nombre que no esté en la lista.  Ahora apenas les dice que tienen que utilizar un nombre en el list. class= del

Respuesta : Necesitar agregar nombres a la caja combinada

Aquí están uces par de ejemplos también:

Ejemplo 1 - Insertando un nuevo artículo directo en la tabla de operaciones de búsqueda detrás de las escenas….
cboCONTACT_ID_NotInList secundario privado (NewData como secuencia, respuesta como número entero)
myVar dévil
Ctl dévil como control
Lresponse dévil como de largo
Fijar el ctl = Me.cboCONTACT_ID
Si MsgBox (NewData y “es un nuevo artículo.  ¿Usted desea agregarlo a la caja combinada? ”, el vbYesNo, “agrega el artículo”) = los vbYes entonces

   'agregar el nuevo récord
    CurrentDb.Execute “parte movible en valores de los tbl_contacts ([contact_NAME]) (“” y NewData y “"); “
    Respuesta = acDataErrAdded

    myVar = Me.cboCONTACT_ID
    Respuesta = acDataErrContinue
    ctl. Deshacer
    Terminar si

Terminar el submarino

Ejemplo 2 - “Form2” es una forma simple conectada con la tabla de la lista
Submarino privado Combo1_NotInList (NewData como secuencia, respuesta como número entero)

    Si MsgBox (NewData y “es un nuevo artículo.  ¿Usted desea agregarlo a la caja combinada? ") = vbYesNo entonces
        DoCmd.OpenForm “Form2”, acFormAdd, acDialog, NewData
        Respuesta = acDataErrAdded
   
        Respuesta = acDataErrContinue
        Me.Combo1.Undo
    Terminar si
   
Terminar el submarino

MX