[Resolvido]liberar e bloquear botoes de formulario e subformularios

pessoal boa tarde, utilizo a função do Mestre João Paulo para liberar e bloquear controles dos formularios e subformularios....

Public Function BloqueiaControles(strFrm As Form) As String
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In strFrm.Controls
If InStr(1, ctl.Tag, "A") Then 'Só os controles que tiverem na linha Marca (Tag) a letra "A"
'ctl.Visible = True 'se desejar que fique visivel o campo
ctl.Locked = True 'se desejar bloquear o campo
'ctl.Enabled = False 'se desejar ativar o campo
End If
Next ctl

End Function

Public Function LiberaControles(strFrm As Form) As String
'By JPaulo ® Maximo Access
Dim ctl As Control
For Each ctl In strFrm.Controls
If InStr(1, ctl.Tag, "A") Then 'Só os controles que tiverem na linha Marca (Tag) a letra "A"
'ctl.Visible = True 'se desejar que fique visivel o campo
ctl.Locked = False 'se desejar desbloquear o campo
'ctl.Enabled = False 'se desejar ativar o campo
End If
Next ctl

End Function

o fato é que ela não funciona para os botões

alguem tem alguma ideia de como fazer com a mesma maneira da função acima?

abraços

Marcelo

Boa tarde amigo, as propriedades enabled, visible e Locked funcionam para botoes, poste seu projeto para vermos o que deu de errado.

ruggerib agradeço a ajuda

ja consegui bloquear somente os controles utilizando a função dessa forma

Dim strChekaDiferente As Boolean

Dim ctl As Control

On Error Resume Next


strChekaDiferente = False



For Each ctl In strFrm.Controls

' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

If ctl.Value <> ctl.OldValue Or (Not IsNull(ctl.Value) Or ctl.Value <> "") Then
'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
strChekaDiferente = True
'e registra na tabela do Log

ctl.Locked = True 'se desejar desbloquear o campo

'termina e volta a colocar a variável de chekar alterações como False
strChekaDiferente = False
Else
Cancel = True
End If

End Select

Next ctl

A questão é que a função nao percorre os subformularios que tenho vinculado ao formulario principal

algum mestre tem sugestões de como fazer?

atenciosamente

Marcelo

Acabei por utilizar a função dentro de cada subformulario e chamei a função pelo principal

atenciosamente

Marcelo