Avviare Microsoft Office Access 2007 , selezionare " Database vuoto ", quindi fare clic su "Crea ".
2
Selezionare la scheda " Crea" e selezionare " Form Design " per creare un nuovo modulo . Fare clic su "Pulsante" sui "Controlli ", quindi a sinistra clic sul form e trascinare per creare un nuovo pulsante .
3
destro del mouse su " Command0 " e selezionare " Proprietà". Fare clic sulla scheda "Evento" e selezionare " [ Event Procedure ] " accanto a " Al clic del mouse . " Fare clic sui puntini di sospensione ( ... ) per aprire la finestra " Microsoft Visual Basic " . Premere il tasto " Ctrl " e "A" e poi "Elimina " per rimuovere il codice esistente.
4
Copia e incolla il seguente codice nel modulo . Questo codice crea una nuova tabella con una "Data " tipo di dati di campo e di aggiungere la data odierna ad esso .
Option Compare Database
Private Sub Command0_Click ( ) per
Dim todaydate As String
todaydate = Ora
sqlstr = " CREATE TABLE dateTable ( TodaysDate data) ; "
DoCmd.RunSQL ( sqlstr ) per
sqlstr = " INSERT INTO dateTable ( [ TodaysDate ] ) "
sqlstr = sqlstr &" VALUES ( ' "& ( todaydate ) &" '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) per
End Sub
5
Chiudere la finestra "Microsoft Visual Basic " e fare clic destro " Form1 ". Selezionare " Visualizza come modulo . " Fare clic su " Command0 " per eseguire il codice.
Programmazione © www.354353.com