MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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 : 121
    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
    avatar
    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 : 121
    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 : 121
    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 : 121
    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: Qui 27 Jul 2017, 09:40