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]Select com Soma

    Compartilhe

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    [Resolvido]Select com Soma

    Mensagem  alantb em 9/10/2017, 14:40

    Olá, em um form tem um cadastro de certificados de cursos realizados pelos funcionários(tbCertificados) e cada tipo de certificado tem um número de pontos: aperfeiçoamento= 1 ponto; ensmédio=25;técnico=30;etc. Em outro form tem um "boletim de avaliação" , e tem os campos que se referem aos certificados cadastrados para cada funcionário que serve para uma soma total de avaliação funcional para posterior promoção de classe no cargo.
    Como se faz um "SELECT" na tabela com a soma de pontos? E o valor da soma é carregado em um textbox...Pode ser um de exemplo, ou seja, vou usar um select para "aperfeiçoamento", outro para "ensinomedio", outro para "técnico", e assim por diante. O que preciso é algo semelhante ao VB6 abaixo, mas escrito em VBA para ACCESS.

    ComandoSQL = "SELECT SUM ([nroPontos]) AS [Soma] " & _
    "From tbCertificado " & _
    "WHERE (((tbCertificado.nroPontos)=1))AND tbCertificado.codMatricula=" & txtMatriculaFunc

    rs.Open ComandoSQL, conn, adOpenStatic



    txtAperfeicoa.Text = rs!Soma

    ALAN


    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Select com Soma

    Mensagem  JPaulo em 9/10/2017, 14:46

    Um conselho;

    Faça primeiro uma consulta "query" como pretende o resultado.

    Depois de ter o resultado desejado na consulta, abra a mesma em modo SQL, copie e cole na sua instrução VBA.


    .................................................................................
    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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

    alantb
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 25/07/2017

    Re: [Resolvido]Select com Soma

    Mensagem  alantb em 9/10/2017, 18:38

    JPaulo, fiz uma nova pesquisa no fórum, mas com outros parâmetros e achei uma rotina que fez justamente o que precisava e casualmente quem respondeu foi você mesmo. Segue o link do tópico:

    http://www.maximoaccess.com/t142-resolvidosomar-valores-em-consulta-em-vba

    Mais uma vez obrigado!!!!

    Alan
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Select com Soma

    Mensagem  JPaulo em 9/10/2017, 18:58

    Fico feliz
    Obrigado pelo retorno o fórum agradece.


    .................................................................................
    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

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...

      Data/hora atual: 16/1/2019, 06:34