Error 3464
Publicado por Ceci (9 intervenciones) el 11/06/2009 20:05:59
Que tal amigos Foreros!
Se me ha presentado el siguiente incoveniente....
En un command button tengo ingresado un código para pasar los datos de una tabla a otra introduciendo ciertos parámetros... funcionaba bien hasta que le agregué una sentencia iff ... ahí se me complicó... me salió este error 3464 "No coinciden los datos en la expresión de criterios"
El código es el siguiente... no se que lío hice....
Private Sub Comando3_Click()
Dim SQL4 As String
strSQL4 = "INSERT INTO Estadistica ( [Nº HISTORIA], [APELLIDO Y NOMBRES], [Nº AFILIADO], TIP_DOC, [Nº DOC], NACIMIENTO, INGRESO, REINGRESO, EGRESO,)"
strSQL4 = strSQL4 & " SELECT IntDepurada.NUMHISTO, IntDepurada.APENOMPA, IntDepurada.NUMAFIL, IntDepurada.TIP_DOC, IntDepurada.DOC, IntDepurada.FECHNACI, IntDepurada.FECHINGR, IntDepurada.FINGRESO, iif(IntDepurada.FEGRESO > IntDepurada.FINAL,' ',IntDepurada.FEGRESO) "
strSQL4 = strSQL4 & " FROM IntDepurada"
strSQL4 = strSQL4 & " WHERE (((IntDepurada.NNOMOBSOC) Like 'DIBA'))"
CurrentDb.Execute strSQL4, dbFailOnError
MsgBox "concluido exitosamente", , "Gracias"
End Sub
Desde ya... como siempre... Gracias!!!!
Se me ha presentado el siguiente incoveniente....
En un command button tengo ingresado un código para pasar los datos de una tabla a otra introduciendo ciertos parámetros... funcionaba bien hasta que le agregué una sentencia iff ... ahí se me complicó... me salió este error 3464 "No coinciden los datos en la expresión de criterios"
El código es el siguiente... no se que lío hice....
Private Sub Comando3_Click()
Dim SQL4 As String
strSQL4 = "INSERT INTO Estadistica ( [Nº HISTORIA], [APELLIDO Y NOMBRES], [Nº AFILIADO], TIP_DOC, [Nº DOC], NACIMIENTO, INGRESO, REINGRESO, EGRESO,)"
strSQL4 = strSQL4 & " SELECT IntDepurada.NUMHISTO, IntDepurada.APENOMPA, IntDepurada.NUMAFIL, IntDepurada.TIP_DOC, IntDepurada.DOC, IntDepurada.FECHNACI, IntDepurada.FECHINGR, IntDepurada.FINGRESO, iif(IntDepurada.FEGRESO > IntDepurada.FINAL,' ',IntDepurada.FEGRESO) "
strSQL4 = strSQL4 & " FROM IntDepurada"
strSQL4 = strSQL4 & " WHERE (((IntDepurada.NNOMOBSOC) Like 'DIBA'))"
CurrentDb.Execute strSQL4, dbFailOnError
MsgBox "concluido exitosamente", , "Gracias"
End Sub
Desde ya... como siempre... Gracias!!!!
Valora esta pregunta


0