3 Begin de programmering die nodig is om de starttijd automatisch stempel , door eerst een formulier waarop het programma wordt uitgevoerd : druk op "Create > Form . " Klik met de rechtermuisknop op de tab van de nieuwe " Event " formulier en selecteer "Design view . "
4
Druk op de " Enable Content" knop op de werkbalk om macro's te draaien op deze databank . < br >
5
klik met de rechtermuisknop op het veld " Date Stamp " en selecteer "Eigenschappen ", klik op het tabblad "Event " in het venster " Eigenschappenvenster " . Klik op de pijl-omlaag in de " On Got Focus" rij en selecteer " [ Event procedure ] . " Klik op de knop met de ellipsen , die onmiddellijk zit aan de rechterkant van de pijl-omlaag , om de Visual Basic geïntegreerde ontwikkelomgeving ( IDE ) in te voeren .
6
Plak de volgende programmacode in de IDE 's code venster :
Private Sub Start_Time_GotFocus
( ) Dim x als VariantIf ( IsLeeg ( Start_Time ) ) Thenm = Month ( Now ( ) ) d = Day ( Now ( ) ) y = Year ( Now ( ) ) x = m & " /" & d & " /" & yStart_Time = xend IfEnd Sub
7
Terug naar toegang door op " alt - f11 , " klik met de rechtermuisknop op de tab 'Evenementen' en selecteer " vormen View "om het formulier voor gegevensinvoer te activeren .
Tab 8 door alle velden van elk monster record ingevoerd totdat de " ID "-veld laat zien " ( Nieuw ) . " Tab naar het veld " Starttijd " en merk het effect van uw macro , die is ingevuld in de Start tijd met de huidige datum .
9
Datum stempel het veld "End Time " door het opnieuw het invoeren van de IDE en plakken de volgende code onder de code die u eerder hebt ingevoerd :
Private Sub End_Time_GotFocus ( ) op ' Verander de 1 in de volgende verklaring aan het gewenste aantal dagen na de start datetm = DateAdd ( " d " , 1 , Start_Time ) End_Time = tmEnd Sub
10
Re - run van de vorm , ervoor te zorgen dat het veld "End Time " wordt een datum een dag na het veld " Starttijd " .
< br >
