Microsoft Office Access 2007 är en relationsdatabas ansökan ingår i Microsoft Office-paketet . Microsoft Data Access Objects ( DAO ) är ett gränssnitt som används för att komma åt data från Access-databaser . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk som används för att automatisera rutinmässiga processer sker i Microsoft Office-program . Använd standard Northwind 2007-databas ingår i alla versioner av Access , för att visa den sista Product Code från tabellen Produkter med ett Recordset . Instruktioner
1
Öppna " Northwind 2007 " databas , välj " Databas Verktyg " och klicka sedan på " Visual Basic . " Klicka på " Infoga " -menyn , välj sedan " Modul . "
2
Kopiera och klistra in följande kod på din modul :
Private Sub DAOSub ( ) katalog
Dim db Som DAO.Database
Dim rst Som DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset ( "Produkter" , dbOpenDynaset ) katalog p Om rst.RecordCount > 0 Then
rst.MoveLast
MsgBox ( rst! [ Product Code ] ) katalog
End If
RST . Stäng
db.Close
End Sub
3
Tryck " F5 " för att köra subrutinen .
