Return to Snippet

Revision: 76798
at July 29, 2019 13:27 by martinbrait

Initial Code
'nécessite l'activation de la référence DAO

Public Sub Foo()
Dim aFoo As Variant
Dim db As DAO.Database
Dim rst As DAO.Recordset

Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("tblFoo")

With rst
    aFoo = .GetRows(.RecordCount)
End With


End Sub

Initial URL

Initial Description
How to populate an array with recordset data

Initial Title
[vba-access] Peupler un tableau avec le retour d'un recordset

Initial Tags

Initial Language
Visual Basic