MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Somar Valores em consulta em VBA

    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar Valores em consulta em VBA Empty Somar Valores em consulta em VBA

    Mensagem  Kleyton.sccam 2/2/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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar Valores em consulta em VBA Empty Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  JPaulo 2/2/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Kleyton.sccam
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar Valores em consulta em VBA Empty Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  Kleyton.sccam 2/2/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!!!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar Valores em consulta em VBA Empty Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  JPaulo 2/2/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.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Somar Valores em consulta em VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    winddrake
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somar Valores em consulta em VBA Empty Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  winddrake 25/5/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

    Conteúdo patrocinado


    [Resolvido]Somar Valores em consulta em VBA Empty Re: [Resolvido]Somar Valores em consulta em VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 21:12