Cuestión : agregar los nombres a la 2da caja combinada en forma

¿hola, el
i tiene base de datos cuando abre una forma sube. el
i tienen dos cajas combinadas si usted escribe en un nuevo nombre de compañía en el primer

box- que un msgbox sube y que le deja agregar pensamiento de it.

I con la segunda caja combinada - (cboDescription) yo sería reutilización capaz del

to el mismo código (agregar descripciones non-listed) - pero su no

working en all- está allí una razón obvia - yo no está considerando que que el

be una razón usted no puede cifrar la misma manera o soy me cierro?
thank you class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : agregar los nombres a la 2da caja combinada en forma

La primera cosa que noté era el primera caja combinada tiene el mismo nombre que su campo encuadernado -- esto es un problema, puesto que puede causar errores de la referencia.

El problema con el código en la 2da caja combinada (o la parte de ella) es que usted necesita agregar el StoreID así como la descripción al nuevo expediente de la tabla.  Aquí está mi plancha de caldera Agregar-al código de la caja combinada, se aerodinamiza que así que usted puede copiarla a un procedimiento y apenas modifica algunas palabras.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

cbo________NotInList secundario privado (strNewData como secuencia, intResponse como número entero)
'Establecer el límite para enumerar a sí
'Creado por Helen Feddema 7-Apr-2010
'Last modified 7-Apr-2010
'Ver Agregar-a las cajas combinadas (AA 161) .mdb

En el error ErrorHandler indicado
   
    Cbo dévil como Access.ComboBox
    Dbs déviles como DAO.Database
    intMsgDialog dévil como número entero
    intResult dévil como número entero
    Rst dévil como DAO.Recordset
    strEntry dévil como secuencia
    strFieldName dévil como secuencia
    strMsg dévil como secuencia
    strMsg1 dévil como secuencia
    strMsg2 dévil como secuencia
    strTable dévil como secuencia
    strTitle dévil como secuencia
  
    'El nombre de la tabla que es la fuente de la fila de la caja combinada
    strTable = “______________”
  
    'El tipo de artículo a agregar a la tabla
    strEntry = “___________”
  
    'El campo en la tabla de operaciones de búsqueda en la cual se almacena la nueva entrada
    strFieldName = “_____________”
  
    'Agregar-a la caja combinada
    Fijar el cbo = Me.ActiveControl

    'Exhibir una caja de mensaje que pregunta si el usuario quiere agregar
    'una nueva entrada.
    strTitle = strEntry y “no en lista”
    intMsgDialog = vbYesNo + vbExclamation + vbDefaultButton1
    strMsg1 = “usted quiere agregar”
    strMsg2 = “como un nuevo” y strEntry y “entrada?”
    strMsg = strMsg1 + strNewData + strMsg2
    intResult = MsgBox (strMsg, intMsgDialog, strTitle)

    Si intResult = vbNo después
        'Cancelar el adición de la nueva entrada a la tabla de operaciones de búsqueda.
        intResponse = acDataErrContinue
        cbo. Deshacer
        ErrorHandlerExit indicado
    intResult = vbYes de ElseIf después
        'Agregar un nuevo récord a la tabla de operaciones de búsqueda.
        Fijar los dbs = CurrentDb
        Fijar el rst = dbs.OpenRecordset (strTable)
        rst.AddNew
        rst (strFieldName) = strNewData
        rst. Actualización
        rst. Cierre
   
        'Continuar sin la exhibición del mensaje de error del defecto.
        el intResponse = acDataErrAdded
     Terminar si
   
ErrorHandlerExit:
   Salir el submarino

ErrorHandler:
   No. del error de MsgBox “: ” Y _ de Err.Number
      y “en” y Me.ActiveControl.Name y “procedimiento; ” _
      y “descripción: ” Y Err.Description
   Curriculum vitae ErrorHandlerExit

Submarino del extremo
Otras soluciones  
 
programming4us programming4us