Fredmac48
2015-02-09 23:58:23 UTC
Buenas Tardes
tengo un problema con una consulta de actualización tengo 6 equipos contra la base de datos
ahora tengo la consulta qry_actualizar_acumulado
si la ejecuto con DoCmd.OpenQuery ejecuta la mayoría de veces algunas veces no actualiza el sistema y toca hacer varias veces el intento hasta que por fin actualiza el acumulado
he intentado varios métodos a ver si mejora la ejecución de la consulta
con DoCmd.RunSQL ejecuta tambien la mayoría de veces
no se si con CurrentDb.Execute solucione el problema
Private Sub txt_id_cadete_AfterUpdate()
If Me.ult_entraga < ini_semana Then
' DoCmd.SetWarnings False
' DoCmd.OpenQuery "qry_actualizar_acumulado"
' DoCmd.SetWarnings True
CurrentDb.Execute "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=" & [txt_id_cadete] & " ));", dbFailOnError
'DoCmd.RunSQL "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=[Formularios]![frm_add_facturas]![txt_id_cadete]));"
End if
End Sub
tengo un problema con una consulta de actualización tengo 6 equipos contra la base de datos
ahora tengo la consulta qry_actualizar_acumulado
si la ejecuto con DoCmd.OpenQuery ejecuta la mayoría de veces algunas veces no actualiza el sistema y toca hacer varias veces el intento hasta que por fin actualiza el acumulado
he intentado varios métodos a ver si mejora la ejecución de la consulta
con DoCmd.RunSQL ejecuta tambien la mayoría de veces
no se si con CurrentDb.Execute solucione el problema
Private Sub txt_id_cadete_AfterUpdate()
If Me.ult_entraga < ini_semana Then
' DoCmd.SetWarnings False
' DoCmd.OpenQuery "qry_actualizar_acumulado"
' DoCmd.SetWarnings True
CurrentDb.Execute "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=" & [txt_id_cadete] & " ));", dbFailOnError
'DoCmd.RunSQL "UPDATE tbl_cadetes SET tbl_cadetes.peso_acumulado = 0, tbl_cadetes.veces_traida = 0 WHERE (((tbl_cadetes.id_cadete)=[Formularios]![frm_add_facturas]![txt_id_cadete]));"
End if
End Sub