Saper programmare in Microsoft Office Access 2007 si può risparmiare tempo quando è necessario eseguire attività di routine come la creazione di tabelle e l'aggiunta di dati manualmente. Access è un sistema di gestione di database relazionali spesso utilizzato per i database locali più piccoli. 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 attraverso un controllo casella di riepilogo.

istruzione

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

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

3 Fare clic sul controllo casella di riepilogo e selezionare "Proprietà". Sulla "Finestra delle proprietà", fare clic sulla scheda "Dati" e selezionare la casella a discesa "Tipo origine riga" e selezionare "Elenco valori".

4 Fare clic sul nuovo pulsante e selezionare "Proprietà". Sulla "Finestra delle proprietà" fare clic sulla scheda "Evento" e selezionare la casella a discesa accanto a "On Click" e selezionare "[Routine evento]." Fare clic sui puntini di sospensione (...); una nuova finestra di Microsoft Visual Basic si aprirà dove potrete scrivere il codice VBA.

5 Copia e incolla il seguente codice all'interno del "Sub Command1_Click privato ()" 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 Come Database

Dim recordSt Come Recordset

Dim X As Integer

Dim stringSQL As String

Dim strgVar As String

Set DBase = CurrentDb

stringSQL = "CREATE TABLE NewTable (FirstName TEXT (25), Cognome TEXT (25));"

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO NewTable ([nome], [Cognome])"

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

DoCmd.SetWarnings False

DoCmd.RunSQL (stringSQL)

stringSQL = "INSERT INTO NewTable ([nome], [Cognome])"

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

DoCmd.SetWarnings False

DoCmd.RunSQL (stringSQL)

Set recordSt = DBase.OpenRecordset ( "NewTable")

recordSt.MoveFirst

Per X = 0 Per recordSt.RecordCount - 1

strgVar = Trim(recordSt.Fields("LastName").Value) & " " & Trim(recordSt.Fields("FirstName").Value)

List0.AddItem strgVar

recordSt.MoveNext

Successivo X