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]Contar registros selecionados de acordo com uma CaixaBox selecionado

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 15/2/2012, 21:07

    Olá a todos! estou com um pequeno problema. E sei que para vocês isso deve ser fácil. Eu tenho um formulário onde cada registro posso selecionar em uma caixabox, eu queria que através de uma caixa de texto mostrasse a quantidade de registros selecionados em tempo real. Para ficar melhor seria assim, a medida que vou selecionando no caixa box a caixa de texto vai sendo somado de 1 unidade e se eu desmarcar que ele subtraia também 1 unidade, assim seria mostrado sempre quantos registros foram selecionados. E ai amigos, alguém pode me dizer como faço?
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 15/2/2012, 22:53

    Olá Sabino

    Se a caixaBox que você se refere é uma listbox então:

    Crie uma caixa de texto

    No evento Ao Clicar da List box coloque:

    Me.CaixaDeTextoCriada = Me.NomeListBox.ItemsSelected.Count

    Abraços
    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 15/2/2012, 22:55

    É uma caixa de marcação, com nome Seleção50, eu quero que se for marcada, conte na caixa de texto e se for desmarcada seja subtraído a contagem para voltar ao valor que tava antes
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 15/2/2012, 23:09

    Agora entendi.

    É uma caixa de seleção.

    Bem, provavelmente essa caixa de seleção está em cada registro de uma tabela como um campo sim/não, certo?

    Se for isso, faça o seguinte:

    No evento Apos atualizar dessa caixa:

    Me.caixadetexto = Dcount("*","Nomedatabela","NomeCamposeleção = -1 ")

    Se der erro, tente:

    Me.caixadetexto = Dcount("*","Nomedatabela","NomeCamposeleção =" & -1 ")

    No momento não tenho como testar esse código.

    Esse código só irá funcionar se tiver um campo sim/não na tabela em questão

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 15/2/2012, 23:19

    Eu testei, mas não deu certo, coloquei o evento na caixa de texto como você explicou, mas fica em branco. Quero também informar que o formulário é de uma consulta que por sua vez é de uma tabela que tem o campo Sim/Não.
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 15/2/2012, 23:23

    Amigo

    O código vai no evento Apos Atualizar da caixa de seleção.

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 15/2/2012, 23:28

    Ele começou a contar, mas com alguns problemas. Quando seleciono a caixa, o primeiro valor que aparece na caixa de texto é 0, ai quando vou selecionando o restante ele vai contando, só que ao começar a desmarcar,ele só começa a subtrair na terceira desmarcação, até chegar no valor 1 quando estão todas desmarcadas
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 15/2/2012, 23:42

    Na verdade, o access só grava na tabela, quando sai do registro e vai para outro, que no caso de um formulário contínuo ou modo formulário é quando se muda de linha.
    Então temos que forçar o Access a salvar na tabela a mudança da caixa de seleção antes de fazer a contagem.
    Coloque esse camando antes do dcount()

    docmd.RunCommand acCmdSaveRecord

    Teste, veja se funfa, e retorne.

    Abraços

    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 15/2/2012, 23:45

    Coloquei dessa forma ai,Me.Texto91 = docmd.RunCommand acCmdSaveRecord DCount("*", "Questões", "Escolher = True "). Ai agora tá aparecendo erro de sintaxe, erro de compilação. Deve tá faltanto alguma coisa
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 16/2/2012, 00:51

    Aff

    É assim meu amigo:


    docmd.RunCommand acCmdSaveRecord

    Me.Texto91 = DCount("*", "Questões", "Escolher = True ")
    avatar
    emacsabino
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 190
    Registrado : 29/08/2011

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  emacsabino 16/2/2012, 01:28

    Agora funfou. Valeu!
    avatar
    Convidad
    Convidado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Convidad 16/2/2012, 02:06

    Valeu pelo retorno

    Boa sorte !!
    avatar
    joanammc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 88
    Registrado : 30/12/2012

    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  joanammc 4/3/2013, 09:43

    Bom dia amigos

    Preciso de uma pequena ajuda relacionada com o este tema

    Eu utilizo o seguinte codigo para me contar os valores de uma listbox com cabeçalho:

    Dim lngItens3 As Long
    lngItens3 = List4.ListCount - 1
    Me!Text27 = lngItens3

    Conta tudo correto fora quando não tem valores. Em vez de aparecer zero aparece -1. Se tiver valores aparece correto.

    Alguem me consegue ajudar Laughing

    Conteúdo patrocinado


    [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado Empty Re: [Resolvido]Contar registros selecionados de acordo com uma CaixaBox selecionado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:01