[Resolvido]Bloquear campo em formulário

Boa tarde,

Tenho um campo Verdadeio/Falso em um formulário e gostaria que após esse campo ser atualizado para "verdadeiro", não seja mais possível retornar para falso, eu utilizava o código abaixo mas sempre que abria o formulário ele dava a possibilidade de uma nova atualização.

Private Sub Baixa_After Update()
Me.Baixa_Data=Date
Me.Baixa_Hora=Time
Me.Baixa.Locked = True
End Sub

Depois tentei novo código mas não deu certo

Private Sub Baixa_After Update()
Me.Baixa_Data=Date
Me.Baixa_Hora=Time
if Me.Baixa = Verdadeiro Then
Me.Baixa.Locked = True
Exit Sub
End if
End Sub

Onde será meu erro? se alguém puder me dar uma luz, agradeço desde já!!!!!!!!!!!
End Sub

Um pitaco.

Não seria melhor colocar no evento Antes de Atualiza, ou Ao receber foco, ou outro diferente de Após Atualizar.

Abraços

Finformática,

Você tem razão, tenho que fazer "no evento Antes de Atualiza, ou Ao receber foco, ou outro diferente de Após Atualizar."

Mas mesmo assim não estou acertando o código para que depois que o campo seja marcado como verdadeiro ele fique bloqueado, usei o seguinte código mas ele fez o bloqueio do campo em todos os registros mesmo sem ser verdadeiro.

If Baixa<>0 Then
Baixa.enable=false
Else
Baixa.enable=True
End if

Coloquei no eventos antes de atualizar.

Boa noite,

consegui resolver no evento " Em sujo" do formulário, com o seguinte código:

Private Sub Form_Dirty(Cancel As Integer)
If Me.Baixa = True Then Cancel = True
End Sub

Ótimo. Boa sorte.