Saper programmare in Microsoft Office Access 2007 consente di risparmiare tempo quando è necessario eseguire attività di routine come la creazione di tabelle e aggiungere manualmente i dati . Access è un sistema di gestione di database relazionale spesso utilizzato per i database locali più piccole . Esso fornisce gli strumenti per scrivere Visual Basic, Applications Edition (VBA ) per automatizzare i processi manuali . VBA è un linguaggio di programmazione offerto da Microsoft . In pochi passi , è possibile scrivere codice VBA per creare una tabella , aggiungere i dati ad esso e visualizzarne il contenuto in un controllo casella di riepilogo . Istruzioni
1

Aprire Microsoft Office Access 2007 e quindi selezionare " Database vuoto . " Fare clic su "Crea ".

2 Fare clic sulla scheda "Crea " e selezionare " Struttura maschera " per creare un nuovo modulo . Selezionare il controllo " Button " sotto il riquadro "Comandi" . Fare clic sul modulo e creare il nuovo pulsante tenendo premuto il tasto sinistro del mouse . Aggiungere un controllo " Casella di riepilogo " per la forma allo stesso modo è stato aggiunto il pulsante .
3

destro del mouse sul controllo casella di riepilogo e selezionare " Proprietà". Sulla " Finestra delle proprietà ", fai clic sulla scheda " Dati " e selezionare la casella a discesa " Tipo origine riga " e selezionare " Elenco valori ".
4

Fare clic con il nuovo pulsante e selezionare " Proprietà". Sulla " Finestra delle proprietà " fare clic sulla scheda "Evento" e selezionare la casella a discesa accanto a " Al clic " e selezionare " [ Event Procedure ] . " Fare clic sui puntini di sospensione ( ... ), una nuova finestra di Microsoft Visual Basic, verrà aperto , dove potrete scrivere il codice VBA
5

Copia e incolla il seguente codice all'interno del vostro " Private Sub Command1_Click ( ) " . subroutine per creare una tabella , aggiungere due record di dati, ciclo tra i record e visualizzare i risultati in un controllo Casella di riepilogo sul nuovo modulo .

Dim DBase As Database Dim

recordSt come Recordset

Dim X As Integer Dim

stringSQL As String Dim

strgVar As String

DBase = CurrentDb

stringSQL = "Crea TABELLA nuovatabella ( TESTO Nome ( 25 ) , testo Cognome ( 25) ) ; "

DoCmd.RunSQL ( stringSQL ) per

stringSQL =" INSERT INTO nuovatabella ( [Nome] , [ Cognome] ) "

stringSQL = stringSQL &" VALUES (' John ', ' Smith '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL )
< p> stringSQL = " INSERT INTO nuovatabella ( [Nome] , [ Cognome] )"

stringSQL = stringSQL & " VALUES ( ' Jaime ', ' Avelar ') ;"

DoCmd.SetWarnings False

DoCmd.RunSQL ( stringSQL ) per

recordSt = DBase.OpenRecordset ( " newtable " ) per

recordSt.MoveFirst

Per X = 0 To recordSt.RecordCount - 1

strgVar = Trim ( . recordSt.Fields ( "Cognome " ) Value) & "" & Trim ( recordSt.Fields ( . " Nome " ) Valore ) per

List0 . AddItem strgVar

recordSt.MoveNext

Avanti X