Cargar tabla por código
Publicado por Mariel (21 intervenciones) el 21/07/2010 13:57:44
Que tal amigos,
Mi consulta es la siguiente... quiero hacer que cuando cargue un formulario proceda a actualizar una tabla que debo utilizar... mediante el siguiente código logro hacer que borre el contenido, pero cuando quiero cargar la nueva información, no lo hace... creo que el problema está en la utilización del "IIF", no se bien que parte de la gramática estoy haciendo mal, porque no me marca ningún error, pero no carga los datos... este es el código:
Private Sub Form_Load()
Dim SQL As String
Dim SQL1 As String
Dim stDocName As String
'Limpio la tabla NOV_PACI1
strsql = "Delete NOV_PACI1 (FINGRESO,FEGRESO,FEGRESO1,)"
strsql = strsql & " FROM NOV_PACI1"
CurrentDb.Execute strsql, dbFailOnError
'HASTA AQUÍ TODO BIEN...
'Lleno la tabla NOV_PACI1
strSQL1 = "INSERT INTO NOV_PACI1 (FINGRESO,FEGRESO,FEGRESO1)"
strSQL1 = strSQL1 & " SELECT (FINGRESO,FEGRESO,IIF([FEGRESO]>[FINAL],' ',[FEGRESO]) AS FEGRESO1,)"
strSQL1 = strSQL1 & " FROM NOV_PACI,FECHA_PARAM"
End Sub
Mi consulta es la siguiente... quiero hacer que cuando cargue un formulario proceda a actualizar una tabla que debo utilizar... mediante el siguiente código logro hacer que borre el contenido, pero cuando quiero cargar la nueva información, no lo hace... creo que el problema está en la utilización del "IIF", no se bien que parte de la gramática estoy haciendo mal, porque no me marca ningún error, pero no carga los datos... este es el código:
Private Sub Form_Load()
Dim SQL As String
Dim SQL1 As String
Dim stDocName As String
'Limpio la tabla NOV_PACI1
strsql = "Delete NOV_PACI1 (FINGRESO,FEGRESO,FEGRESO1,)"
strsql = strsql & " FROM NOV_PACI1"
CurrentDb.Execute strsql, dbFailOnError
'HASTA AQUÍ TODO BIEN...
'Lleno la tabla NOV_PACI1
strSQL1 = "INSERT INTO NOV_PACI1 (FINGRESO,FEGRESO,FEGRESO1)"
strSQL1 = strSQL1 & " SELECT (FINGRESO,FEGRESO,IIF([FEGRESO]>[FINAL],' ',[FEGRESO]) AS FEGRESO1,)"
strSQL1 = strSQL1 & " FROM NOV_PACI,FECHA_PARAM"
End Sub
Valora esta pregunta


0