3 Begynn programmering er nødvendig å stemple Starttid automatisk , ved først å opprette et skjema som programmet vil kjøre : Trykk "Create > Form . " Høyreklikk på fanen av den nye "Event " form og velg " Design visning. "
4
Trykk på " Aktiver innhold "-knappen på verktøylinjen for å tillate makroer til å kjøre på denne databasen .
5
Høyreklikk på " datostempel "-feltet , og velg "Properties ", velg deretter "Event " kategorien i "Property Sheet "-vinduet . Klikk ned - pilen i "On Got Focus" rad og velg " [Event prosedyre ] . " Klikk på knappen med ellipsene , som sitter umiddelbart til høyre for ned - pilen, å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) .
6
Lim inn følgende programkode i IDE kode vindu : en
Private Sub Start_Time_GotFocus ( ) Dim x As VariantIf ( IsNull ( START_TIME ) ) thenm = Month ( Now () ) d = Day ( Now () ) y = Year ( Now () ) x = m & " /" & d & " /" & yStart_Time = xEnd IfEnd Sub
7
Tilbake til Access ved å trykke "alt - f11 , " høyreklikk deretter på "Hendelser "-fanen og velg " danne View " for å aktivere form for dataregistrering.
8
Tab gjennom alle felt av hver prøve posten du skrev til " ID " feltet viser " ( Ny) . " Tab ned til " Starttid "-feltet og merke effekten av makroen , som har fylt i Start tid med dagens dato .
9
Dato stemple "End Time "-feltet ved å re- inn i IDE og lime inn følgende kode under koden du tidligere har angitt : en
Private Sub End_Time_GotFocus () ' Endre en i neste uttalelse til ønsket antall dager etter start datetm = DateAdd ( " d" , 1 , START_TIME ) END_TIME = tmEnd Sub
10
Re- kjøre skjemaet , slik at " End time" feltet viser en date en dag etter " Starttid "-feltet .
