Access - Error de Compilación (Codigo VBA)

 
Vista:
sin imagen de perfil
Val: 40
Ha aumentado su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

Error de Compilación (Codigo VBA)

Publicado por Karen (13 intervenciones) el 27/04/2021 18:02:56
Hola!

Estoy escribiendo un código VBA y a querer ejecutarlo me sale un recuadro diciendo "Error de compilación: No se ha definido Sub o Function.

Agradezco su ayuda al hacerme ver el error que he cometido.

1
2
3
4
5
6
7
whith Me.Detalle_Pedido_HEB__USA.Form.RecordsetClone
     .MoveFirst
     Do While Not .EOF
     CurrentDb.Execute ("UPDATE Inventario set Cantidad=Cantidad-" & !Cantidad & "WHERE Codigo=" & !Codigo)
     .MoveNext
    Loop
End With

Lo que intento hacer es darle salida a un pedido con productos varios y descontarlo del inventario.

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 1.094
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error de Compilación (Codigo VBA)

Publicado por Norberto (80 intervenciones) el 28/04/2021 13:51:49
Hola.

¿whith?

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 40
Ha aumentado su posición en 3 puestos en Access (en relación al último mes)
Gráfica de Access

Error de Compilación (Codigo VBA)

Publicado por Karen (13 intervenciones) el 29/04/2021 02:56:15
Que pena!! jajajaja se nota que soy principante
Gracias!!! :)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Norberto
Val: 1.094
Oro
Ha mantenido su posición en Access (en relación al último mes)
Gráfica de Access

Error de Compilación (Codigo VBA)

Publicado por Norberto (80 intervenciones) el 29/04/2021 09:21:14
Hola de nuevo:

Un truco: define siempre las variables, los procedimientos y las funciones en una combinación de mayúsculas y minúsculas (FechaNacimiento, MiSQL, MiCriterio, BuscarConcepto...) y cuando escribas el código hazlo siempre en minúsculas. Si al cambiar de línea algo permanece en minúsculas, es que esa expresión no está definida y habrá, probablemente, un error sintáctico.

También es útil activar la declaración obligatoria de variables para que dé error al compilar y no nos volvamos locos al ejecutar un código que no funciona porque estamos dando valor a una variable y usando otra vacía más adelante.

Captura

Un consejo: cuando pongas código indicando que da un error, di en qué línea.

Un saludo y a seguir dándole al VBA.

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error de Compilación (Codigo VBA)

Publicado por Anonimo (3329 intervenciones) el 28/04/2021 20:51:45
En la ventana de inmediato:

codigo = 2222
Cantidad = 1257.25
1
2
3
4
5
?"UPDATE Inventario set Cantidad=Cantidad-" & Cantidad & "WHERE Codigo=" & Codigo
UPDATE Inventario set Cantidad=Cantidad-1257.25WHERE Codigo=2222
 
?"UPDATE Inventario set Cantidad=Cantidad-" & Cantidad & " WHERE Codigo=" & Codigo
UPDATE Inventario set Cantidad=Cantidad-1257.25 WHERE Codigo=2222
Una pequeña diferencia y un correcto resultado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar