Desativar campos no registro atual.

Olá galera, boa tarde!

Tenho o seguinte código de exemplo:

Código:


Dim Trava1 As Boolean

Private Sub Comando9_Click()
If Trava1 = True Then
Me.btnExemplo.Enabled = False
Trava1 = False
Else
Me.btnExemplo.Enabled = True
Trava1 = True
End If
End Sub

Private Sub Form_Open(Cancel As Integer)
Trava1 = True
End Sub


Funciona, porem, para todos os registros no formulario.
Gostaria que este código funcione apenas no registro atual.

Desde já agradeço!
Cmte Henrique.

Será então um formulário continuo, certo ?

Se for, use a formatação condicional, para bloqueio.

Boa noite JPaulo.

Como a formatação condicional?

Desculpe a ignorância, sou novato mesmo em access.

O amigo com o botão direito do mouse em cima do campo btnExemplo, vai a Formatação Condicional, escolhe "A expressão"
e na linha à frente coloca, [Trava1] = True
Depois pressiona o botão ao lado da cor da letra, Ativado/Desativado.

Boa JPaulo.

Entendi o que você quis dizer.

Mas não funcionou, pressiono o botão e o campo fica desatavido, mas em todos os registros e não apenas no atual.

Anexe em .zip o seu banco ou parte dele aqui, para eu lhe arranjar a solução.

Olá

Experimente trocar o evento para "No atual" e veja se resulta.

De:

Private Sub Form_Open(Cancel As Integer)
Trava1 = True
End Sub

Para:

Private Sub Form_Current()
Trava1 = True
call Comando9_Click
End Sub

Sucesso!

Boa tarde amigos.

Nada ainda..

Tem um outra coisa tambem ele não salva, status como travado, para o registro. quando reabro o form o campo está liberado.

Código:

Código:


Dim Trava1 As Boolean

Private Sub Comando31_Click()

If Trava1 = True Then
    Trava1 = False
    Me.Origem.Enabled = False
    Me.Destino.Enabled = False
    Me.Alternativo.Enabled = False
    Me.Distância_1.Enabled = False
    Me.Distância_2.Enabled = False
    Me.Altitude.Enabled = False
Else
    Me.Origem.Enabled = True
    Me.Destino.Enabled = True
    Me.Alternativo.Enabled = True
    Me.Distância_1.Enabled = True
    Me.Distância_2.Enabled = True
    Me.Altitude.Enabled = True
    Trava1 = True
End If

End Sub

Private Sub formVoos_currect() 'já tentei "form_currect" apenas.

Trava1 = true 'já tentei "= false"
Call Comando31_Click

End Sub


Obrigado pela atenção e um abraço!