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

    Atualizar Ribbons

    avatar
    CEvangelista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 18
    Registrado : 09/10/2017

    Atualizar Ribbons Empty Atualizar Ribbons

    Mensagem  CEvangelista 13/9/2022, 18:08

    Olá pessoal!
    Espero que esta mensagem possa encontrar todos de boa saúde...

    Deparei-me com dus dificuldades na construção do meu projecto e necessito da intervenção de vocês, principalmente aqueles que têm mais experiencia com Ribbons.

    1ª : Na minha faixa de Ribbon tenho dois botões com os nomes (btnACaixa e btnFCaixa) onde o primeiro é para abertura de caixa e o segundo é para o fecho do caixa.

    Tenho um formulário com o nome (pu), responsável por fazer o control de acesso ou permissões de usuários.

    No meu módulo (basRibbonCallbacks) tenho o seguinte código:

    Sub GetEnabled(control As IRibbonControl, ByRef enabled)
    Select Case control.ID

    Case "btnACaixa"
    If Forms!pu!Caixa = -1 Then
       enabled = False
       ElseIf Forms!pu!Caixa = 0 Then
       enabled = True
       End If
     
       Case "btnFCaixa"
       If Forms!pu!Caixa = -1 Then
       enabled = True
       ElseIf Forms!pu!Caixa = 0 Then
       enabled = False
       End If

    Case Else
    enabled = True
    End Select
    End Sub

    Agora vai a questão: Quando abro o sistema, os botões recebem as instruções e funcionam correctamente, mas a minha necessidade é que os botões actualizem em tempo de execução de maneiras que quando faço a abertura de caixa, automáticamente o botão ABRIR CAIXA fique desabilitado de maneiras que para estar habilitado novamente tem que se fazer o fecho de caixa e nessa altura o botão FECHAR CAIXA fica desabilitado, mas isso em tempo de execução ou com o programa aberto sem ter que fechar e voltar a carregar...

    Ajudem-me com uma solução para que o sistema possa actualizar a Ribbon sem ter que relinicia-lo.
    Desde já agradeço...

    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    2ª: Na segunda questão, anexei a imagem...

    Qual é o código que devo usar para abrir um formulário ao carregar uma tabela na Ribbon?
    Anexos
    Atualizar Ribbons AttachmentSSS.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (88 Kb) Baixado 5 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3782
    Registrado : 04/04/2010

    Atualizar Ribbons Empty Re: Atualizar Ribbons

    Mensagem  Avelino Sampaio 21/9/2022, 08:07

    Olá!


    Para atualizar a sua ribbon em tempo de execução utilize o Invalidate ou o InvalidateControl. Veja detalhes neste meu artigo abaixo:

    Copie e cole o endereço abaixo no seu navegador:

    usandoaccess.com.br/tutoriais/video-criar-ribbons-access-getvisible-getimage.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

    CEvangelista gosta desta mensagem

    avatar
    CEvangelista
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 18
    Registrado : 09/10/2017

    Atualizar Ribbons Empty Re: Atualizar Ribbons

    Mensagem  CEvangelista 26/9/2022, 23:42

    Muito obrigado por disponibilizar seu tempo para me ajudar!
    Vou dar uma olhada no link e depois retorno...

      Data/hora atual: 1/10/2022, 16:43