[Resolvido]Bloquear e desbloquear campo a clicar "Sim ou Não"

Pessoal!

Ao abrir o formulário o campo ficar bloqueado. Ao clicar "Sim" desbloquear.

Fiz essa sequencia mas não funcionou

Antes de atualizar

Dim ctl As Control
Dim Adm As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
Adm = ctl.Name
Me(Adm).Enabled = False
End Select
Next ctl

Para editar

Dim ctl As Control
Dim Adm As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
Adm = ctl.Name
Me(Adm).Enabled = True
End Select
Next ctl

Não funcionou. Alguma ideia galera

Abçs

Experimente mudar essa parte do código:


Me(Adm).Enabled = False

Para

Me.Adm.Locked = False ' Locked = Bloqueado / Enabled = Ativado


[ ]'s

Ola.

Desta forma bloqueia o "Sim Não". Não o campo Adm

Vou tentar adaptar outro código.

Abçs

Veja aqui amigo...
https://www.maximoaccess.com/t28720-resolvidobloquear-campo-anexos-em-fomulario

Resolvido

Obrigado....

Grato pelo retorno e até a próxima se Deus quiser!