[Resolvido]Referenciar egistro específico no subformulário

Bom dia amigos!
Aqui estou eu com mais uma dúvida e gostaria de ajuda dos companheiros.

É o seguinte: Tenho um subformulário contínuo.
Preciso que nesse subformulário, um campo seja habilitado para edição apenas
se atender a um determinado critério.

Tentei isso:

If MeuCritério = True Then
Me.MeuCampo.Enabled = False
Else
Me.MeuCampo.Enabled = True
End If

O problema é que se o critério for falço, ele habilita todos
os outros campos de todos os registros do subformulário, e não
apenas o do registro atual.

Como lidar com essa questão?

E se você colocar no evento Ao Sair do campo?

Private Sub SeuCampo_Exit(Cancel As Integer)
If Me.SeuCampo = X Then
Docmd.CancelEvent
End If
End Sub

Assim se o valor não atender ele não sairá do seu campo

Grato Leandro, mas independente do evento, ao habilitar o campo,
em todos os registros do formulário contínuo também é habilitado.
Mas deveria habilitar apenas no registro referido.

Beleza, foi só uma sugestão.

Com base no que escreveu, seria assim:

Private Sub SeuCampo_AfterUpdate()
If Me.SeuCampo = X Then
Me.ProximoCampo.Enable = False
Else
Me.ProximoCampo.Enable = True
End If
End Sub

Sugestão;

Para formulario continuo utilize a formatação condicional.

Grato JPaulo, mas como bloquear um campo de um registro específico do formulário continuo?

Alguma sugestão?

UP!

Boa noite, será que você pode postar uma parte do banco? E explicar mais sobre qual controle você quer que seja validado.

A propria Formatação Condicional bloqueia o registro especifico, basta você escolher Expressão e escrever lá o que quer.

Toyebom, grato pela sujestão. Mas da forma que você propôs eu já tentei e ele bloqueia todos os campo...

JPaulo, estou tentando essa regra, mas sem sucesso:

SeImed([Nome].Valor=200;[Endereco].[Bloqueado]=Verdadeiro;[Endereco].[Bloqueado]=Falso)

Caso o campo txtNome for igual a 200, o campo endereço deverá ficar bloqueado, mas não bleoqueia.

e assim?

Private Sub Form_Current()
If Me. txtNome = "200" Then
Me.endereço.Enabled = False
Else
If Me. txtNome <> "200" Then
Me.endereço.Enabled = True
End If
End If
End Sub

toyebom, deu certo! Muito obrigado!
Obrigado a todos os amigos que também
se propuzeram a me ajudar aqui!

O forum agradece o retorno

Resolvido, resolvido está.

Para que fique a saber como funciona a formatação condicional e enriquecer os seus conhecimentos;

Botão direito do mouse em cima do campo "Endereco", vai a formatação condicional e faz apenas isto;


É o simples;