Microsoft Office Access 2007 er en relationel database ansøgning indgår i Microsoft Office-pakken. Microsoft Data Access Objects ( DAO ) er en grænseflade, der bruges til at få adgang til data fra Access-databaser. Visual Basic for Applications ( VBA ) er en computer programmeringssprog, der anvendes til at automatisere rutinemæssige processer udført i Microsoft Office-programmer . Bruge standard Northwind 2007-databasen følger med alle versioner af Access , for at vise den sidste Product Code fra tabellen Produkter gennem en Recordset . Instruktioner
1

Åbn " Northwind 2007" til databasen , vælg " Database Tools " og derefter klikke på " Visual Basic ". Klik på " Indsæt" menuen , vælg derefter " Modul ".
2

Kopier og indsæt følgende kode i dit modul : Hej

Private Sub DAOSub ()

Dim db Da DAO.Database

Dim rst Som DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset ( "Produkter" , dbOpenDynaset )

Hvis rst.RecordCount > 0 Then

rst.MoveLast

MsgBox ( rst! [ Product Code ] )

End If

rst . Luk

db.Close

End Sub
3

Tryk på " F5 " for at køre underprogram.