Ajua com a funçao de bloqueio.

Prezados, bom dia!

Abaixo tem uma função que eu tho tentando fazer com que funcione, mas não consigo... tem algo de errado na mesma?

Gostaria de bloquear todos os campos do meu formulario sem ter que usar o AllowEdits, pois preciso fazer com que o usuario possa passar para um novo registro e/ou filtrar um
registro que possar ser editado. Vejam abaixo:

Public Function fncexibe()
Dim cont As Control
For Each cont In Forms!subRegistro.Controls
If Not IsNull(cont) Then
Forms!subRegistro!cont.Enabled = False 'aqui eu tentei .locked e tbm não funcionou
End If
Next cont
End Function

Meu formulário tem campos como imagem, txbox, caixa de listagem, e os dados são data, registro(Numero), botão de opções. Não sei se isso pesa.
Bom, obrigado a todos!

Bom dia,

Forms!subRegistro!cont.Enabled = False
Assim está referenciando um controle cont que não existe no form subRegistro.

A variável cont já está referenciando os objetos no form subRegistro, então tente:

cont.Enabled = False

Não funcionou, ao executar o codigo com ponto de interrupção apareceu a mensagem de erro.

erro em tempo de execução '438':

o objeto não aceita esta propriedade ou método.

Isso ocorre porque no formulário em questão existem controles que não têm a propriedade .Enabled, e consequentemente não é possível referenciá-la atribuindo o valor False.

Inclua a linha abaixo antes da linha Dim cont As Control:

On Error Resume Next

Era isso mesmo cláudio. Muito obrigado!!!

De nada.