[Resolvido]Dúvidas com Função DSum

Amigos, boa noite!

tenho um seguinte código:


...
Me.jan1.Value = (DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Não' AND [MesS] = '1' AND [AnoS] = " & [ AnoS]) + _
DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Não' AND [MesS] = '1' AND [AnoS] = " & Me.AnoS))
...

porem quando faço a depuração apresenta a seguinte mensagem de erro:

Erro em tempo de execução '24645':
O Controle de Vendas não pode localizar o campo '|1' referido em sua expressão.

Aí ele me opção de "Fim" ou "Depurar"

Quando eu clico em depurar ele realça a expressão acima e marca com seta a segunda linha.


Onde esta meu erro?

Conto com a ajuda de todos!

boa noite poderia disponibilizar o projeto para melhor ajuda-lo ?

SEGUE

https://drive.google.com/open?id=0B1sMJ1YmJY1bRTZVNzVxUldiUFk

Dentro do front end "Vendas" esta o formulário "VendasPrevisaodeCarteira", o código esta no formulário. a senha do back end é: 365569187bdm

Bom dia Amigo!

acho que consegui veja onde esta o erro:

Me.jan1.Value = (DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Não' AND [MesS] = '1' AND [AnoS] = " & [ AnoS]) + _
DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Não' AND [MesS] = '1' AND [AnoS] = " & Me.AnoS))


Solução:

Me.jan1.Value = (DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Não' AND [MesS] = 1 AND [AnoS] =" & Me.AnoS) + _
DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Não' AND [MesS] = 1 AND [AnoS] =" & Me.AnoS))

teste e nos de um retorno, se precisar segue o projeto abaixo:

http://www.arqtecsolucoes.com.br/access/duvidas-com-funcao-dsum/

Amigão, parece que deu certo, vou corrigir todo o restante do código e dou o retorno aqui.

Mas quero te pedir uma coisa. Você publicou a solução em um site pessoal, beleza mérito seu tem todo o direito e fico feliz por fazer parte disso.
Só que você também disponibilizou pra download os arquivos que te enviei e eles possuem informações de cliente da empresa onde trabalho associado ao meu nome.
Se o pessoal do TI aqui rastrear isso pode me causar problemas aqui na empresa. peço a gentileza de tirar o arquivo de download ou esvaziar o banco de dados pra disponibiliza-lo.

Pronto!

A função na forma que esta não executa nada e também não da erro. Se eu a separo, faço as funções dsum separadamente elas apresentam os valores.

Me.jan1.Value = (DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS) + _
DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS))

Pergunto, o que ha de errado nessa soma?

Ola Andre;

Se individualmente funfa, teste assim;

Código:

Dim intSoma1 As Integer
Dim intSoma2 As Integer

intSoma1 = DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS)
intSoma2 = DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS)
Me.jan1.Value = Nz(intSoma1, 0) + Nz(intSoma2, 0)
Me.jan1.Requery

Funcionou bakana, porem tive de trocar o Nz de lugar. Porque como a variável é uma interger o valor de Dsum não pode dar nulo. Ficando assim.

Dim intSoma1 As Integer
Dim intSoma2 As Integer

intSoma1 = Nz(DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS),0)
intSoma2 = Nz(DSum("[PrevisaoDeCarteira]", "Vendas", "[Setor] = '01-03' AND [PedidoAprovado] = 'Sim' AND [MesS] = 1 AND [AnoS] = " & Me.AnoS),0)
Me.jan1.Value = intSoma1 + intSoma2
Me.jan1.Requery


Resolvido. Obrigado a todos!

Fico feliz.

Obrigado pelo retorno.