[Resolvido]transformar uma consulta em codigo vba

Por favor, alguém poderia me ajudar?

Tenho uma tabela com os campos: controle (auto numeração); codContrib (número inteiro); qdesai (número duplo); vbsai (número duplo); vlunitsai (número duplo); qdesaldo (número duplo); vlunitsaldo (número duplo); TotalSaldo (número duplo);VlBCEnt (número duplo).

Tenho uma consulta onde preciso calcular os seguintes valores :
vbsai= [qdesai]*[vlunitsai]
vlunitsai= vlunitsaldo do registro anterior
vlus= [totalSaldo]/[qdesaldo]
totalsaldo= [totalsaldoAnterior]+[vlbcent]-[vbsai]

estou usando as seguintes fórmulas:
A: Nz([TotalSaldoAnt])+Nz([VlrtotBCSTEnt])-[vbsai]
B: DSoma("[A]";"QryAtualizaVlSaldo";"[controle]<= " & [controle] & " and [CodContrib]= " & [CodContrib])
vlus: [B]/[QdeSaldo]
vlubs: DPesquisa("[vlus]";"QryAtualizaVlSaldo";"[controle]<= " & [controle] & " and [CodContrib]= " & [CodContrib])
vbc: [QdeSai]*[vlubs]

Goataria de transformar essas consultas em codigos vba , quando mando executar a consulta ela reinicia o Acess eu não sei nada de VBA

Obrigado
Elias

Olha como ficaria a primeira em vba, no evento "Ao clicar" de um botão:

Private Sub NomeBotão_Click()
Me.NomedocampoTotal = ([TotalSaldoAnt])+Nz([VlrtotBCSTEnt])-[vbsai]
End Sub

Se quiser fazer o cálculo após atualizar um dos campos envolvidos no processo, use o evento "Após atualizar" dos campos dos valores para que esses sejam atualizados no campo do total.

Criquio obrigado pela resposta
Andei pesquisando e achei um exemplo e cheguei neste codigo:

Public Function AtualizaTotSaldo()

DoCmd.SetWarnings False
DoCmd.RunSQL "SELECT AtualizaTotSaldo.Controle,AtualizaTotSaldo.CodContrib,AtualizaTotSaldo.vlus, AtualizaTotSaldo.Data AS DData, AtualizaTotSaldo.VlrtotBCSTEnt, AtualizaTotSaldo.QdeSai, AtualizaTotSaldo.VlrUnitSai,AtualizaTotSaldo.VlrBCSTSai,AtualizaTotSaldo.TotalSaldo,AtualizaTotSaldo.VlrUnitSaldo,AtualizaTotSaldo.VlrUnitSaldoAnt,AtualizaTotSaldo.B,AtualizaTotSaldo.QdeSaldo,AtualizaTotSaldo.TotalSaldoAnt, 0 AS VlSaldo INTO TotalSaldo FROM AtualizaTotSaldo ORDER BY AtualizaTotSaldo.CodContrib, AtualizaTotSaldo.Data,AtualizaTotSaldo.cfop,AtualizaTotSaldo.NumEnt,AtualizaTotSaldo.NumSai;"
DoCmd.SetWarnings True

Dim tbControledeEstoque As Recordset
Dim QdeSaldo As Recordset
Set tbControledeEstoque = CurrentDb.OpenRecordset("TotalSaldo")

Dim prod As String
Dim Vlsaldo As Double
Dim VUSaldo As Double
Dim controle As Integer
Dim CodContrib As String
Dim VlrUnitSaldoAnt As Double
Dim vbc As Double
Dim VBCEnt As Double
Dim A As Double
Dim B As Double
Dim vlus As Double

Do While Not tbControledeEstoque.EOF
prod = tbControledeEstoque!CodContrib
Vlsaldo = tbControledeEstoque!TotalSaldoAnt
VUSaldo = tbControledeEstoque!VlrUnitSaldoAnt
A = tbControledeEstoque!TotalSaldo
VBCEnt = tbControledeEstoque!VlrtotBCSTEnt
vbc = tbControledeEstoque!VlrBCSTSai
vlus = tbControledeEstoque!VlrUnitSaldo

Do While tbControledeEstoque!CodContrib = prod
tbControledeEstoque.Edit
A = Vlsaldo + VBCEnt - [vbc]
B = DSum("(Nz(Vlsaldo) + Nz(VBCEnt) - Nz(vbc))", "AtualizaTotSaldo", "tbControledeEstoque!controle<=" & tbControledeEstoque!controle & "and tbControledeEstoque!CodContrib = " & tbControledeEstoque!CodContrib)
vlus = B / tbControledeEstoque!QdeSaldo
vlubs = DLookup("[vlus]", "AtualizaTotSaldo", "tbControledeEstoque!controle<=" & tbControledeEstoque!controle & "and tbControledeEstoque!CodContrib = " & tbControledeEstoque!CodContrib)
vbc = tbControledeEstoque![QdeSai] * [vlubs]
tbControledeEstoque.Update
tbControledeEstoque.MoveNext
If tbControledeEstoque.EOF Then Exit Do
Loop
Loop

tbControledeEstoque.Close

End Function


mas esta dando erro

anexo BD de exemplo

uso access 2010
obrigado

Criquio, bom dia.

Tentei fazer o que vc me indicou, mas não consigo achar o evento apos atualizar, já procurei na tabela (propriedades), em macros, no formulário, etc.
Acho que desaprendi o basico do access.

Se vc puder me ajudar novamente eu agradeço.
Obrigado
Elias

Já achei, obrigado