Programar cuadros combinados de access con vba
Como puedo programar un cuadro combinado para que inserte el dato seleccionado en una tabla al hacer click en un botón, pongo el código para que me ayuden a con el error que se genera.
Private Sub Comando20_Click()
'Declaramos una variable de nombre dbf y tipo base de datos (DataBase). Declaramos _
otra variable de nombre registros y tipo grupo de registros (RecordSet)
Dim dbf As Database, registros As Recordset
'Asignamos a la variable dbf la base de datos activa (CurrentDb), en nuestro caso la B.D. _
SOPORTE
Set dbf = CurrentDb
'Asignamos a la variable registros, los registros de la tabla MUESTRA
Set registros = dbf.OpenRecordset("MUESTRA", dbOpenDynaset)
'Añadimos un nuevo registro en blanco (en la tabla MUESTRA).
registros.AddNew
'En el campo XXXX de la tabla MUESTRA del registro nuevo, que se acaba de crear, se _
coloca lo que tenemos en el Cuadro Texto del formulario MUESTRA
registros("RADICADO_ATENCION") = Forms![MUESTRA]!Texto40
registros("NO_HOJAS_RADICADO") = Forms![MUESTRA]!Texto42
registros("NO_RADICADOS_ANTERIORES") = Forms![MUESTRA]!Texto46
registros("CLIENTE") = Forms![MUESTRA]![Texto44]
registros("FECHA") = Forms![MUESTRA]![Texto21]
registros("HORA_INICIO") = Forms![MUESTRA]![Texto24]
'aqui se produce el error
registros("NOMBRE_MOTIVO") = Forms![MUESTRA]![Cuadrocombinado33]
registros("NOMBRE_ETAPA") = Forms![MUESTRA]![Cuadrocombinado35]
registros("NOMBRE_ANALISTA") = Forms![MUESTRA]![Cuadrocombinado37]
registros("MUESTRA_OBSERVACIONES") = Forms![MUESTRA]![Texto50]
'Actualizamos el registro, es decir grabamos el registro de la tabla "MUESTRA".
registros.Update
Private Sub Comando20_Click()
'Declaramos una variable de nombre dbf y tipo base de datos (DataBase). Declaramos _
otra variable de nombre registros y tipo grupo de registros (RecordSet)
Dim dbf As Database, registros As Recordset
'Asignamos a la variable dbf la base de datos activa (CurrentDb), en nuestro caso la B.D. _
SOPORTE
Set dbf = CurrentDb
'Asignamos a la variable registros, los registros de la tabla MUESTRA
Set registros = dbf.OpenRecordset("MUESTRA", dbOpenDynaset)
'Añadimos un nuevo registro en blanco (en la tabla MUESTRA).
registros.AddNew
'En el campo XXXX de la tabla MUESTRA del registro nuevo, que se acaba de crear, se _
coloca lo que tenemos en el Cuadro Texto del formulario MUESTRA
registros("RADICADO_ATENCION") = Forms![MUESTRA]!Texto40
registros("NO_HOJAS_RADICADO") = Forms![MUESTRA]!Texto42
registros("NO_RADICADOS_ANTERIORES") = Forms![MUESTRA]!Texto46
registros("CLIENTE") = Forms![MUESTRA]![Texto44]
registros("FECHA") = Forms![MUESTRA]![Texto21]
registros("HORA_INICIO") = Forms![MUESTRA]![Texto24]
'aqui se produce el error
registros("NOMBRE_MOTIVO") = Forms![MUESTRA]![Cuadrocombinado33]
registros("NOMBRE_ETAPA") = Forms![MUESTRA]![Cuadrocombinado35]
registros("NOMBRE_ANALISTA") = Forms![MUESTRA]![Cuadrocombinado37]
registros("MUESTRA_OBSERVACIONES") = Forms![MUESTRA]![Texto50]
'Actualizamos el registro, es decir grabamos el registro de la tabla "MUESTRA".
registros.Update
1 respuesta
Respuesta
1