Microsoft Office Access 2007 is een relationele database-applicatie opgenomen in de Microsoft Office suite . Microsoft Data Access Objects ( DAO ) is een interface die wordt gebruikt om gegevens van Access-databases . Visual Basic for Applications ( VBA ) is een programmeertaal gebruikt om routinematige processen gedaan in Microsoft Office-toepassingen te automatiseren . Gebruik de standaard Noordenwind 2007-database meegeleverd met alle versies van Access , om de laatste Product Code weer te geven van de tabel Producten via een recordset . Instructies
1 Open de ' Noordenwind 2007 " -database , selecteer" Database Tools " en klik op' Visual Basic . " Klik op het menu "Invoegen " , kies vervolgens " Module . "
Copy 2 en plak de volgende code in de module : Private Sub DAOSub ( )
Dim db als DAO.Database Dim rst
Zoals DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset ( " producten " , dbOpenDynaset ) op Twitter Als rst.RecordCount > 0 toen rst.MoveLast MsgBox
( rst! [ Product Code ] ) End
Als rst
. Sluiten db.Close End Sub
Druk op "F5 "
3 naar de subroutine uitgevoerd .
|
