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

    [Resolvido]Campo em Controle Guia x bloqueio de controle

    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 29/04/2011

    [Resolvido]Campo em Controle Guia x bloqueio de controle Empty [Resolvido]Campo em Controle Guia x bloqueio de controle

    Mensagem  vinicius.anna 5/9/2018, 21:17

    Boa tarde

    Estou com uma situação em um formulário que possui um controle guia, no controle guia, tenho sub formulário(s) e neste(s) sub formulário(s), demais controles. Ocorre que, preciso bloquear a edição dos controles do sub formulário que está no controle guia. Testei várias alternativas mas não consegui fazê-lo, apenas consegui ocultar a guia, porém, acaba não resolvendo o problema...., testei no evento "atual" do formulário.... então no evento, no atual, testei, se o controle do formulário principal está vazio, bloqueio o controle que está no sub formulário dentro do controle guia (e é esta a minha dificuldade)....

    Alguma amigo tem alguma dica de como possa fazê-lo?


    Em anexo disponibilizo pequeno exemplo da situação.


    Obrigado

    Att.

    Vinicius

    Anexos
    [Resolvido]Campo em Controle Guia x bloqueio de controle AttachmentGuia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (32 Kb) Baixado 6 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo em Controle Guia x bloqueio de controle Empty Campo em Controle Guia x bloqueio de controle

    Mensagem  good guy 5/9/2018, 22:04

    Olá vinicius,

    Faça assim. Você vai precisar de duas funções uma para bloquear controles e outra para desbloqueá-los. Na propriedade Marca do formulário, do subformulário e do controle-guia digite -1. Sem o ponto(.), é claro.

    Código:
    Public Function BloquearControle()
    #Função de Eduardo Machado (Good Guy) para o Vinicius
    On Error Resume Next
    Dim ctl As Control

    For Each ctl In Me.Controls
       If ctl.Tag = -1 Then
          ctl.Locked = True
       End If

    Next
    End Function

    Public Function DesbloquearControle()
    #Função de Eduardo Machado (Good Guy) para o Vinicius
    On Error Resume Next
    Dim ctl As Control

    For Each ctl In Me.Controls
       If ctl.Tag = -1 Then
          ctl.Locked = False
       End If

    Next
    End Function


    Private Sub campo1form1_AfterUpdate()
     If Not IsNull(campo1form1) Then
      Call DesbloquearControle
      Else
      Call BloquearControle
      End If
      
    End Sub
    Anexos
    [Resolvido]Campo em Controle Guia x bloqueio de controle AttachmentGuia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 15 vez(es)
    avatar
    vinicius.anna
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 196
    Registrado : 29/04/2011

    [Resolvido]Campo em Controle Guia x bloqueio de controle Empty Re: [Resolvido]Campo em Controle Guia x bloqueio de controle

    Mensagem  vinicius.anna 6/9/2018, 12:04

    Bom dia

    Good Guy

    Muito obrigado pela atenção, problema resolvido.


    Tenha um bom dia!


    Att.

    Vinicius
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Campo em Controle Guia x bloqueio de controle Empty Campo em Controle Guia x bloqueio de controle

    Mensagem  good guy 6/9/2018, 15:27

    Olá Vinicius,

    O fórum todo agradece seu retorno.

    Adquira os livros:

    Para iniciante:
    https://www.maximoaccess.com/t32310-segundo-livro-publicado-do-good-guy-domine-o-access-vba-para-iniciantes-na-programacao

    Para usuário avançado:
    https://www.maximoaccess.com/t29536-livro-publicado-tecnicas-especiais-de-access-vba-da-autoria-de-good-guy


    "O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
    Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
    Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

      Data/hora atual: 27/1/2023, 04:44