Come utilizzare il calendario in VBA

October 18

Come utilizzare il calendario in VBA


Utilizzare un controllo di calendario in Visual Basic, Applications Edition (VBA) per visualizzare o inserire una data specifica. VBA è un linguaggio di programmazione disponibile in tutte le applicazioni di Microsoft Office ed è comunemente utilizzato per creare piccoli programmi all'interno delle applicazioni. Microsoft Access fornisce un controllo calendario che è possibile inserire in una pagina del modulo, report o l'accesso ai dati. È possibile impostare o ottenere il valore del controllo di calendario utilizzando la proprietà "Value".

istruzione

1 Avviare Microsoft Access, fare clic sulla scheda "Crea", quindi su "Form Design" per inserire un nuovo modulo. Fare clic sull'icona "Inserisci controllo ActiveX" nel riquadro "Controlli" per avviare la finestra di dialogo "Inserisci controllo ActiveX".

2 Fare doppio clic su "Calendario di controllo <numero di versione>," e fare clic su "OK" per inserire un nuovo controllo di calendario al form. Fai clic su "Casella di testo" nel riquadro controlli e fare clic sul form per aggiungere un nuovo controllo "Casella di testo". Aggiungere un "pulsante di comando" utilizzando la stessa tecnica.

3 Fare clic sul controllo di calendario, fai clic su "Crea evento", poi cliccare su "Generatore di codice." Fai clic su "OK" per avviare la finestra di VBA Editor.

4 Aggiungere il seguente codice per visualizzare una finestra di messaggio quando si fa clic su una data sul controllo di calendario:

Private Sub Calendar0_Click ()

MsgBox (Calendar0.Value)

End Sub

5 Tornare a Microsoft Access, fare clic con il pulsante di comando, quindi fare clic su "Proprietà", fare clic sulla scheda "Evento" e scegliere "[Routine evento]" accanto a "Al clic". Fare clic sui puntini di sospensione per creare un evento click per questo pulsante.

6 Aggiungere il seguente codice per impostare una data sul controllo calendario utilizzando il valore inserito nella "Casella di testo:"

Me.Text1.SetFocus

Me.Calendar0.Value = Me.Text1.Text

7 Tornare a Microsoft Access, e fare clic sull'icona "Visualizza" per eseguire il programma. Fare clic su qualsiasi data sul controllo calendario. Digitare una data nel controllo "Casella di testo", e cliccare su "Comando0."