livio.sfranca 26/7/2018, 14:26
Bom dia Misson,
Eu uso a seguinte função para desabilitar ou habilitar controles:
- Código:
Public Function AtivarDesativar(NomeForm As Access.Form, TagAlvo As String, Optional NomeSubForm As Access.SubForm)
On Error Resume Next
Dim sControle As Control
Dim TControle As Control
'Controles do formulário principal
For Each TControle In NomeForm.Controls
If TControle.Tag = TagAlvo Then
If TControle.Enabled = False Then
TControle.Enabled = True
Else
TControle.Enabled = False
End If
End If
Next TControle
'Controles do subformulário
For Each sControle In NomeSubForm.Controls
If sControle.Tag = TagAlvo Then
If sControle.Enabled = False Then
sControle.Enabled = True
Else
sControle.Enabled = False
End If
End If
Next sControle
End Function
No botão que deseja rodar a função (Botão "Novo" por exemplo), você chama a função:
Call AtivarDesativar(Me, "AtivarDesativar")
Para que funcione, selecione os controles do seu form em que deseja desativar/ativar e na propriedade Marca (Em outra), escreva:
AtivarDesativar
Espero que ajude