Microsoft Office Access 2007 er en relasjonsdatabase program inkludert i Microsoft Office-pakken. Microsoft Data Access Objects ( DAO ) er et grensesnitt som brukes til å få tilgang til data fra Access databaser. Visual Basic for Applications ( VBA ) er et programmeringsspråk som brukes til å automatisere rutinemessige prosesser gjøres i Microsoft Office-programmer . Bruk standard Northwind 2007 database følger med alle versjoner av Access , for å vise det siste Produkt Kode fra Products bord gjennom en Recordset . Instruksjoner
en

Åpne " Northwind 2007 " database , velg " Database Tools " og klikk " Visual Basic. " Klikk på " Insert"-menyen , velg deretter " Module ".
2

Kopier og lim inn følgende kode i modulen : en

Private Sub DAOSub ( )

Dim db As DAO.Database

Dim rst Som DAO.Recordset

Set db = CurrentDb

Set rst = db.OpenRecordset ( "Produkter" , dbOpenDynaset )
p Hvis rst.RecordCount > 0 Then

rst.MoveLast

MsgBox ( rst! [Product kode] )

End If

rst . Lukk

db.Close

End Sub
3

Trykk " F5 " for å kjøre subrutine .