Come Date Stamp di un record in Access

Stampaggio il record di una tabella di database in Microsoft Access richiede l'inserimento di una data scelto dall'utente nel record . L'utente può inserire la data a mano o utilizzare Visual Basic, Applications Edition per timbrare automaticamente la data . Cose che ti serviranno
Microsoft Access
Mostra più istruzioni
1

Aprire Microsoft Access e creare un database di esempio facendo clic su "File > Nuovo> Modelli di esempio > Eventi " e poi il pulsante "Crea " . Fare clic su " riquadro di spostamento " a sinistra dello schermo , quindi i "Oggetti di supporto " Intestazione per esporre l'icona tabella "Eventi" . Fare doppio clic su tale icona per aprire la tabella Eventi per il data entry .
2

Inserisci due file di dati di esempio nella tabella di eventi utilizzando il seguente testo , che corrisponde al campo " Titolo ", " Start Time "e " End Time ". Non inserire le virgole , che mostrano dove premere il tasto "Tab" . Non sostituire i campi con oggi e date di domani .

Tagliare l'erba , , dipingere la casa , ,
3

Iniziare la programmazione necessaria per stampare automaticamente l'ora di inizio , creando prima un modulo sul quale verrà eseguito il programma : premere "Crea > Modulo ". Fai clic destro sulla scheda del nuovo modulo "Evento" e selezionare " visualizzazione struttura ".
4

Premere il pulsante " Abilita contenuto " sulla barra degli strumenti per consentire di eseguire le macro in questo database .

5

pulsante destro del mouse sul campo " Date Stamp " e selezionare "Proprietà ", quindi fare clic sulla scheda " evento" nella finestra " finestra delle proprietà " . Fare clic sulla freccia giù nella " On Got Focus" riga e selezionare " [ Event Procedure ] . " Fare clic sul pulsante con i puntini di sospensione , che si trova immediatamente a destra della freccia verso il basso , per entrare nell'ambiente di sviluppo integrato di Visual Basic ( IDE ) .
6

Incollare il seguente codice di programma in codice del IDE finestra :

private Sub Start_Time_GotFocus ( ) Dim x As VariantIf ( IsNull ( Start_Time ) ) Thenm = Month ( Now ( ) ) d = giorno ( Now ( ) ) y = Year ( Now ( ) ) x = m & " /" & d & " /" & yStart_Time = xEND IfEnd Sub
7

tornare ad Access con il tasto " alt- f11 ", quindi fare clic destro sulla scheda " Eventi " e selezionare " Form View " per attivare il modulo per l'immissione di dati .
8

Tab attraverso tutti i campi di ogni record di esempio che hai inserito fino a quando i " ID " mostra di campo " ( Nuovo ) . " Tab fino al campo "Start Time" e notare l'effetto della macro , che ha riempito il tempo inizio con la data corrente .
9

timbro data nel campo " End Time" da ri- inserendo l'IDE e incollando il seguente codice sotto il codice immesso in precedenza :

private Sub End_Time_GotFocus ( ) 'Cambia l' 1 nella prossima dichiarazione per il numero desiderato di giorni dopo l'inizio datetm = DateAdd ( " d " , 1 , Start_Time ) end_time = tmEnd Sub
10

eseguire nuovamente il modulo , assicurando che il campo "End Time" mostra la data e un giorno dopo il campo " ora di inizio " .