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

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 & "

• Errore di Visual Basic : Indice fuori intervallo 
• Come cambiare ordinamento su una relazione sulla Access 2007