Problemas al actualizar una tabla
Hola asturcon3, la verdad estoy varada por esto :
Tengo una forma en la que capturo datos y con esta información debo actualizar (Update ) Otra tabla. He intentado varias cosas pero no lo he logrado.
El código que tengo en el evento AfterUpdate es así:
Set db = CurrentDb
Set RPlate = db.OpenRecordset("Vehicle", dbOpenDynaset)
strSQL = " UPDATE Vehicle SET vh_kilome = ' '" & gs_milage.Text & "' "
strSQL = strSQL & "WHERE vh_intecod = '" & Vehicle.Text & "' "
db.Execute strSQL
El problema es que me exige SetFocus para las dos variables (Vehicle y gs_milage)para ejecutar esta instrucción.
También lo he intentado asignando valores directos (ej: 5 o 10) al SET y al WHERE funciona, pero eso no es posible pues no son valores constantes.
Te agradezco tu pronta ayuda y gracias de antemano por tu tiempo.
Tengo una forma en la que capturo datos y con esta información debo actualizar (Update ) Otra tabla. He intentado varias cosas pero no lo he logrado.
El código que tengo en el evento AfterUpdate es así:
Set db = CurrentDb
Set RPlate = db.OpenRecordset("Vehicle", dbOpenDynaset)
strSQL = " UPDATE Vehicle SET vh_kilome = ' '" & gs_milage.Text & "' "
strSQL = strSQL & "WHERE vh_intecod = '" & Vehicle.Text & "' "
db.Execute strSQL
El problema es que me exige SetFocus para las dos variables (Vehicle y gs_milage)para ejecutar esta instrucción.
También lo he intentado asignando valores directos (ej: 5 o 10) al SET y al WHERE funciona, pero eso no es posible pues no son valores constantes.
Te agradezco tu pronta ayuda y gracias de antemano por tu tiempo.
1 Respuesta
Respuesta de asturcon3
1
Para obtener valores de controles utiliza control. value o incluso control a secas, pues el .text está pensado para otra cosa... concretamente para otener el valor de un control mientras está editándose. Por eso no funciona si no tiene el foco.
Y puestos a ello, mejor si en vez de poner gs_milagre a secas pones me. gs_milagre. Parece una tontería, pero si tu programa se complica te ahorrará muchos dolores de cabeza.
Resumiendo
strSQL = " UPDATE Vehicle SET vh_kilome = ' '" & me.gs_milage & "' "
strSQL = strSQL & "WHERE vh_intecod = '" & me.Vehicle & "' "
Por cierto que te sobra un apóstrofe justo después de vh_kilome=. Supongo que ha sido al hacer la pregunta, que se te ha ido.
Y puestos a ello, mejor si en vez de poner gs_milagre a secas pones me. gs_milagre. Parece una tontería, pero si tu programa se complica te ahorrará muchos dolores de cabeza.
Resumiendo
strSQL = " UPDATE Vehicle SET vh_kilome = ' '" & me.gs_milage & "' "
strSQL = strSQL & "WHERE vh_intecod = '" & me.Vehicle & "' "
Por cierto que te sobra un apóstrofe justo después de vh_kilome=. Supongo que ha sido al hacer la pregunta, que se te ha ido.
