[Resolvido]Somar Valores em consulta em VBA

Boa tarde,

Parece uma coisa simples...mas já apanhei muito pra tentar fazer
Estou precisando somar os valores de uma tabela e exibir numa caixa de texto
A minha ideia seria uma consulta, mas em VBA. Estou tentando usar esse comando
mas não acontece nada!

DoCmd.RunSQL "SELECT SUM([Evolucao_do_ trabalho]) as SOMA FROM [Tabela_de_pendencias_por_Projeto] WHERE [Projeto] = " & txtCod & ""

uma outra duvida que eu tenho é a respeito do "as SOMA", seria uma variavel pra armazenar a soma... poderia jogar ela
direto pra caixa de texto?

Grato

Ola;

Utilize a função DSum e X será a variavel para jogar na SuaCaixaTexto;

Dim X As Long
X = DSum("[Evolucao_do_ trabalho]", "Tabela_de_pendencias_por_Projeto", "[Projeto] =" & Me.txtCod)
Me.SuaCaixaTexto.Value = X

Muito Obrigado JPaulo,

Funcionou. Só precisei fazer uma modificação porque a txtCod é um codigo que utiliza ponto. Aí precisei
modificar no final e colocar apóstrofo. Só assim funcionou!!

X = DSum("[Evolucao_do_ trabalho]", "Tabela_de_pendencias_por_Projeto", "[Projeto] = '" & Me.txtCod & "'")

Valew, funfou é o que interessa.

Sei que ja foi encerrado o topico mas só para constar dava problema no select devido usar o DoCmd.RunSQL  esta função só serve para insert , delet e update

Poderia ser assim :


dim rs as dao.recordset

rs = CurrentDb.OpenRecordset("SELECt SUM([coluna_asomar]) as SALDO FROM tabela where [colunacomvalorprocurada]='" & Me.suacaixadetexto & "'")

me.caixa_aexibir= rs!saldo