Cómo utilizar el calendario en VBA

Utilice un control de calendario en Visual Basic para Aplicaciones ( VBA) para mostrar o introducir una fecha específica. VBA es un lenguaje de programación disponible en todas las aplicaciones de Microsoft Office y es comúnmente utilizado para crear pequeños programas dentro de las aplicaciones. Microsoft Access proporciona un control de calendario que se puede colocar en una página de acceso a formularios, informes o datos. Puede establecer u obtener el valor del control de calendario mediante la propiedad "Value" . Cosas que necesitará
Microsoft Access
Ver Más instrucciones
1

lanzamiento Microsoft Access, haga clic en la pestaña " Crear" , y luego haga clic en " Diseño de formularios " para insertar un nuevo formulario. Haga clic en el icono " Insert ActiveX Control" en el panel "Controles" para abrir la ventana de diálogo "Insertar ActiveX Control" .

2 Haga doble clic en " Control de calendario

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 . "