[Resolvido]Limite de ativação Campo Sim/Não

Ola colegas.

Em um formulário(novo registro), há um campo do tipo sim/não, e o default dele é "true".
No formulário(edição), gostaria de saber se tem como colocar um rotina com limite de ativação do campo sim/não?
Ou seja: ao editar o registro o usuário poderá mudar o campo pra "false" e quando ele voltar a editar novamente e mudar para "true", a rotina reconheça que é 2ª vez que o campo foi alterado, e após a alteração efetue o travamento do campo para nova edições.

Agradeço antecipadamente.

Comentado no código.

Sucesso.

Código:

Option Compare Database
Option Explicit
Dim contador As Integer 'Declara a variável aqui pois assim ela não perderá o valor

Private Sub Form_Load()

Me.txtopcao = True ' inicia o botão como true no carregamento do form

End Sub

Private Sub txtopcao_Click()

    contador = contador + 1 'carrega a variável contador igual a ela mesma +1
    
        If contador = 2 Then ' quando e chegar a 2 exibi a mensagem e desabilita os campos que quiser
        
        MsgBox ("Contador = 2")
    
    Me.txtopcao.Enabled = False

End If

End Sub

O problema do código do Formiga10x é que a rotina só vai funcionar no momento da edição e na primeira vez que o formulário for carregado.

Eu faria assim:

Criaria um campo do tipo texto na tabela como nome por exemplo de "Limite"
Deixaria a MinhaCheckBox com o valor padrão Falso

Código:

Option Compare Database
Public boAtivacao As Boolean

Private Sub MinhaCheckBox_AfterUpdate()
    If Limite >= 2 Then
       MinhaCheckBox.Value = boAtivacao
    Else
       Limite = Limite + 1' Limite é também o nome do Campo no formulário
    End If
End Sub

Private Sub MinhaCheckBox_BeforeUpdate(Cancel As Integer)
    boAtivacao = MinhaCheckBox.Value

    If MinhaCheckBox.Value = True Then
        boAtivacao = False
    Else
        boAtivacao = True
    End If
End Sub

Segue exemplo.

abraços

Live Brain Tutoriais ( Youtube )

Live Brain Tutoriais ( Facebook)

Poderia ser feito a nível de módulo também sem a necessidade de acrescentar campo na tabela caso fosse a caráter de verificação enquanto o aplicativo estivesse aberto, caso contrário se fosse para guardar o valor para futuras verificações seria melhor campo em tabela.

Veja:

Formiga, obrigado pela ajuda, esta quase perfeito, porque quando vc retorna o campo sim/não ta destravado.
No exemplo que vc colocou também ocorre o mesmo.

Colegas muito obrigado ambos ajudaram bastante.
O item será usado em consulta, então fica melhor guardar em tabela.
Meu muito obrigado e sucesso para vocês.