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

4 participantes

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 19/5/2021, 12:42

    Bom dia!
    Olá amigos, no meu projeto eu fiz a minha ribbon usando o ide ribboncreator. Quando abro o meu projeto, o primeiro formulário a ser aberto é o de progresso, porem nesse processo por traz do formulário de processo já mostra os botões dos grupos habilitados. Eu gostaria que ficassem todos desabilitados e após o fim do progresso do formulário de processo habilitasse somente o botão do formulário de autenticação e após a autenticação habilitasse todos os outros botões dos grupo.

    Algum amigo, pode me dar uma luz de como seria isso ?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1577
    Registrado : 13/12/2016

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Alexandre Fim 19/5/2021, 13:55

    Bom dia,

    É necessário utilizar o getEnabled no XML do teu ribbon, para fazer a chamada, conforme abaixo:

    Código:



          <tab id="tabCad" label="CADASTRO" getVisible ="GetVisible" >
            <group id="grpAdm" label="Administrativo" getVisible ="GetVisible">
              <button id="btnClientes" size="large" label="Clientes" onAction="OnActionButton" getVisible="GetVisible" getEnabled="GetEnabled"/>
            </group>
          </tab>




    E a função é essa:

    Código:


    Sub GetEnabled(control As IRibbonControl, ByRef enabled)

        Select Case control.ID
            
            Case "btnClientes"
                Enabled = False 'desabilita o button
             ...
             ...
             ...
             ...
            
            Case Else
                enabled = True
             ...
             ...
             ...
             ...
            

        End Select

    End Sub




    Espero ter ajudado

    []'s

    FIM


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 19/5/2021, 14:17

    Bom dia!
    Olá amigo, poxa dei uma viajada. Não entendo muito código. Mas vou tentar entender como utilizar a sua ajuda.

    Estou entendendo que tem duas condições, para o botão. São não estou entendendo em que momento ele vai habilitar.

    Esses são meus botões.


    Select Case control.id
    Case "btnlogin"
    DoCmd.OpenForm "frmlogin"
    Case "btncliente"
    DoCmd.OpenForm "frmcliente"
    Case "btnproduto"
    DoCmd.OpenForm "frmentrada"
    Case "btnlogin"
    DoCmd.OpenForm "frmlogin"
    Case "btnusuario"
    DoCmd.OpenForm "frmusuario"
    Case "btnestoque"
    DoCmd.OpenForm "frmsaida"
    Case "btnconsulta"
    DoCmd.OpenForm "FrmPesquisa"
    Case "btn4"
    DoCmd.OpenReport "RelEstoquePositivo", acViewPreview
    Case "btn5"
    DoCmd.OpenReport "RelAgrupado", acViewPreview
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2909
    Registrado : 22/11/2016

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  DamascenoJr. 20/5/2021, 11:39

    Tópico movido da sala de Relatórios por não ter qualquer relação com esse tipo de objeto.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 21/5/2021, 18:13

    Olá amigo Boa tarde, poderia dar uma força na minha duvida ?
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 22/5/2021, 11:54

    Bom dia! olá amigos! Alexandre ainda não consegui o esperado no projeto. Poderia dar um help ?
    Em quanto isso estou buscando no forum

    Select Case control.id
              Case "btnlogin"
              If Me.p10 = False Then
              Me.btmlogin = visible = False
             
              Else
              If Me.p10 = True Then
              Me.btnlogin = visible = True

    Seria + ou - isso ?
    avatar
    Junior Freitas
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 27/05/2021

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Almeida

    Mensagem  Junior Freitas 29/5/2021, 02:59

    Olá caro amigo!


    use a seguinte expressão!


    no formulário de progresso, no evento Ao carregar use a  seguinte linha de código

    DoCmd.ShowToolbar "Ribbon", acToolbarNo


    depois no mesmo formulário no evento Ao fechar use a  seguinte linha de código

    DoCmd.ShowToolbar "Ribbon",acToolbarYes

    Espero ter contribuído com seu projeto.

    não esqueça de voltar aqui e confirmar se deu tudo certo
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 29/5/2021, 03:01

    Olá meu amigo, volto sim.
    Obrigado pela ajuda!

    Junior Freitas gosta desta mensagem

    avatar
    Junior Freitas
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 27/05/2021

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Junior Freitas 29/5/2021, 03:28

    Almeida, caso ainda não apareça a Ribbon, crie um formulário com o nome que desejar
    e na propriedade do evento ao carregar use o mesmo código do evento ao fechar
    do formulário progresso.

    E no evento ao fechar do formulário progresso remova o código e pronto, sua Ribbon
    já vai aparecer conforme vc criou.

    Att,

    Junior Freitas
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 29/5/2021, 03:34

    grato
    Vou olhar amanhã, obrigado meu amigo
    Almeidar
    Almeidar
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio Empty Re: [Resolvido]Habilitar botões de grupo na ribbon após autenticação de usuáio

    Mensagem  Almeidar 8/6/2021, 12:29

    Bom dia!
    Olá Junior, desculpa pela a demora. Mas estava fora por um tempo devido alguns problema.
    Mas tudo funcionou perfeitamente, obrigado meu amigo pela ajuda!

      Data/hora atual: 1/8/2021, 12:05