[Resolvido]Erro ao Calcular Saldo

Galera,
Boa tarde!!!

Estou tentando montar um código mais infelizmente nao está dando certo, o problema é, quero que ao selecionar um determinado produto um determinado campo me dar o saldo desse mesmo produto, o calculo é feito em duas tabelas diferente.

Tentei o codigo abaixo,

Apos atualizar o campo de produto,

Cx_Saldo = DSum("[Quantidade]", "Tab_Entrada", "[Produto]" = Me.Produto) - DSum("[Saida]", "Tab_Saida", "[Produto]" = Me.Produto)

ele esta me retornando a um valor vazio

alguem se habilita?

desde de ja muito obrigado.

Segue o arquivo em anexo.

O formulário é o de Saída.

att;

Sidney

Olá Ney,

Tente assim:

Cx_Saldo = Nz(DSum("[Quantidade]", "Tab_Entrada", "[Produto] = Forms!NomedoSeuFormulário!Produto")) - Nz(DSum("[Saida]", "Tab_Saida", "[Produto] = Forms!NomedoSeuFormulário!Produto")

Amigo não deu nada.

Não prestei atenção em um pequeno detalhe em seu código. As aspas no critério estavam colocadas no lugar errado.

Já fiz a correção acima ou se preferir, dessa maneira no evento Before_Update que é o meu preferido:

Private Sub Produto_BeforeUpdate(Cancel As Integer)
Dim valor1 As Integer
Dim valor2 As Integer
valor1 = Nz(DSum("[Quantidade]", "Tab_Entrada", "[Produto] = Forms!Saida!Produto"))
valor2 = Nz(DSum("[Saida]", "Tab_Saida", "[Produto] = Forms!Saida!Produto"))


Cx_Saldo = valor1 - valor2
End Sub

Amigo valeu mesmo deu certinho, falar com quem entende é outra coisa, quando estiver pronto vou diponibiliar para o pessoal do site.

Obrigado!

Att;

Sidney C Silva

De nada, Ney. O fórum todo agradece.

Visite o meu site: www.goodguyaccessvba.com.br

Meu blog: http://evmachado.zip.net

Perfeito, Avelino !!! Excelente observação. Aliás, o total do meu estoque(idade) é exatamente o seu número de mensagens subtraído do ano atual.

Perfeito, farei as alterações

Att;

Sidney