Hur man använder kalendern i VBA

Använd en kalender kontroll i Visual Basic for Applications ( VBA ) för att visa eller ange ett specifikt datum . VBA är en dator programmeringsspråk finns i alla Microsoft Office-program och det är ofta används för att skapa små program i programmappen . Microsoft Access finns en kalender kontroll som du kan placera på ett formulär, en rapport eller dataåtkomstsida . Du kan ställa in eller få värdet av det kalenderår kontrollen med hjälp av " Value " egendom . Saker du behöver
Microsoft Access
Visa fler instruktioner
1

Launch Microsoft Access , klicka på " Skapa "-fliken , klicka sedan på " Form Design " för att infoga ett nytt formulär . Klicka på " Infoga ActiveX Control " -ikonen på " Controls " rutan för att lansera " Infoga ActiveX Control " dialogfönster .
2

Dubbelklicka på " Calendar Control , " och klicka " OK " för att infoga en ny kalender kontroll i formuläret . Klicka på " Textruta " på kontrollerna rutan , och klicka på formuläret för att lägga till en ny " Textruta " kontroll . Lägg en " Command Button " med samma teknik .
3

Högerklicka på kalendern kontroll , klicka på " Build Event, " klicka sedan på " Code Builder . " Klicka på " OK " för att starta VBA Editor
4

Lägg till följande kod för att visa ett meddelande när du klickar på ett datum i kalendern kontroll : .

Private Sub Calendar0_Click ( ) katalog

MsgBox ( Calendar0.Value ) katalog

End Sub
5

Växla tillbaka till Microsoft Access , högerklicka på kommandoknappen , klicka sedan på " Egenskaper" klicka på "Event " -fliken och välj " [Event Procedure ] " bredvid " Vid klickning . " Klicka på ellips för att skapa en click-händelse för denna knapp
6

Lägg till följande kod för att ställa in ett datum i kalendern kontroll med det värde som anges i . " Textruta : "

Me.Text1.SetFocus

Me.Calendar0.Value = Me.Text1.Text
7

Växla tillbaka till Microsoft Access och klicka på " Visa " -ikonen för att köra programmet . Klicka på en dag i kalendern kontroll . Ange ett datum i " Textruta " kontroll , och klicka på " Command0 . " Addera