Saper utilizzare Visual Basic in Access 2007 può dare grande flessibilità quando si sviluppano applicazioni di database. Access 2007 ti dà l'opzione per migliorare il vostro sviluppo dandovi la possibilità di scrivere codice di Visual Basic per i moduli e i controlli creati. Visual Basic è un linguaggio di programmazione creato da Microsoft ed è facile da usare. Si può facilmente programmare in Visual Basic, creazione di report in un database di Access o eseguire attività manuali ripetitive.

Istruzioni

1

Fare clic sulla scheda "Crea" in Access e selezionare "Modulo Design." Il programma creerà un nuovo modulo. Selezionare il controllo "Button" sotto il riquadro "Controlli" e muovi il mouse sopra il nuovo modulo. Sinistro del mouse e creare il pulsante nuovo. Aggiungere un controllo "Casella di riepilogo" forma allo stesso modo è stato aggiunto il pulsante.

2

Pulsante destro del mouse sulla 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".

3

Pulsante destro del mouse sul pulsante nuovo e selezionare "Proprietà". Nella finestra delle"proprietà" fare clic sulla scheda "Eventi" e selezionare il menu a tendina su "Scegliere" e selezionare "[routine evento]." Fare clic sui puntini di sospensione (...) e si aprirà una nuova finestra di Microsoft Visual Basic.

4

Digitare quanto segue:

() Dim dbs As Database

Dim rst As Recordset

Dim X As Integer

Dim strSQL As String

Dim lastFirst As String

per dichiarare le variabili che si utilizzerà.

5

Tipo:

Set dbs = CurrentDb

per impostare il database corrente.

Tipo:

strSQL = "CREATE TABLE Table1 (nome text (25), cognome TEXT(25));"

DoCmd.RunSQL (strSQL)

per creare una nuova tabella nel database denominato "Table1."

6

Tipo:

strSQL = "INSERT INTO Tabella1 ([nome], [Cognome])"

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

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

per inserire la prima riga di dati.

7

Tipo:

strSQL = "INSERT INTO Tabella1 ([nome], [Cognome])"

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

DoCmd.SetWarnings False

DoCmd.RunSQL (strSQL)

per inserire una seconda riga di dati.

8

Tipo:

Set rst = dbs. OpenRecordset("Table1")

per impostare il set di record.

Tipo:

RST. MoveFirst

Per X = 0 To rst. RecordCount - 1

lastFirst = Trim(rst.Fields("LastName").Value) & " " & Trim(rst.Fields("FirstName").Value)

List1.AddItem lastFirst

RST. MoveNext

Avanti X

per scorrere i record in appena creati e li Visualizza nella finestra di elenco nel form.

9

Tipo:

MsgBox "Si sono visualizzati tutti i record in Table1 a casella di riepilogo con successo!", vbInformation

per visualizzare un messaggio. Windows tornare a Access 2007 e fare clic su "Visualizza" per eseguire il modulo. Fare clic sul pulsante "Command0" e vedrete il controllo casella di riepilogo Visualizza i nomi.

Consigli & Avvertenze

• Codice Visual Basic dovrebbe assomigliare a questo:
• Private Sub Command0_Click()
• () Dim dbs As Database
• Dim rst As Recordset
• Dim X As Integer
• Dim strSQL As String
• Dim lastFirst As String
• Set dbs = CurrentDb
• strSQL = "CREATE TABLE Table1 (nome text (25), cognome TEXT(25));"
• DoCmd.RunSQL (strSQL)
• strSQL = "INSERT INTO Tabella1 ([nome], [Cognome])"
• strSQL = strSQL & "VALUES ('John', 'Smith');"
• DoCmd.SetWarnings False
• strSQL = strSQL & "VALUES ('Jaime', 'Avelar');"
• Set rst = dbs. OpenRecordset("Table1")
• RST. MoveFirst
• Per X = 0 To rst. RecordCount - 1
• CognomeNome = Trim (rst. Fields("LastName"). Value) & "" & Trim (rst. Fields("FirstName"). Valore)
• CognomeNome List1.AddItem
• RST. MoveNext
• Avanti X
• MsgBox "Sono visualizzate tutti i record in Table1 per caselle di riepilogo con successo!", vbInformation
• End Sub