Wie Sie einen Datensatz in Access-Datum-Stempel

April 28

Stanzen des Datensatzes einer Datenbank-Tabelle in Microsoft Access beinhaltet ein Benutzer gewählte Datum im Datensatz eingeben. Der Benutzer kann das Datum von hand eingeben oder Visual Basic für Applikationen verwenden, um automatisch das Datum zu stempeln.

Anweisungen

1 Öffnen Sie Microsoft Access und erstellen Sie eine Beispieldatenbank, indem Sie auf "Datei > Neu > Muster Vorlagen > Veranstaltungen," und dann den Button "Erstellen". Klicken Sie "Navigationsbereich" am linken Bildschirmrand, dann die "Unterstützenden Objekte"-Überschrift, um das Symbol "Ereignisse" Tabelle verfügbar zu machen. Doppelklicken Sie, dass die Tabelle Events zur Dateneingabe öffnen.

2 Geben Sie zwei Zeilen mit Beispieldaten in der Ereignisse-Tabelle mit den folgenden Text, der die Felder "Titel," entspricht "Startzeit" und "Endzeit." Geben Sie nicht die Kommas, die Ihnen wo zeigen Sie die "Tab"-Taste drücken. Ersetzen Sie < Datumsfelder > mit heutigen und zukünftigen Termine.

Schneiden Sie das Gras, < Heutiges Datum >, < morgige Datum >Malen Sie das Haus, < Heutiges Datum >, < morgige Datum >

3 Beginnen Sie die Programmierung erforderlich, um die Startzeit Stempel automatisch, indem Sie zunächst ein Formular, auf dem das Programm ausgeführt wird: Drücken Sie "erstellen > Form." Rechtsklicken Sie auf die Registerkarte des neuen Formulars "Ereignis" und wählen Sie "Ansicht entwerfen."

4 Drücken Sie die Schaltfläche "Inhalt aktivieren" auf der Symbolleiste auf dieser Datenbank ausführen von Makros zu ermöglichen.

5 Mit der rechten Maustaste auf das Feld "Datum-Stempel" und wählen Sie "Eigenschaften" und dann auf die Registerkarte "Ereignis" im Fenster "Eigenschaftenblatt". Klicken Sie auf den Pfeil in der Zeile "Bei Fokuserhalt" und wählen Sie "[Ereignisprozedur]." Klicken Sie auf die Schaltfläche mit den Auslassungspunkten, die sofort den abwärts-Pfeil, rechts neben der integrierten Entwicklungsumgebung (IDE) von Visual Basic eingeben sitzt.

6 Fügen Sie den folgenden Programmcode in der IDE-Code-Fenster:

Private Sub Start_Time_GotFocus()Dim X As VariantWenn (IsNull(Start_Time)) dann

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

EndIfEndSub

7 Zurück zu Access durch Drücken der "Alt-f11," dann mit der rechten Maustaste auf die Registerkarte "Ereignisse" und wählen Sie "Formular anzeigen" um das Formular für die Dateneingabe zu aktivieren.

8 Registerkarte durch alle Felder der einzelnen Mustereintrag eingegebene, bis das Feld "ID" zeigt "(neu)." Bis auf das Feld "Startzeit" Registerkarte, und beachten Sie die Wirkung Ihres Makros, die in der Anfangszeit mit dem aktuellen Datum gefüllt hat.

9 Datum-Stempel "Endzeit" Bereich durch erneute Eingabe der IDE und Einfügen den folgenden Code unter dem Code, den Sie zuvor eingegeben haben:

Private Sub End_Time_GotFocus()"Veränderung der 1 in der next-Anweisung, die gewünschte Anzahl von Tagen nach dem StartdatumTM = DateAdd ("d", 1, Start_Time)End_Time = tmEndSub

10 Führen Sie erneut das Formular, um sicherzustellen, dass das "Endzeit" Feld ein Datum ein Tag nach dem Feld "Startzeit" zeigt.

Tipps & Warnungen

  • Beachten Sie die Möglichkeit einer bösartigen Makros auf Datenbanken auf denen Sie aktiviert haben, "aktive Inhalte". Führen Sie Ihr antivirus-Programm solche Datenbanken vor dem Öffnen in Access.