[Resolvido]Habilitar botão em formulário contínuo.

Boa noite a todos!!!

Em um formulário contínuo com dados somente de uma tabela, tenho um botão de comando no cabeçalho que deverá estar habilitado somente se um dos registros estiver com a caixa de seleção marcada. (Verdadeiro)

Todos as caixas de seleção desmarcadas (falso) - botão  bloqueado/ se ao menos uma caixa tiver marcada, botão desbloqueado.

Alguém pode me ajudar? Muito obrigado!!!

Veja se é isso

Obrigado Fabio pela dica.

Vou ter que fazer algumas adaptações porque não posso usar "Requery" nesse campo. Ele faz parte do critério da consulta, que exige "false" para o mesmo. Vou criar um outro campo na tabela e ver se consigo fazer funcionar. Mais a noite eu dou um retorno. Mais uma vez obrigado!

O amigo IvanJr me ajudou com um código que impede que o formulário contínuo se feche caso alguma caixa de seleção existente nos registros esteja selecionada.


Aqui o código:

Private Sub Form_Unload(Cancel As Integer)

Dim objRS As Recordset
Dim booTemMarcado As Boolean

Set objRS = Me!subForm.Form.RecordsetClone

If objRS.RecordCount > 0 Then

Call objRS.MoveFirst

Do

booTemMarcado = objRS!ativo.Value
Call objRS.MoveNext

Loop Until objRS.EOF Or booTemMarcado

End If

Call objRS.Close: Set objRS = Nothing

Cancel = booTemMarcado

End Sub

Agora o que eu preciso é que o "Botão" que coloquei no cabeçalho do form. esteja habilitado somente quando alguma das caixas de seleção esteja marcada. No exemplo que o amigo Fabio me passou funciona perfeitamente, só que no meu caso não poderei usar Requery como já disse, e aí o código deixa de funcionar.
Tentei adaptar o código acima, mas infelizmente não consegui.

Melhor postar seu programa para verificar como está e como adaptar.

https://www.dropbox.com/s/pr19a3yqdbxyt55/Banco%20de%20dados1.accdb?dl=0

Rosalvo

Esse modelo que você disponibilizou está parecido com o exemplo que te passei.

Eu teria que ver o código que você diz que interrompe com o requery

Tente usar no lugar do requery o refresh para ver se tem o mesmo efeito

Ok Fábio!!!!
Com Refresh o problema foi resolvido. Muito obrigado mesmo por sua atenção. Grande Abraço!