Tomar datos de formulario mediante código
Publicado por Claudio (16 intervenciones) el 14/12/2014 19:33:15
Que tal amigos,
La consulta es la siguiente: tengo un formulario al que después de ejecutarle un filtro me devuelve los datos que necesito, ahora bien, lo que yo deseo es capturar la información de unos cuadros de texto y exportarlos a otra tabla, lo puedo hacer correctamente a través de una consulta de datos agregados y funciona, este es el código sql que me muestra:
INSERT INTO [Para agregar a HOJAMEDI] ( REPITE, NUMHISTO, MEDICO )
SELECT ENCABEZADO.REPITE, ENCABEZADO.NUMHISTO, ENCABEZADO.MEDICARG
FROM ENCABEZADO
WHERE (((ENCABEZADO.REPITE)=[Formularios]![Control de datos]![Texto81]) AND ((ENCABEZADO.NUMHISTO)=[Formularios]![Control de datos]![Texto0]) AND ((ENCABEZADO.MEDICARG)=[Formularios]![Control de datos]![Texto8]));
Ahora bien, yo desearía hacerlo mediante código, lo he intentado pero siempre me tira un error " Pocos parámetros, se esperaba 3"
Este es el código que hice:
Dim rst1 As Recordset
Dim strSQL1 As String
strSQL1 = "INSERT INTO [Para agregar a HOJAMEDI] (REPITE,NUMHISTO,MEDICARG )"
strSQL1 = strSQL1 & " SELECT ENCABEZADO.REPITE, ENCABEZADO.NUMHISTO, ENCABEZADO.MEDICARG"
strSQL1 = strSQL1 & " FROM ENCABEZADO"
strSQL1 = strSQL1 & " WHERE (((ENCABEZADO.REPITE)=[Formularios]![Control de datos]![Texto81]) AND ((ENCABEZADO.NUMHISTO)=[Formularios]![Control de datos]![Texto0]) AND ((ENCABEZADO.MEDICARG)=[Formularios]![Control de datos]![Texto8]));"
CurrentDb.Execute strSQL1, dbFailOnError
Que es lo que estoy haciendo mal????
Gracias!!!!
La consulta es la siguiente: tengo un formulario al que después de ejecutarle un filtro me devuelve los datos que necesito, ahora bien, lo que yo deseo es capturar la información de unos cuadros de texto y exportarlos a otra tabla, lo puedo hacer correctamente a través de una consulta de datos agregados y funciona, este es el código sql que me muestra:
INSERT INTO [Para agregar a HOJAMEDI] ( REPITE, NUMHISTO, MEDICO )
SELECT ENCABEZADO.REPITE, ENCABEZADO.NUMHISTO, ENCABEZADO.MEDICARG
FROM ENCABEZADO
WHERE (((ENCABEZADO.REPITE)=[Formularios]![Control de datos]![Texto81]) AND ((ENCABEZADO.NUMHISTO)=[Formularios]![Control de datos]![Texto0]) AND ((ENCABEZADO.MEDICARG)=[Formularios]![Control de datos]![Texto8]));
Ahora bien, yo desearía hacerlo mediante código, lo he intentado pero siempre me tira un error " Pocos parámetros, se esperaba 3"
Este es el código que hice:
Dim rst1 As Recordset
Dim strSQL1 As String
strSQL1 = "INSERT INTO [Para agregar a HOJAMEDI] (REPITE,NUMHISTO,MEDICARG )"
strSQL1 = strSQL1 & " SELECT ENCABEZADO.REPITE, ENCABEZADO.NUMHISTO, ENCABEZADO.MEDICARG"
strSQL1 = strSQL1 & " FROM ENCABEZADO"
strSQL1 = strSQL1 & " WHERE (((ENCABEZADO.REPITE)=[Formularios]![Control de datos]![Texto81]) AND ((ENCABEZADO.NUMHISTO)=[Formularios]![Control de datos]![Texto0]) AND ((ENCABEZADO.MEDICARG)=[Formularios]![Control de datos]![Texto8]));"
CurrentDb.Execute strSQL1, dbFailOnError
Que es lo que estoy haciendo mal????
Gracias!!!!
Valora esta pregunta


0