Imparare a programmare in Microsoft Office Access può darvi il vantaggio di sfruttare appieno i vantaggi di Access. Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione per computer utilizzato per automatizzare attività quali la creazione , la modifica e l'aggiornamento tabelle. È possibile creare interfacce utente ( UI) e le funzioni del programma per dare all'utente un modo amichevole per manipolare le informazioni del database . Utilizzo di programmazione in Access consente di risparmiare tempo automatizzando i processi di routine . Istruzioni
1
lancio di accesso , fare clic su " Database vuoto " e cliccare sul pulsante "Crea " per creare un nuovo database . Fare clic sulla scheda "Database Tools " e cliccate su " Visual Basic " per aprire la finestra di Microsoft Visual Basic . Fai clic sul menu "Inserisci" e fare clic su "Modulo" per inserire un nuovo modulo di codice
2
Digitare quanto segue per creare una nuova stored procedure : .
ProgramInAccess Private Sub ( )
Premere " Invio".
3
digitare quanto segue per creare le variabili :
Dim strSQL As String Dim
datastring come String
Dim myRst come Recordset
Dim myDbs Come Database
Dim rowCnt As Integer
myDbs = CurrentDb
4 < p > Digitare il comando seguente per creare una nuova tabella nel database :
strSQL = " CREATE tABLE tableWithData ( TESTO cliente ( 25 ) , TESTO del prodotto ( 25 ) ) ;"
DoCmd.SetWarnings False
DoCmd.RunSQL ( strSQL ) economici 5
digitare quanto segue per aggiungere una nuova riga di dati utilizzando l'oggetto " DoCmd " :
sqlstr = " INSERT INTO tableWithData ( [Customer ] , [ prodotto] ) "
sqlstr = sqlstr &" VALUES ( ' John' , 'Desktop '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr ) economici 6
Digitare quanto segue per aggiungere una seconda riga di dati alla tabella utilizzando un oggetto Recordset :
myRst = myDbs.OpenRecordset ( " tableWithData " )
myRst.AddNew
myRst.Fields ( " Cliente ") . Value = " Susan "
myRst.Fields ( " Prodotto ") . Value =" Laptop "
myRst.Update
myRst.Close
7
digitare la query seguente nuova tabella :
strSQL =" . SELEZIONA tableWithData * dA tableWithData ; "
8
digitare quanto segue per aprire la query utilizzando un oggetto Recordset e un ciclo tra il contenuto della tabella :
myRst = myDbs.OpenRecordset ( strSQL )
myRst.MoveFirst
rowCnt = 0 Per myRst.RecordCount
datastring = "Cliente : " . & myRst.Fields ( 0 ) Value & "
