Visual Basic for Applications ( VBA ) er et programmeringsspråk utviklet av Microsoft og brukes til å automatisere rutineoppgaver i Access. Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. En Structured Query Language ( SQL) spørringen brukes til å hente data fra en database tabell . Output resultatene av en SQL-spørring er tilgjengelig via en Recordset objekt. I noen få trinn kan du skrive VBA -kode for å opprette en SQL-spørring og vise postene hentes . Instruksjoner
en

Åpne Northwind Microsoft Office Access database. The Northwind database er inkludert i Microsoft Office-pakken.
2

Klikk på " Database Verktøy ", velg deretter " Visual Basic " for å åpne Microsoft Visual Basic -vinduet . Klikk på " Insert "-feltet og velg " Module ".
3

Kopier og lim inn følgende kode inn i den nye modulen for å vise det første navnet og telefonnummeret til virksomheten i " Kunden" table : en

Private Sub customerQuery ( )

Dim strSQL As String

Dim custRst Som Recordset

Dim dBS Som Database

Dim rstCntr As Integer

Dim custStr As String

Set dBS = CurrentDb

strSQL = " SELECT Kunder . [ fornavn ],"

strSQL = strSQL & "Kundene [ Business Phone ] . "

strSQL = strSQL & " FROM Kunder ; "

Set custRst = dbs.OpenRecordset ( strSQL )

custRst.MoveLast

custRst.MoveFirst

For rstCntr = 0 For å custRst.RecordCount - en

custStr = custStr & custRst.Fields ( 0 ) Value & _

"er . en kunde og deres virksomhet telefonen er "& custRst.Fields ( 1 ) . Value & vbCr

custRst.MoveNext

Neste rstCntr

MsgBox custStr

custRst.Close

dbs.Close

End Sub
4

Kjør subrutine ved å trykke " F5 ".