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

4 participantes

    [Resolvido]Somatoria de Informações "Sim/Não"

    avatar
    Luiz Paulo Moreno
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 11/03/2011

    [Resolvido]Somatoria de Informações "Sim/Não" Empty [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Luiz Paulo Moreno 6/4/2011, 15:04

    Senhores,

    Eu tenho uma série de informações na minha tabela, em que elas precisam ser analisadas e verificadas ocorrências nas décadas de 60, 70, 80, 90, 2000 e a atual. Acontece que eu gostaria que o usuário apenas clicasse em "Sim/Não" para cada análise por década, e o resultado aparecesse em uma coluna (tipo somatória), assim: 1940, 1950, etc...
    E eu nao consigo fazer isso, já que a informação aparece como "1" ou "0", e a somatória (consulta) não dá certo..
    Existe algum meio de fazer isso??

    Espero ter sido claro, e qualquer ajuda é bem vinda!

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Alexandre Neves 6/4/2011, 18:28

    Boa tarde, Luiz

    Para mim não foi claro. Não entendi como tem os dados e o que pretende.
    Cumprimentos,
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Gilberto Rocha 7/4/2011, 13:34

    Para somar campos SIM, ABRA A CONSULTA EM MODO sql e cole o código abaixo, mude conforme seus campos e tabelas

    SELECT Sum(IIf(SeuCampo=-1,1,0)) AS SIM
    FROM SuaTabela;
    avatar
    Luiz Paulo Moreno
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 26
    Registrado : 11/03/2011

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Luiz Paulo Moreno 7/4/2011, 16:31

    Bom, deixa eu reformular minha pergunta...Nao consegui aplicar o codigo para o meu trabalho Alexandre!

    Preciso fazer a análise de vários itens em 6 décadas (1960, 1970, 1980, 1990, 2000 e 2010)...
    P. Ex.: Preciso analisar a presença de Postos de Combustível em todas essas décadas. Assim, na minha tabela criei campos (Yes/No) para posto de combutivel para todas as décadas. O que eu gostaria de saber, é como fazer um "campo resultante", onde depois q eu analisei e "cliquei" as respectivas décadas, ele me apresenta algo assim: "1940, 1950, 1960", ou seja repetindo todos os anos em que foi selecionado! Será que alguem pode me ajudar??
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Alexandre Neves 7/4/2011, 19:40

    Boa tarde, Luíz

    Se se está a referir na tabela, não conheço tal possibilidade. Se estiver a referir-se a formulário, será melhor apresentar exemplo para se trabalhar no caso.
    Cumprimentos,
    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 684
    Registrado : 07/05/2010

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Jungli 8/4/2011, 14:36

    Bom dia
    Vejamos se entendi bem:

    > Supondo que tenhamos uma tabela chamada Tabela1 com os seguintes campos:

    ano_base - numero = (Interiro longo)
    selecionado - sim/não
    historico - texto = (50 posições)

    > Criamos uma consulta chamada Consulta1 com a seguinte estrutura:

    SELECT Tabela1.ano_base, Tabela1.selecionado, Tabela1.historico, * FROM Tabela1
    WHERE (((Tabela1.selecionado)=Yes));

    > Criamos um formulário com dois controles (um textbox e um botão de comando)

    Controle ... Nome
    Textbox ... Texto0
    Botão ... Comando2

    > No evento ao clicar do botão utilize o código

    Private Sub Comando2_Click()

    Dim r As DAO.Recordset

    Set r = CurrentDb.OpenRecordset("SELECT ano_base, selecionado FROM Consulta1 GROUP BY ano_base, selecionado;")

    Dim t100

    Me.Texto0 = ""

    Do Until r.EOF
    t100 = r![ano_base]
    Me.Texto0 = Me.Texto0 & "-" & t100
    r.MoveNext
    Loop

    r.Close

    End Sub

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 684
    Registrado : 07/05/2010

    [Resolvido]Somatoria de Informações "Sim/Não" Empty Re: [Resolvido]Somatoria de Informações "Sim/Não"

    Mensagem  Jungli 8/4/2011, 15:00

    Para mostrar as quantidades que aparecem em cada ano:

    Private Sub Comando2_Click()
    Dim r, r1 As DAO.Recordset
    Set r = CurrentDb.OpenRecordset("SELECT ano_base, selecionado FROM Consulta1 GROUP BY ano_base, selecionado;")
    Set r1 = CurrentDb.OpenRecordset("SELECT ano_base, Count(selecionado) " & _
    "AS ContarDeselecionado FROM Consulta1 GROUP BY ano_base;")

    Dim t100, t101


    Me.Texto0 = ""
    Do Until r.EOF
    t100 = r![ano_base]
    t101 = r1![ContarDeselecionado]
    Me.Texto0 = Me.Texto0 & " - Ano: " & t100 & " Quant.: " & t101
    r.MoveNext
    r1.MoveNext
    Loop
    r.Close
    r1.Close
    End Sub

      Data/hora atual: 27/1/2022, 00:17