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-databasen ingår i alla versioner av Access , för att visa att den sista produkten kodexen från tabellen Produkter genom ett Recordset .
1 .
Öppna " Northwind 2007 " databas , välj "Databas Verktyg " klicka på "Visual Basic ". Klicka på " Insert " -menyn , välj sedan " Module ".
2
Kopiera och klistra in följande kod på din modul .
Private Sub DAOSub ( )
Dim db Som DAO. Database
Dim rst Som DAO. Recordset
Set db=CurrentDb
Set rst=db. OpenRecordset ( " Produkter " , dbOpenDynaset )
Om RST . RecordCount > 0 Then
rst. MoveLast
MsgBox ( rst! [ Product Code ] )
End If
rst. Close
db. Close
End Sub
3 .
Tryck " F5 " för att köra subrutin .
Previous:nothing Next:hur zip -filer med VBA