Hur Datumstämpel en Record i Access

Stämpling rekordet av en databas tabell i Microsoft Access innebär att mata ett användarvänligt valt datum i posten . Användaren kan ange datumet för hand eller använda Visual Basic for Applications för att automatiskt stämpla datum . Saker du behöver
Microsoft Access
Visa fler instruktioner
1

Öppna Microsoft Access och skapa ett prov databas genom att klicka på " Arkiv> Nytt> exempelmallar > Händelser " och sedan på " Skapa " -knappen . Klicka på " navigeringsfönstret " till vänster på skärmen , då de "stödjande Objects " rubriken för att exponera " Evenemang " table -ikonen . Dubbelklicka på ikonen för att öppna upp Events tabellen för inmatning av data .
2

Ange två rader med exempeldata i Events tabellen med följande text , som motsvarar fälten " Titel ", " Start Time "och " End Time . " Ange inte kommatecken , som visar var du ska trycka på " Tab " -tangenten . Vill ersätta fält med dagens och morgondagens datum .

Klipp gräset , , måla huset , , Addera 3

starta programmeringen behövs för att stämpla Starttid automatiskt , genom att först skapa ett formulär som programmet körs : tryck på " Skapa > Form . " Högerklicka på fliken för den nya " Händelse " formuläret och välj " Design. "
4

Tryck på " Aktivera innehåll " -knappen på verktygsfältet för att tillåta makron för att köra på denna databas .

5

Högerklicka på " Date Stamp " fältet och välj "Egenskaper ", klicka sedan på " Event" fliken i " Egenskapsblad " fönstret . Klicka på nedåtpilen i " On Got Focus " raden och välj " [Event förfarande ] . " Klicka på knappen med ellipser , som sitter direkt till höger om pilen , för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) .
6

Klistra in följande programkod i IDE : s kod fönster :

Private Sub Start_Time_GotFocus ( ) Dim x As VariantIf ( IsNull ( start_time ) ) Thenm = Månad ( nu ( ) ) d = Dag ( nu ( ) ) y = År ( nu ( ) ) x = m & " /" & d & " /" & yStart_Time = xEnd IfEnd Sub
7

Återgå till Access genom att trycka " alt - f11 , " högerklicka på " Händelser " fliken och välj " form View " för att aktivera formuläret för inmatning av data .
8

Tab igenom alla fälten i varje prov post du angav tills fältet" ID " visar " ( Ny ) . " Tab ner till " Starttid " fältet och se effekten av ditt makro , som har fyllt i Starttid med aktuellt datum .
9

datumstämpel på " End Time " fältet genom re - in i IDE och klistra in följande kod under koden du tidigare angav :

Private Sub End_Time_GotFocus ( ) 'Ändra 1 i nästa uttalande till önskat antal dagar efter starten datetm = DateAdd ( " d " , 1 , start_time ) end_time = tmEnd Sub
10

Re - kör formuläret , se till att " End Time " fältet visar ett datum en dag efter " Starttid " fältet .

Addera