MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Somar Valores em consulta em VBA

    Compartilhe

    Kleyton.sccam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    Somar Valores em consulta em VBA

    Mensagem  Kleyton.sccam em Ter 02 Fev 2010, 17:09

    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


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    Registrado : 04/11/2009

    Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  JPaulo em Ter 02 Fev 2010, 17:43

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Kleyton.sccam
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 25/01/2010

    Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  Kleyton.sccam em Ter 02 Fev 2010, 18:18

    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 & "'")


    .................................................................................
    Kleyton Pinheiro
    Mude Que o Mundo Muda!!!
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 9697
    Registrado : 04/11/2009

    Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  JPaulo em Ter 02 Fev 2010, 18:26

    Valew, funfou é o que interessa.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    winddrake
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 11/11/2015

    Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  winddrake em Qui 25 Maio 2017, 22:58

    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

      Data/hora atual: Sab 18 Nov 2017, 01:05