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


2 participantes

    [Resolvido]Utilizar resultado SQL

    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Utilizar resultado SQL Empty [Resolvido]Utilizar resultado SQL

    Mensagem  M2013 2/7/2015, 19:38

    Tenho uma tabela com campos de meses de janeiro a dezembro (numeros).
    Tenho uma consulta (que calculo a média conforme o mes) em SQL , que pretendo colocar no código como uma variável no valor dos meses....

    SQL (consulta)

    "SELECT Sum([JAN]+[FEV]+[MAR]+[ABR]+[MAI])/5 AS Expr1 FROM [Tabela1] GROUP BY [Tabela1].ItemFinanceiro HAVING ((([Tabela1].ItemFinanceiro)=4));"


    resultado da SQL(consulta) (...é média (número)..)

    Codigo para inserir um novo registro com a média

    ...................................................................................
    Private Sub medias()

    Set bd = CurrentDb()
    Set rs = bd.OpenRecordset("Tabela1")

    rs.AddNew
    rs![ItemFinanceiro]=4
    rs![JUN] = "resultado da SQL(consulta)"
    rs.Update
    rs.Close

    End Sub
    ...................................................................................

    agradeço antecipadamente a atenção e resposta
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Utilizar resultado SQL Empty Re: [Resolvido]Utilizar resultado SQL

    Mensagem  Alexandre Neves 3/7/2015, 09:43

    Bom dia,
    Private Sub medias()

    Set bd = CurrentDb()
    Set rs = bd.OpenRecordset("Tabela1")
    set rsMedia= bd.OpenRecordset("SELECT Sum([JAN]+[FEV]+[MAR]+[ABR]+[MAI])/5 AS Expr1 FROM [Tabela1] GROUP BY [Tabela1].ItemFinanceiro HAVING ((([Tabela1].ItemFinanceiro)=4));")
    rs.AddNew
    rs![ItemFinanceiro]=4
    rs![JUN] = rsMedia(0)
    rs.Update
    rs.Close: rs=nothing
    rsMedia.close: rsMedia=nothing

    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    M2013
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 64
    Registrado : 07/06/2013

    [Resolvido]Utilizar resultado SQL Empty Re: [Resolvido]Utilizar resultado SQL

    Mensagem  M2013 3/7/2015, 12:58

    Alexandre, funcionou perfeitamente. Muito obrigado.

    Conteúdo patrocinado


    [Resolvido]Utilizar resultado SQL Empty Re: [Resolvido]Utilizar resultado SQL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/11/2024, 02:37