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

    Após salvar tornar todos os campos inacessiveis

    Compartilhe

    diegocaprino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/05/2017

    Após salvar tornar todos os campos inacessiveis

    Mensagem  diegocaprino em Qui 01 Fev 2018, 19:24

    Galera sou iniciante,
    Procurei em vários lugares mas não encontrei, COMO TORNAR INALTERÁVEL OS CAMPOS APÓS SER SALVO?

    OBRIGADO AMIGOS.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1118
    Registrado : 05/02/2010

    Após salvar tornar todos os campos inacessiveis

    Mensagem  good guy em Qui 01 Fev 2018, 20:26

    Olá Diego,

    Utilizando a propriedade Locked = True do campo ou Enabled = False do mesmo após o salvamento do registro.

    Vamos a um exemplo:
    Código:

    Private Sub cmdSalvar_Click()
    On Error Resume Next
    Dim ctl As Control

    DoCmd.RunCommand acCmdSaveRecord

    For Each ctl In Me.Controls         'Para cada controle existente no formulário
           If ctl.ControlType = acTextBox Then        'Se este controle for uma caixa de texto
               ctl.Locked = True              'Ou ctl.Enabled = False          'Esta caixa de texto ficará bloqueada  ou desabilitada.
           End If
    Next ctl

    End Sub
    Código:

    PARA DESBLOQUEAR OU ATIVAR OS CAMPOS:

    Private Sub cmdDesbloquear_Click()
    On Error Resume Next
    Dim ctl As Control

    For Each ctl In Me.Controls         'Para cada controle existente no formulário
           If ctl.ControlType = acTextBox Then        'Se este controle for uma caixa de texto
               ctl.Locked = False             'Ou ctl.Enabled = True          'Esta caixa de texto ficará bloqueada  ou desabilitada.
           End If
    Next ctl

    End Sub
    Código:

    PARA BLOQUEAR SOMENTE CAMPOS ESPECÍFICOS, A PROPRIEDADE MARCA DE CADA CAMPO (NA ABA OUTRA)DEVE ESTAR CONFIGURADA COMO (-1).

    Marca        -1

    Veja como deve ficar o código:

    Private Sub cmdSalvar_Click()
    On Error Resume Next
    Dim ctl As Control

    Const conVinculado = -1      'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

    DoCmd.RunCommand acCmdSaveRecord

    For Each ctl In Me.Controls
        If ctl.Tag = conVinculado Then
            If ctl.ControlType = acTextBox
                        ctl.Locked = True              'Ou ctl.Enabled = False          'Esta caixa de texto ficará bloqueada  ou desabilitada.
           End If
        Else
            If ctl.ControlType = acTextBox
                        ctl.Locked = False              'Ou ctl.Enabled = True          'Esta caixa de texto ficará desbloqueada  ou habilitada.
            End If
        End If
    Next ctl
    End Sub
    Código:

    PARA DESBLOQUEAR OU ATIVAR OS CAMPOS:

    Private Sub cmdDesbloquear_Click()
    On Error Resume Next
    Dim ctl As Control

    Const conVinculado = -1      'Colocar -1 na propriedade Marca da aba Outra de cada campo do formulário que deseja verificar

    For Each ctl In Me.Controls
        If ctl.Tag = conVinculado Then
            If ctl.ControlType = acTextBox
                        ctl.Locked = False              'Ou ctl.Enabled = False          'Esta caixa de texto ficará bloqueada  ou desabilitada.
           End If
        Else
            If ctl.ControlType = acTextBox
                        ctl.Locked = False              'Ou ctl.Enabled = True          'Esta caixa de texto ficará desbloqueada  ou habilitada.
            End If
        End If
    Next ctl
    End Sub



    Última edição por good guy em Ter 06 Fev 2018, 15:55, editado 1 vez(es)

    diegocaprino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 31/05/2017

    Re: Após salvar tornar todos os campos inacessiveis

    Mensagem  diegocaprino em Ter 06 Fev 2018, 13:34

    \ÓTIMO AMIGO MUITO OBRIGADO.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1118
    Registrado : 05/02/2010

    Após salvar tornar todos os campos inacessiveis

    Mensagem  good guy em Ter 06 Fev 2018, 15:53

    Olá Diego,

    O fórum todo agradece. Não se esqueça de dar como RESOLVIDO. Se quiser aprender mais, vai aí uma dica adquira meu livro DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA aqui mesmo pelo fórum. Minha sugestão é adquirir na versão e-book.

    [Você precisa estar registrado e conectado para ver este link.]

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qui 19 Abr 2018, 12:43