
Error programación VBA
Publicado por Miguel (29 intervenciones) el 10/10/2014 11:30:57
Hola a todos,
os comento una duda de programación,
If sEHPVB <> "" And sEHPVB <> obtenerVacios(TBL1("EHPVB")) Then
'Actualizar la tabla Todosmodelos
sql = "Update Todosmodelos SET EHPVB ='" & sEHPVB & "' WHERE Id_PHS_Desm =" & lFilaPHs & " And TBL1("Modelo")="SE27X";"
db.Execute (sql)
Lo que pongo en negrita es lo que he cambiado, lo demás antes funcionaba perfecto. La idea es que antes actualizaba todos los datos de la tabla, ahora necesito que sólo actualice los campos de la tabla Todosmodelos (abierta como Recordset TBL1) en los cuales el valor del campo Modelo sea igual a SE27X (no es variable,es un string) y que Id_phs_desm=lfilaphs. El error debe ser de sintaxis supongo (no sé si se puede usar un And ahí)...
Saludos.
os comento una duda de programación,
If sEHPVB <> "" And sEHPVB <> obtenerVacios(TBL1("EHPVB")) Then
'Actualizar la tabla Todosmodelos
sql = "Update Todosmodelos SET EHPVB ='" & sEHPVB & "' WHERE Id_PHS_Desm =" & lFilaPHs & " And TBL1("Modelo")="SE27X";"
db.Execute (sql)
Lo que pongo en negrita es lo que he cambiado, lo demás antes funcionaba perfecto. La idea es que antes actualizaba todos los datos de la tabla, ahora necesito que sólo actualice los campos de la tabla Todosmodelos (abierta como Recordset TBL1) en los cuales el valor del campo Modelo sea igual a SE27X (no es variable,es un string) y que Id_phs_desm=lfilaphs. El error debe ser de sintaxis supongo (no sé si se puede usar un And ahí)...
Saludos.
Valora esta pregunta


0