[Resolvido]Problema ao Contar itens de uma Listbox

Boas noites
Precisava, novamente, da vossa ajuda.
No campo do form tenho este código para contar itens de uma listbox
=Ise([Lista61].[ListCount]-1<0;"0";[Lista61].[ListCount]-1) que funciona muito bem.
Acontece que a fórmula bloqueia-me o form e, não faço ideia do que seja
Tentei um código VBA sem resultado.

Luís Antunes

Impossível essa fórmula bloquear o formulário.

Experimente olhar as propriedades do formulário sobre adicionar, editar e excluir.

Ou anexe seu arquivo para análise.

Boa Noite Damasceno
Não encontrei nada nos comandos Adicionar e Eliminar.
Quando fecho o formulário aparece,três mensagens seguidas, "Valor do parâmetro" com as ligações das consultas ao form

Luís Antunes

Anexe essa parte do seu arquivo para analisarmos

Na Parte do projecto a fórmula não afecta o form.
Posso enviar o projecto completo?

Luís Antunes

Pode ser. Na mensagem também dê detalhes dos passos a serem dados, o que acontece e o que deveria acontecer.

A password=5727
Ano = 2019
Rubrica = 02/02/10

DamascenoJr. escreveu:dê detalhes dos passos a serem dados, o que acontece e o que deveria acontecer

Qual é o formulário? Qual o controle que faz a contagem? Em que momento bloqueia? Na abertura? Dê detalhes.

Bom dia Damasceno
Formulário - Frm_Lancamento
Aba Introdução de Dados Controle - Texto 602
Aba Consulta Mensal Controle - Txt_Contagem
Quando fecha o formulário Aparece 6 mensagens "Valor do parâmetro"
Vou anexar novamente o meu projecto já com as tabelas

Luís, testei aqui e os controles estão contando direitinho os itens das listboxes.

Afina, o problema é a contagem dos itens ou as mensagens que surgem quando fecha o formulário?

Boas
As mensagens é que não deviam aparecer.
Se eliminar os controles o form fecha normalmente


Luís Antunes

Entendi.

No evento ao abrir do formulário, defina a fonte do controle dos campos

Código:

Me!Texto602.ControlSource = "=Nz(iif(([Lista61].[ListCount]-1) < 0, 0, [Lista61].[ListCount]-1), 0)"
Me!Txt_Contagem.ControlSource = "=Nz(iif(([Lista9].[ListCount]-1) < 0, 0, [Lista9].[ListCount]-1), 0)"

E no seu botão de sair, antes de docmd.quit, limpe o valor que foi definido

Código:

Me!Texto602.ControlSource = ""
Me!Txt_Contagem.ControlSource = ""

Boa tarde Damasceno
Ficou óptimo
Só não fiquei a perceber como é que um simples código origina aquelas mensagens ao sair.

Fico-lhe muita grato pela ajuda

Luís Antunes

Esqueci de pôr o resolvido

O fórum agradece o retorno. Sucesso.