Stamping den Rekord von einer Datenbank-Tabelle in Microsoft Access beinhaltet Eingabe eines Benutzer - gewählten Datum in der Platte. Der Benutzer kann das Datum von Hand eingeben oder Visual Basic für Applikationen , um automatisch Stempel das Datum . Things You
Microsoft Access
brauchen anzeigen Weitere Anweisungen
1

Öffnen Sie Microsoft Access und erstellen Sie eine Beispiel-Datenbank , indem Sie auf " Datei> Neu> Mustervorlagen > Veranstaltungen, " und dann die Schaltfläche "Erstellen" . Klicken Sie auf die "Navigation Pane " an der linken Seite des Bildschirms , dann die " unterstützende Objekte " Überschrift, um die "Events" Tisch icon freizulegen. Doppelklicken Sie auf das Symbol, um die Öffnung des Events Tabelle zur Dateneingabe .
2

zwei Reihen von Sample-Daten in der Tabelle mit Veranstaltungen den folgenden Text , der dem entspricht Felder " Titel " Enter " Startzeit "und" Endzeit ". Geben Sie nicht die Kommas , die Ihnen zeigen , wo die "Tab" -Taste drücken. Haben die Felder mit den heutigen und morgigen Daten ersetzen.

Schneiden Sie das Gras , , Malen Sie das Haus, ,
3

beginnen Sie die Programmierung benötigt, um die Startzeit automatisch stempeln , indem zunächst ein Formular , auf dem das Programm ausgeführt wird : Drücken Sie "Create > Formular . " Auf den Reiter der neuen "Event" Form der rechten Maustaste und wählen Sie " Entwurfsansicht. "
4

Drücken Sie die "Enable Content" auf der Symbolleiste , um Makros auf dieser Datenbank ausführen .
5

auf dem "Date Stamp "-Feld die rechte Maustaste und wählen Sie "Eigenschaften ", dann auf die Registerkarte "Ereignis" in den " Eigenschaften" -Fenster. Klicken Sie auf den nach unten weisenden Pfeil in der "On Got Focus" Zeile und wählen Sie " [Event Procedure] . " Klicken Sie auf die Schaltfläche mit den Ellipsen , die sofort auf der rechten Seite sitzt der Pfeil nach unten , um den Visual Basic integrierten Entwicklungsumgebung ( IDE) in Kraft.
6

das folgende Programm -Code in der IDE Code einfügen Fenster :

private Sub Start_Time_GotFocus () Dim x As VariantIf ( IsNull ( Start_Time ) ) thenm = Monat (Jetzt ()) d = Day ( Now () ) y = Year ( Now () ) x = m & "/" & d & "/" & yStart_Time = xEnd IfEnd Sub
7

Return durch Drücken Zugang "alt - f11 ", dann auf die Registerkarte "Ereignisse" mit der rechten Maustaste und wählen Sie " Formular anzeigen " , um das Formular für die Dateneingabe zu aktivieren.
8

Tab durch alle Felder der einzelnen Proben Eintrag, den Sie , bis die eingegebene " ID "-Feld zeigt " (New ) . " Tab auf das "Start time" Feld und beachten Sie die Wirkung Ihres Makros , die in der Anfangszeit mit dem aktuellen Datum gefüllt hat .
9

Datumsstempel der " Endzeit "-Feld durch Re- Eingabe der IDE und Einfügen den folgenden Code unter dem Code, den Sie zuvor eingegeben :

private Sub End_Time_GotFocus () ' die 1 in die nächste Anweisung an die gewünschte Anzahl von Tagen ändern nach dem Start datetm = DateAdd ( "d" , 1, Start_Time ) eND_TIME = tmEnd Sub
10

Re - führen Sie das Formular , um sicherzustellen, dass die " Endzeit "-Feld ein Datum zeigt einen Tag nach dem "Start time" Feld .