3 Haga clic en el control de calendario , haga clic en " Crear evento ", a continuación, haga clic en " Generador de código . " Haga clic en "OK " para iniciar la ventana del editor de VBA
4
Agregue el código siguiente para mostrar un cuadro de mensaje cuando se hace clic en una fecha en el control de calendario : .
Private Sub Calendar0_Click ( )
MsgBox ( Calendar0.Value )
End Sub
5
volver a Microsoft Access , haga clic en el botón de comando, haga clic en "Propiedades" haga clic en la ficha " Evento " y elegir la opción " [ Procedimiento de evento ]" junto a " On click. " Haz clic en los puntos suspensivos para crear un evento de clic en este botón
6
Agregue el código siguiente para establecer una fecha en el calendario de control utilizando el valor introducido en el . "Cuadro de texto : "
< p > Me.Text1.SetFocus
Me.Calendar0.Value = Me.Text1.Text
7
volver a Microsoft Access y haga clic en el icono de "Ver" para ejecutar el programa . Haga clic en cualquier fecha en el control de calendario . Escriba una fecha en el control " Cuadro de texto " y haga clic en " Command0 . "