MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Bloquear e Desbloquear Campos em formularios

    avatar
    ogleari
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 14/05/2014

    Bloquear e  Desbloquear Campos em formularios Empty Bloquear e Desbloquear Campos em formularios

    Mensagem  ogleari 27/2/2016, 03:49

    Olá esta é minha primeira contribuição.
    Para bloquear basta chamar a sub Bloqueia_ctl com o nome do formulário.
    Quando não quiser que um determinado campo seja bloqueado,basta definir a TAG "não bloqueia"
    Para liberar basta chamar a sub Libera_ctl com o nome do formulário.


    *********************************
    * Davidson Gonçalves Ogleari
    *********************************

    Public Sub Bloqueia_ctl(frm As Form)
       Dim ctl As Control

       ' Enumera coleção Controls.
       For Each ctl In frm.Controls
           ' Verifica se o controle é caixa de texto.
           If ctl.ControlType = acTextBox Then GoSub Define_Propriedade
           If ctl.ControlType = acComboBox Then GoSub Define_Propriedade
           If ctl.ControlType = acSubform Then Bloqueia_ctl ctl.Form
       Next ctl
       Exit Sub

    Define_Propriedade:
    ' Define propriedades do controle.
       With ctl
           If .Tag <> "não bloqueia" Then
               .Locked = True
               .BackColor = 16777215
               '.Enabled = False
           End If
       End With
       Return
    End Sub

    Sub Libera_ctl(frm As Form)
       Dim ctl As Control

       ' Enumera coleção Controls.
       For Each ctl In frm.Controls
           ' Verifica se o controle é caixa de texto.
           If ctl.ControlType = acTextBox Then GoSub Define_Propriedade
           If ctl.ControlType = acComboBox Then GoSub Define_Propriedade
           If ctl.ControlType = acSubform Then Libera_ctl ctl.Form
       Next ctl
       Exit Sub

    Define_Propriedade:
    ' Define propriedades do controle.
       With ctl
           If .Tag <> "não bloqueia" Then
               .Locked = False
               .BackColor = 8454016
               '.Enabled = True
           End If
       End With
       Return
    End Sub
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Bloquear e  Desbloquear Campos em formularios Empty Re: Bloquear e Desbloquear Campos em formularios

    Mensagem  bigfill 16/3/2016, 17:07


    Boa tarde ogleari, Obrigado pela partilha.

      Data/hora atual: 22/11/2024, 12:37