MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Compartilhe

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Mensagem  mcsanches em Seg 26 Set 2016, 15:54

    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

    ruggerib
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 14/01/2014

    Re: [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Mensagem  ruggerib em Seg 26 Set 2016, 18:30

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

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    Re: [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Mensagem  mcsanches em Sex 30 Set 2016, 15:03

    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

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    Re: [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Mensagem  mcsanches em Sex 30 Set 2016, 15:08

    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

    mcsanches
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 10/06/2012

    Re: [Resolvido]liberar e bloquear botoes de formulario e subformularios

    Mensagem  mcsanches em Seg 10 Out 2016, 13:44

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

    atenciosamente

    Marcelo

      Data/hora atual: Dom 11 Dez 2016, 00:15