[Resolvido]Bloquear campo "Anexos" em fomulário

Boa Noite,

Tenho a seguinte função para bloquear a edição em formulário:

Private Sub Form_Current()
Dim ctl As Control
Dim StrName As String

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

Para ativar a edição, uso um botão com o seguinte código:

If Forms!FPrincipal!txtUser = Utilizador Then
Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl
Else
MsgBox "Não é o utilizador que registou a correspondência ou o estado já não permite alterações.", _
vbExclamation, "Acesso Negado"
End If

Acontece que o campo "Anexo" não bloqueia.
Como é que designo em VBA o campo anexo do access?
Obrigado

Amigo, esta Linnha (Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox) Define os Tipos de Controles (ctl.ControlType) que serão afetados... Basta adicionar o Tipo para o Campo Anexo seguido de uma Virgula...


Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox, acAttachment

Podendo ser referenciado também pelo Numero:
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox, 126

Veja aqui a Lista com os Tipos e seus Valores.
microsoft.com/en-us/library/office/ff194205.aspx

Uma forma Bem simples de Saber qual o Tipo é rodar esse comando:

MsgBox Me.NomeCampo.ControlType

Irá retornar seu Numero.

Boa Noite.

Excelente, resolveu na maior.
Obrigado.

Grato pelo retorno e ate a Proxima se Deus quiser!!!