Visual Basic for Applications ( VBA ) is een programmeertaal ontwikkeld door Microsoft en wordt gebruikt om routinematige taken in Access te automatiseren . Access is een relationele database management systeem opgenomen in de Microsoft Office suite . Een Structured Query Language ( SQL ) vraag wordt gebruikt om gegevens uit een database tabel opgehaald . De output resultaten van een SQL-query zijn toegankelijk via een Recordset object . In een paar stappen kunt u VBA code een SQL query te maken en bekijk de records te schrijven . Instructies
1 Open de Noordenwind Microsoft Office Access-database . De database Noordenwind is opgenomen in de Microsoft Office-suite .
Klik 2 " Database Extra " en selecteer vervolgens " Visual Basic " om de Visual Basic- venster van Microsoft te openen . Klik op het veld " Insert " en selecteer " Module . "
Kopieer 3 en plak de volgende code in uw nieuwe module op de voornaam en zakelijke telefoonnummer weergeven in de "Klant " table : Private Sub customerQuery ( ) Dim strSQL
als Koord Dim custRst
als Recordset
Dim dbs als Database Dim rstCntr
As Integer Dim custStr
als Koord Set
dbs = CurrentDb strSQL
= "SELECT Klanten . [ Voornaam ] , "
strSQL = strSQL & "Klanten [ Zakelijke telefoon ] . "
strSQL = strSQL & " FROM Klanten ; " Set custRst
= dbs.OpenRecordset ( strSQL ) op custRst.MoveLast
custRst.MoveFirst
rstCntr = 0 Om custRst.RecordCount - 1
custStr = custStr & custRst.Fields ( 0 ) Value & _
" is . een klant en hun zakelijke telefoon is " & custRst.Fields ( 1 ) . Value & vbCr
custRst.MoveNext
Volgende rstCntr MsgBox custStr
custRst.Close dbs.Close End Sub
4
Run je subroutine door op " F5 . "
< br >
|
