- Los eventos generalmente se definen para realizar cálculos en los campos de los formulario o subformularios, asi como para efectuar validaciones utilizando la funcion IF THEN ELSE (Si una condicion se cumple, entonces realice este proceso)

- Ejemplo:
- If Promedio > 60 then MsgBox "Aprobado" Else    MsgBox "Reprobado"
- Se puede realizar un calculo luego del ingreso de un campo

- Ejemplo:
- PrecioVenta = CostoProducto * 1.15

- Los eventos generalmente se definen en los campos que producen un resultado, no asi en los que reciben el resultado de un operación. En el ejemplo anterior el evento debera definirse en el campo de CostoProduccion, ya que al momento de ingresar el costo se debe generar el precio de venta.  

- Clic sobre el derecho sobre el Calendario

- Se elige Generar Evento (1)

- Automaticamente generara una nueva ventana en la cual se elige Generar Codigo (2)

- Se despliega un nueva ventana donde se realiza el evento (3)

- Realizacion del Evento

- Private Sub Fechacalendario1_Click()

- Indica el inicio del evento (Private Sub) el campo que ejecuta el evento (Fechacalendario1) y la accion que ejecuta el evento (Click())

- If Fechacalendario1 > Now() Then

- Compara que la fecha  seleccionada no sea mayor a la del sistema

- MsgBox "Debe seleccionar una fecha menos o igual a la del sistema"

- Define el mensaje que se mostrara en la pantalla

- Fecha.SettFocus

- Hace que se seleccione de nuevo el campo que se llama fecha para volver a ingresar o seleccionar una fecha en el objeto calendario

- Else nInicio de lo que se va a hacer si la fecha selecionada no es mayor a la del sistema

- Fecha = Fechacalendario1

- Asisgnacion de la fecha seleccionada al cmapo fecha para que la guarde

- Refresh

- Actualiza la información del formulario que se esta usando

- End If

- Fin del If

- End Sub

- Fin del evento para el campo Fechacalendario