, " 2 en klik " OK " om een nieuwe kalender controle om uw formulier te voegen . Klik op ' Tekstvak ' op de ruit controles , en op het formulier om een nieuwe " tekstvak " control toe te voegen . Voeg een " Command Button " gebruikmaking van dezelfde techniek .
3 rechtermuisknop op de kalender controle , klik op " Build Event , " en klik op ' Code Builder . " Klik op ' OK ' om het venster VBA- editor te starten
4
Voeg de volgende code om een bericht weer te geven wanneer u op een datum in de kalender controle : .
Private Sub Calendar0_Click
( )
MsgBox ( Calendar0.Value )
End Sub
Schakelaar
5 terug naar Microsoft Access met de rechtermuisknop op de opdracht knop en klik op ' Eigenschappen ' klik op het tabblad " Event " en kies " [ Event Procedure ] " naast " bij klikken . " Klik op de drie puntjes om een gebeurtenis click voor deze toets te creëren
6
Voeg de volgende code om een datum op de kalender controle met behulp van de waarde van de ingevoerde in te stellen. " Text Box : "
Me.Text1.SetFocus
Me.Calendar0.Value
= Me.Text1.Text
Schakelaar 7 terug naar Microsoft Access en klik op het pictogram " View " om het programma te draaien . Klik op een datum op de kalender controle . Typ een datum in de " Text Box " -controle , en klik op ' Command0 . "