Hvordan Date Stamp en Record i Access

December 23

Stempling registrering av en databasetabell i Microsoft Access, må du oppgi en bruker valgt dato i posten. Brukeren kan angi datoen for hånd eller bruke Visual Basic for Applications for å automatisk stemple datoen.

Bruksanvisning

1 Åpne Microsoft Access og opprette en eksempeldatabase ved å klikke på "File> New> Sample maler> Events," og deretter på "Create" -knappen. Klikk på "Navigation Pane" på venstre side av skjermen, deretter "Støtte Objects" overskriften for å avsløre "Events" tabellikonet. Dobbeltklikk dette ikonet for å åpne opp Hendelser tabell for dataregistrering.

2 Tast inn to rader med eksempeldata i hendelsestabellen med følgende tekst, som tilsvarer feltene "tittel", "Start Time" og "End Time". Ikke fyll inn komma, som viser deg hvor du skal trykke på "Tab" -tasten. Må erstatte <dato> felt med dagens og morgendagens dato.

Klippe gresset, <dagens dato>, <morgendagens dato>
Male huset, <dagens dato>, <morgendagens dato>

3 Begynn programmering er nødvendig for å stemple Starttid automatisk, ved først å opprette en form som programmet vil kjøre: trykk på "Create> Form." Høyreklikk på tappen på den nye "Event" form og velg "Design view."

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 på nedoverpilen i "På Got Focus" rad og velg "[Hendelses prosedyren]." Klikk på knappen med ellipser, som sitter umiddelbart til høyre for ned-pilen for å gå inn i Visual Basic integrert utviklingsmiljø (IDE).

6 Lim inn følgende programkode i IDE kode vinduet:

Private Sub Start_Time_GotFocus ()
Dim x As Variant
Hvis (IsNull (START_TIME)) Deretter

m = Month(Now()) d = Day(Now()) y = Year(Now()) x = m & "/" & d & "/" & y Start_Time = x

Slutt om
End Sub

7 Return to Tilgang ved å trykke på "alt-f11," høyreklikk på "Hendelser" -kategorien og velg "Form View" for å aktivere den formen for dataregistrering.

8 Tab gjennom alle felt av hver prøve posten du skrev inn 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 å taste IDE og lime inn følgende kode under koden du tidligere skrev inn:

Private Sub End_Time_GotFocus ()
"Endre en i neste setning til ønsket antall dager etter startdatoen
tm = DateAdd ( "d", 1, START_TIME)
END_TIME = tm
End Sub

10 Re drevet form, slik at den "End Time" feltet viser en date en dag etter at "Starttid" -feltet.

Hint

Vær oppmerksom på muligheten for ondsinnede makroer kjøres på databaser som du har aktivert "aktivt innhold". Kjør antivirusprogrammet av slike databaser før du åpner dem i Access.