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

Istruzioni

1

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

2

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

3

Pulsante destro del mouse il controllo casella di riepilogo e selezionare "Proprietà". Nella "Finestra delle proprietà", fare clic sulla scheda "Dati" e selezionare la casella a discesa "Tipo origine riga" e seleziona "Lista di valore".

4

Pulsante destro del mouse sul nuovo pulsante e selezionare "Proprietà". Nella "Finestra Proprietà" fare clic sulla scheda "Eventi" e selezionare la casella a discesa accanto a "Scegliere" e selezionare "[routine evento]." Fare clic sui puntini di sospensione (...); verrà aperta una nuova finestra di Microsoft Visual Basic dove si scriverà il codice VBA.

5

Copiare e incollare il codice seguente all'interno della subroutine "Private Sub Command1_Click ()" per creare una tabella, aggiungere due record di dati, loop attraverso i record e visualizzare i risultati in un controllo casella di riepilogo sulla tua nuova forma.

Dim DBase come Database

Dim recordSt As Recordset

Dim X As Integer

Dim stringSQL As String

Dim strgVar As String

Impostare DBase = CurrentDb

stringSQL = "Crea tabella newTable (nome text (25), cognome TEXT(25));"

DoCmd.RunSQL (stringSQL)

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL (stringSQL)

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

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

DoCmd.SetWarnings False

DoCmd.RunSQL (stringSQL)

Impostare recordSt = DBase.OpenRecordset("newTable")

recordSt.MoveFirst

Per X = 0 To recordSt.RecordCount - 1

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

List0.AddItem strgVar

recordSt.MoveNext

Avanti X