3 Begynd programmeringen er nødvendig for at stemple Starttidspunkt automatisk , ved først at oprette en formular , som programmet vil køre : Tryk "Opret > Form . " Højreklik på fanen for den nye " Event" form og vælg " Designvisning ".
4
Tryk på " Aktiver Indhold" knappen på værktøjslinjen for at tillade makroer at køre på denne database. < br >
5
Højreklik på " Date Stamp " felt, og vælg "Egenskaber " og derefter klikke på "Event "-fanen i "Property Sheet " vinduet. Klik på pil ned i " On Got Focus" rækken og vælg " [ Hændelse procedure] . " Klik på knappen med de ellipser , som sidder umiddelbart til højre for pil ned , for at komme ind i Visual Basic integrerede udviklingsmiljø (IDE) .
6
Indsæt følgende program kode i IDE kode vinduet : Hej
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
Retur til adgang ved at trykke på "alt - f11 ", så højre -klik på fanen "Hændelser" og vælg " form View " for at aktivere formularen til indtastning af data .
8
Tab gennem alle områder af hver prøve post du har indtastet indtil " ID " felt viser " ( Ny) . " Tab ned til "Start tid" felt og se effekten af din makro , som har udfyldt Start tid med den aktuelle dato.
9
datostempel "End Time" område ved re- indtaste IDE og indsætte følgende kode under koden du tidligere indtastet : Hej
Private Sub End_Time_GotFocus ( ) ' Skift 1 i næste sætning til det ønskede antal dage efter starten datetm = DateAdd ( "d" , 1, START_TIME ) End_Time = tmEnd Sub
10
Re -run formularen, der sikrer, at "End Time" felt viser en dato en dag efter "Start tid " feltet.
< br >