MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Evento em Controle de Guia

    avatar
    Prentys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 05/09/2018

    [Resolvido]Evento em Controle de Guia Empty [Resolvido]Evento em Controle de Guia

    Mensagem  Prentys em 27/5/2020, 19:36

    Bom Dia!

    Um formulário que uso possui um controle de guia simples, são 4 guias ao todo.
    Contudo, gostaria que ao usuário selecionar a Guia04, o Access ocultasse um botão que fica no topo do form (fora do controle de guias mesmo).


    Mas quando eu clico na PagDC nada acontece, é como se a página não executasse o evento.
    podem me ajudar?

    Eu usei o seguinte evento:

    Código:
    Private Sub PagDC_Click()
    Forms![Form_medico].btnSave.Visible = False
    End Sub
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1293
    Registrado : 23/01/2018

    [Resolvido]Evento em Controle de Guia Empty Re: [Resolvido]Evento em Controle de Guia

    Mensagem  crysostomo em 27/5/2020, 20:28

    boa tarde amigo pelo que vejo o código está certo pode está dando erro porque o access não tem como ocultar um botão em foco
    quando você clicar para ocultar coloque o foco para outro,


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Evento em Controle de Guia Empty Re: [Resolvido]Evento em Controle de Guia

    Mensagem  Celso Roberto em 27/5/2020, 22:39

    Ola...

    Quando queremos ao clicar na pagina do controle guia seja executado alguma coisa, temos que colocar o código no controle guia e referenciar a pagina.

    Sempre uso e evento ao alterar o controle guia, veja exemplo abaixo e adapte a sua situação.

    Código:
    Private Sub CtlGuia253_Change()

    If CtlGuia253.Value = 0 Then 'Indice da pagina = 0
        Me.BtnConsultar.Visible = False
    ElseIf CtlGuia253.Value = 1 Then 'Indice da pagina = 1
        Me.BtnConsultar.Visible = True
    End If

    End Sub

    Aguardamos retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    avatar
    Prentys
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 05/09/2018

    [Resolvido]Evento em Controle de Guia Empty Re: [Resolvido]Evento em Controle de Guia

    Mensagem  Prentys em 28/5/2020, 12:21

    Celso, é basicamente isto que eu realmente preciso.

    Eu tomei a liberdade de copiar o seu COD e coloquei, deu certinho!

    Eu realmente não sabia que dava pra usar a função Change() assim.


    Resolvido!
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1063
    Registrado : 01/03/2014

    [Resolvido]Evento em Controle de Guia Empty Re: [Resolvido]Evento em Controle de Guia

    Mensagem  Celso Roberto em 31/5/2020, 16:08

    Olá...

    Ficamos felizes por ter ajudado cheers cheers

    O Fórum agradece o seu retorno

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 13/8/2020, 15:39