Microsoft Office Access 2007 ist eine relationale Datenbank-Anwendung in der Microsoft Office-Suite enthalten. Microsoft Data Access Objects (DAO ) ist eine Schnittstelle verwendet werden, um Daten aus Access -Datenbanken zugreifen . Visual Basic für Applikationen (VBA ) ist eine Programmiersprache verwendet, um Routine-Prozesse in Microsoft Office-Anwendungen automatisieren getan . Verwenden Sie den standardmäßigen Northwind 2007-Datenbank mit allen Versionen von Access enthalten , um die letzte Product Code aus der Tabelle angezeigt durch ein Recordset . Anleitung
1

Öffnen Sie die " Nordwind 2007 "-Datenbank , wählen Sie " Database Tools " klicken Sie dann auf " Visual Basic ". Klicken Sie auf das Menü "Einfügen" und wählen Sie dann "Module ".
2

Kopieren Sie den folgenden Code in das Modul :

Private Sub DAOSub ()

Dim db Wie DAO.Database

Dim rst als DAO.Recordset

Set db = CurrentDb

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

Wenn rst.RecordCount > 0 Then

rst.MoveLast

MsgBox ( rst! [ Produkt-Code] )

End If

rst . Close to

db.Close

End Sub
3

Presse "F5 ", um die Unterroutine ausführen .