[Resolvido]Extrato VBA - Saldo Acumulado Registo a Registo

Boas!

Mais uma vez a pedir a ajuda da malta...

Com o apoio do forum consegui construir a consulta que pretendia. Mas agora gostaria de fazer a mesma com recurso a código VBA, no entanto dá um erro de sintaxe que depois de tantas voltas não consigo chegar.

Junto o código e a BD.

Obrigado desde já pela ajuda.

Sub ExtratoVBA()

Dim ws As Workspace
Dim db As Database
Dim qry1 As QueryDef
Dim qry2 As QueryDef

DoCmd.DeleteObject acQuery, "SaldoRegistoVBA"
DoCmd.DeleteObject acQuery, "SaldoAcumuladoVBA"


Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb

Set qry1 = db.CreateQueryDef("SaldoRegistoVBA", "Select Nordem, Data, Debito, Credito, (Nz(Debito)-Nz(Credito)) as Saldo FROM RegistosDiarios")
Set qry2 = db.CreateQueryDef("SaldoAcumuladoVBA", "Select Nordem, Data, Debito, Credito, Saldo, Dsum("[Saldo]","SaldoRegistoVBA","Nordem <=" & [Nordem]) as SaldoAcum FROM SaldoRegistoVBA")

End Sub

Teste por favor;

Sub ExtratoVBA()

Dim ws As Workspace
Dim db As Database
Dim qry1 As QueryDef
Dim qry2 As QueryDef

DoCmd.DeleteObject acQuery, "SaldoRegistoVBA"
DoCmd.DeleteObject acQuery, "SaldoAcumuladoVBA"


Set ws = DBEngine.Workspaces(0)
Set db = CurrentDb

Set qry1 = db.CreateQueryDef("SaldoRegistoVBA", "Select Nordem, Data, Debito, Credito, (Nz(Debito)-Nz(Credito)) as Saldo FROM RegistosDiarios")
Set qry2 = db.CreateQueryDef("SaldoAcumuladoVBA", "Select Nordem, Data, Debito, Credito, Saldo, Dsum('[Saldo]','SaldoRegistoVBA','Nordem <=' & [Nordem]) as SaldoAcum FROM SaldoRegistoVBA")

End Sub

Ok.

Esta coisa das plicas e aspas...

Valeu JPaulo.

Obrigado pelo retorno o forum agradece.