[Resolvido]Campo inacessível a alterações num subformulário

Boas tardes mais uma vez venho pedir a vossa ajuda se for possivel.
Tenho um subformulario com um campo chamado quant, haverá alguma forma de pôr esse campo inacessível a alterações após ter digitado a quant, ou quando passar ao registo seguinte.

Obrigado

No evento ao sair do campo:

If Not Isnull(Me.NomeCampo) Then 'Verifica se o campo está preenchido
Me.NomeCampo.Enabled = False ' Se não tiver preenchido, desabilita o campo
Else
Me.NomeCampo.Enabled = True ' Caso contrário, o campo ficará habilitado.
End If

Os nomes em vermelho deverá ser substituído pelo nome do campo em questão.

Está a dar erro ao tentar passar ao campo seguinte

If Not Isnull(Me.NomeCampo) Then 'Verifica se o campo está preenchido
Me.NomeCampo.Enabled = False ' Se não tiver preenchido, desabilita o campo
Else
Me.NomeCampo.Enabled = True ' Caso contrário, o campo ficará habilitado.
End If

Qual erro?

Digo erro porque dá a informação:(não pode desativar um controlo enquanto ele tiver o foco)

será por ter no evento depois de atualizar neste mesmo campo este codigo:

Private Sub Quant_AfterUpdate()
'Alterado por Bit@bit
'**************************
Me.txt_Produto = Me.CodProduto.Value
'***************************
End Sub

Coloque no evento Actual do formulário. Se o campo estiver com o foco, logo não pode ficar Enable. Coloque o código no evento ao alterar do campo. Experimente e retorne , por favor.

Olá bom dia Sr. Vieira segui as suas instruções e continua a dar o mesmo erro que está na mensagem nºtrês
tem outra coisa opós fechar o formulario e voltar abri-lo consigo fazer alterações no registo do campo quant o que não era muito conveniente.
esteve a tentar o exemplo do LEAM (Caixavenda)que tem o que eu pertendo no campo Quant,mas não estou a conseguir adapta-lo.

Obrigado

Talvez pondo o foco em outro controle antes de alterar a propriedade para desabilitado, mais ou menos assim:

If Not Isnull(Me.NomeCampo) Then 'Verifica se o campo está preenchido
Me.OutroCampo.SetFocus ' joga o foco para outro controle escolhido por voce
Me.NomeCampo.Enabled = False ' Se não tiver preenchido, desabilita o campo

Else
Me.NomeCampo.Enabled = True ' Caso contrário, o campo ficará habilitado.
End If

Tente por esse código tanto no atual quanto "Ao sair" e poste o resultado...

Boa tarde amigo, com este ultimo codigo já fico com o campo quant bloqueado a alterações mas, tem um Problema este campo quant encontra-se num subform continuo e o campo quant fica bloqueado em todas as linhas assim sendo no campo quant não consigo fazer registos ou seja só faço o primeiro registo.

Obrigado

Estou a puxar o tópico para cima. se já tiver resolvido, agradeço o seu retorno.

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.