EJEMPLO

Aida Gladys Guaypacha Criollo

Programar mediante UserForm en VBA 💾

Se desea agregar un campo calculado en un formulario de Access el cual el campo Total no es un campo calculado y el campo total no está vinculado con los precios de la tabla productos.

•  Modificamos mediante la hoja de propiedades el nombre y el origen en el cual estipulamos cual es la función que deseamos que realice por lo tanto es =[CANTIDAD]*[PRECIO]

• Luego marcamos el campo cantidad y en la hoja de propiedades nos dirigimos a eventos y en la opción después de actualizar seleccionamos Procedimiento de evento y damos click en los 3 puntos (…).

•       Luego nos aparece el programados  Visual Basic para aplicaciones en el cual procedemos a elegir la opción AfterUpdate correspondiente del TextBox CANTIDAD Y PRECIO

• Antes de escribir el código de programación en los eventos seleccionados, procedemos a crear un procedimiento público al cual lo describimos de esta manera.
  

  Public Sub CampoCalculado ()
• Luego declaramos una variable el cual lo detallamos de la siguiente manera:
  

  Dim vImporte As Double
•  A continuación detallamos la variable vImporte y le asignamos el resultado de lo que tenemos en la caja de texto importe, el cual lo vamos a estipular con una función NZ para que no nos caiga en error si el valor en nulo y esto nos devolverá a Cero.
  

  vImporte = Nz (Me.txtImporte.Value , 0) 

• En la siguiente línea escribimos un comando el cual haga referencia al campo de la tabla donde queremos que se modifique el resultado del campo calculado guardado en el formulario y procedemos a igualar con la variable estipulada.
  
  Me.TOTAL.Value = vImporte 

•         Para finalizar en los eventos de AfterUpdate () de cada uno de los controles de texto  CANTIDAD Y PRECIO procedemos a detallar lo siguiente:
  

  Call CampoCalculado

• Por ultimo procedemos a guardar y ejecutamos para ver si funciona de la manera correcta.

👉 OJO 👀

Uno de los errores que puede ocurrir al momento de ejecutar es no digitar bien cada uno de los TextBox al momento de programar por lo tanto se ejecuta un error de compilación.

Como podemos ver en la imagen el error fue que  el TextBox no se denomina Importe en mi formulario  esta estimulado como TOTAL por lo tanto al modificarlo  se ejecuta de la manera correcta.