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

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 ?

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

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

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

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

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 ?

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

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

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

grato
Vou olhar amanhã, obrigado meu amigo

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!