[Resolvido]Adaptar Dsum com critério.

Amigos,
Gostaria de percorrer uma tabela e verificar os registros NULL's e exibir na mensagem, porém, encontrei dificuldades, uma vez que este código retorna somente todos os registros da tabela. Não está obedecendo o critério. Alguém sabe como contornar?

Código:


Dim Teste As String
Teste = "CurrentDb.Execute SELECT Enviado.Nota FROM Enviado WHERE IsNull(Nota) = True"

Dim ValorXML1 As Currency
ValorXML1 = DSum("ValorPago", "Enviado", "'nota = Teste'")
MsgBox "Importado(s) " & nCount & " arquivo(s)" & vbCrLf & _
"Total R$ " & Format(ValorXML1, "#,##0.00;(#,##0.00)") & "", vbInformation, "PRONTO"


ValorXML1 = DSum("[ValorPago]","Enviado", "IsNull([Nota])")

Procure identificar teus objetos e controles.
Ex.: tbl_Enviado(s)

{ }'s

Balem

Boa amigo, obrigado!

Funcionou legal.

Ótimo!

Não esqueça da dica que te dei, hoje vc reconhece teu código porque está

mexendo com ele, mas amanhã n vai lembrar tudo, e vai ser um ir e vir nas tabelas

pra saber que campo o controle está ser referindo.

Boa sorte

Balem