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]Esconder botões ao clicar numa guia

    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 13/1/2016, 19:16

    Pessoal, como fazer para que ao clicar em uma guia que hospeda um subformulário, os botões no rodapé do formulário principal que possui as guias fiquem invisíveis.
    Tentei desta maneira, mas não consegui.


    Private Sub guiaPeculiaridades_Click()
    btn_Alterar.Visible = False
    btn_Cancelar.Visible = False
    btn_Salvar.Visible = False
    btn_Novo.Visible = False
    btn_Excluir.Visible = False
    End Sub
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Alvaro Teixeira 14/1/2016, 08:27

    Olá, tente no evento Alterar em código acho que é:

    guiaPeculiaridades_change()

    Abraço
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 14/1/2016, 11:39

    Não deu certo.
    Testei também inserindo diretamente o código, pois nas propriedades da guia evento não existe alterar.
    avatar
    Convidado
    Convidado


    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Convidado 14/1/2016, 13:14

    o Nome guiaPeculiaridades se trata do nome da página ou do controle de guias?

    se for da página tente

    Private Sub guiaPeculiaridades_Click()
    Me![nomedoform].Form!btn_Alterar.Visible = False
    Me![nomedoform].Form!btn_Cancelar.Visible = False
    Me![nomedoform].Form!btn_Salvar.Visible = False
    Me![nomedoform].Form!btn_Novo.Visible = False
    Me![nomedoform].Form!btn_Excluir.Visible = False
    End Sub

    se não

    Private Sub nomedaoagina_Click()
    btn_Alterar.Visible = False
    btn_Cancelar.Visible = False
    btn_Salvar.Visible = False
    btn_Novo.Visible = False
    btn_Excluir.Visible = False
    End Sub


    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 14/1/2016, 14:30

    Já havia tentado isto e também não deu certo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Alvaro Teixeira 14/1/2016, 14:58

    Olá Eduardo Veríssimo,

    Veja na imagem abaixo o evento alterar (change), você deve selecionar o objecto controloDoSeparador e não a páginas:

    [Resolvido]Esconder botões ao clicar numa guia 160dhzd

    Abraço
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 14/1/2016, 15:32

    Então, ele faz o que pretendo, porém, são quatro guias e eu queria que escondesse os botões somente nas duas últimas guias e não em qualquer uma.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Alvaro Teixeira 14/1/2016, 15:36

    No problem, qual o número das referidas guias?
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 14/1/2016, 15:58

    2 e 3
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Alvaro Teixeira 14/1/2016, 16:37

    Olá Eduardo, teste assim:
    Código:
    'ahteixeira 2015 - MaximoAccess
    Dim booSeparador As Boolean
        
        If NomeControleSeparador > 2 Then
            booSeparador = True
        Else
            booSeparador = False
        End If
        
        btn_Alterar.Visible = booSeparador
        btn_Cancelar.Visible = booSeparador
        btn_Salvar.Visible = booSeparador
        btn_Novo.Visible = booSeparador
        btn_Excluir.Visible = booSeparador

    Nota: não esquecer de trocar no código NomeControleSeparador pelo nome do controlo no seu projeto.
    Abraço
    Veríssimo
    Veríssimo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 296
    Registrado : 07/06/2011

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Veríssimo 14/1/2016, 17:31

    Perfeito.
    Só inverti o sinal de > por < pois do jeito que me passou estava ao contrário.

    Muito obrigado mesmo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Alvaro Teixeira 14/1/2016, 17:43

    Olá Eduardo,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Esconder botões ao clicar numa guia Empty Re: [Resolvido]Esconder botões ao clicar numa guia

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 03:55