April 29
Stampaggio il record di una tabella di database in Microsoft Access prevede l'inserimento di un data scelto dall'utente nel record. L'utente può inserire la data a mano o utilizzare Visual Basic, Applications Edition per stampare automaticamente la data.
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, poi "Oggetti supporto" voce per esporre l'icona tavolo "Eventi". Fare doppio clic su tale icona per aprire la tabella degli eventi per l'immissione dei dati.
2 Inserisci due file di dati di esempio nella tabella degli eventi utilizzando il seguente testo, che corrisponde ai campi "Titolo", "Start Time" e "End Time". Non inserire le virgole, che mostrano dove premere il tasto "Tab". Non sostituire il <data> campi con date di domani oggi e.
Tagliare l'erba, <data odierna>, <data di domani>
Dipingi la casa, <data odierna>, <data di domani>
3 Inizia la programmazione necessaria per timbrare il tempo di avvio automatico, creando prima un modulo sul quale il programma verrà eseguito: premere "Crea> forma". Fai clic destro sulla scheda del nuovo modulo "Evento" e selezionare "visualizzazione struttura".
4 Premere il pulsante sulla barra degli strumenti "Contenuto Attiva" per consentire l'esecuzione di macro su questo database.
5 Fai clic destro sul campo "Date Stamp" e selezionare "Proprietà", quindi fare clic sulla scheda "Evento" nella finestra "Finestra delle proprietà". Fare clic sulla freccia giù nella riga "On Got Focus" e selezionare "[procedura di evento]." Fare clic sul pulsante con i puntini di sospensione, che si trova immediatamente a destra della freccia verso il basso, per accedere all'ambiente di Visual Basic di sviluppo integrato (IDE).
6 Incollare il seguente codice di programma nella finestra del codice del IDE:
Private Sub Start_Time_GotFocus ()
Dim x As Variant
Se (IsNull (Start_Time)) Then
m = Month(Now())
d = Day(Now())
y = Year(Now())
x = m & "/" & d & "/" & y
Start_Time = x
Finisci se
End Sub
7 Ritorno a L'accesso premendo il tasto "alt-F11", quindi fare clic destro sulla scheda "Eventi" e selezionare "Vista modulo" per attivare il modulo per l'inserimento dei dati.
8 Tab attraverso tutti i campi di ogni record di esempio è stato immesso fino a quando il "ID" campo show "(nuovo)." Tab fino al campo "Ora di inizio" e notare l'effetto della macro, che ha riempito l'ora di inizio con la data corrente.
9 Timbro data il campo "End Time" immettendo nuovamente l'IDE e incollando il seguente codice sotto il codice immesso in precedenza:
Private Sub End_Time_GotFocus ()
'Cambiare l'1 nella dichiarazione accanto al numero desiderato di giorni dopo la data di inizio
tm = DateAdd ( "d", 1, Start_Time)
End_time = tm
End Sub
10 Rieseguire il modulo, assicurando che il campo "End Time" visualizza la data e un giorno dopo il campo "Ora di inizio".