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

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?

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

É 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

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

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.

Amigo

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

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

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

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

Aff

É assim meu amigo:


docmd.RunCommand acCmdSaveRecord

Me.Texto91 = DCount("*", "Questões", "Escolher = True ")

Agora funfou. Valeu!

Valeu pelo retorno

Boa sorte !!

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