[Resolvido]Cálculo com função DSum

Bom dia, a todos.

Estou com problemas num formulário com subformulário. No evento Gotfocus de uma caixa de texto coloquei a seguinte expressão:

Dim vRetiradas100 As Currency
Dim vComissao100 As Currency
Dim vSaldo100 As Currency
Dim Filtro100 As Long

'filtro = IIf(IsNull(Form_frmMovVendedor.txtCodigo.Value), "Codigo like '*'", "Código='" & Form_frmMovVendedor.txtCodigo.Value & "'")
Filtro100 = Form_frmMovVendedor.txtCodigo.Value
vRetiradas100 = DSum("Retirada", "tblRetiradas", "[CodigoMovimento]=" & Filtro100)

vComissao100 = Form_frmMovVendedor.SaldoComissao.Value

vSaldo100 = vComissao100 - vRetiradas100

Só que na linha em vermelho está dando erro:


Alguém poderia me mostrar onde estou errando?


Agradecido.

Adilson

Teste

vRetiradas100 = DSum("Retirada", "tblRetiradas", "[CodigoMovimento]=" & [Filtro100] & "")

Amigão, m perdoe por não ter respondido antes,

Estava fazendo outras coisas aqui na empresa.

Testei não causa mais erros, porém não soma os valores de retiradas conforme o codigo.

Sabe me dizer aonde estou errando?

Agradecido

Adilson

Só com BD para analisar

Estou te enviando o BD, está no formulário Movimento de vendedores a expressão.

Agradeco a ajuda.


http://dl.dropbox.com/u/37804873/Controle%20de%20Vendas.rar


Adilson

Tem de converter para a versão 2003

Por que converter?

Porque o meu sistema é 2003

Segue o link


http://dl.dropbox.com/u/37804873/Controle%20de%20Vendas.mdb

Grato

Ficheiro está corrompido

sei o que foi

apenas mudei a extensão para mdb, pois ele não quiz salvar no formato 2003, por causa de recurso de 2007 que ele tem


valeu vou ver o que posso fazer


Agradecido

Adilson

grato