Exemple d'accés i manipulació de registres amb DAO i Do Loop d'Access

Els objectes DAO ( Data Access Objects, Objectes d'accés a dades ) són el model d'accés a dades anterior a ADO ( ActiveX Data Objects ).

Exemple: el codi següent s'executa al fer click en un botó anomenat "Generar Albarans"

Private Sub GenerarAlbarans_Click()

Dim MyDB As Database
Dim MySet As Recordset
Dim Parametres As Recordset
Dim Albarans As Recordset
Dim Contador As Integer

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70 'actualitza dades del formulari

Set MyDB = CurrentDb()
Set MySet = MyDB.OpenRecordset("ConsSelAutoClients")
Set Parametres = MyDB.OpenRecordset("PIA")
Set Albarans = MyDB.OpenRecordset("ConsInsertAlb")

MySet.MoveFirst
Parametres.MoveLast
Contador = 0
Do Until MySet.EOF
Albarans.AddNew
Albarans![IdClient] = MySet![Codigo Cliente]
Albarans![Data] = Parametres![Data]
Albarans![IdAgencia] = Parametres![IdAgencia]
Albarans![nºReferència] = Parametres![nºReferència]
Albarans![IdPortes] = Parametres![IdPortes]
Albarans![Bult] = Parametres![Bult]
Albarans![IdEmbalatge] = Parametres![IdEmbalatge]
Albarans![Observacions] = Parametres![Observacions]
Albarans![Lliure] = Parametres![Lliure]
Albarans![Bultos] = Parametres![Bultos]
Albarans![Concepte] = Parametres![Concepte]
Albarans![Kilos] = Parametres![Kilos]
Albarans.Update
MySet.MoveNext
Contador = Contador + 1
Loop

MySet.Close
Parametres.Close
Albarans.Close

MsgBox "Creació Finalitzada. Has creat " & Contador & " Albarans"

End Sub

Per utilitzar els objectes DAO has d'activar la biblioteca de Referències "Microsoft DAO 3.6 Object Library"