UpDate
Publicado por Jose (3 intervenciones) el 25/08/2022 20:00:33
Tengo el siguiente código en un boton y las variables que no estén estan declaradas como Global en un Módulo.
Recibo los datos bien pero cuando se ejecuta el UdDate, pongo el código
Me cambia los valores en toda la tabla Pedidos. He probado todas, o casi todas, las comibaciones de escribir el código, y la que no da error no funciona.
Me esta sacando de quicio
Gracias por la ayuda
Recibo los datos bien pero cuando se ejecuta el UdDate, pongo el código
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
On Error GoTo Err_Comando6_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim SQL As String
Dim NewEstado
Dim OldEstado
NewEstado = 1 OldEstado = 0MsgBox "Pruebas de Caja ... Mesa: " & Mesa & " AND Estado: " & Estado & " AND IdPedido: " & IdPedido & " AND NewEstado: " & NewEstado
DoCmd.SetWarnings False 'Desactivar mensajes del sistema
SQL = "UPDATE Pedidos SET Estado = '1' WHERE IdPedido = IdPedido "
DoCmd.RunSQL SQLDoCmd.SetWarnings True 'Activar mensajes del sistema
stDocName = "Comandas"
MsgBox "El Importe ha sido grabado con EXITO.", vbCritical, "Aceptar"
DoCmd.GoToRecord , stDocName, acNewRec
DoCmd.CloseMe esta sacando de quicio
Gracias por la ayuda
Valora esta pregunta
0
