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


3 participantes

    [Resolvido]Alterar Ribbon em tempo de execução

    avatar
    Motar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    [Resolvido]Alterar Ribbon em tempo de execução Empty [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Motar 7/2/2016, 20:46

    Olá
    Criei uma Ribbon mas agora queria que ocultasse alguns botões de acordo com os acessos do utilizador, tem como fazer isso?
    Tem como atribuir a Ribbon através do forma de login?
    (Na altura de fazer login já experimentei alterar os dados da tabela da Ribbon mas não altera no menu)
    Bom Carnaval
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Avelino Sampaio 8/2/2016, 12:12

    Olá!

    Baixe o aplicativo Maestro e teste:

    http://www.usandoaccess.com.br/download.asp

    veja neste meu artigo como usar os atributos getVisible e getEnabled

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

    Bom estudo!


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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Motar 8/2/2016, 22:05

    Obrigado Avelino, as suas dicas são excelentes, vou analisar
    avatar
    Motar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Motar 10/2/2016, 17:51

    Viva
    Usando o contributo do Avelino criei este código e funciona bem com o ficheiro accdb:
    Sub GetVisible(control As IRibbonControl, ByRef visible)
    If control.ID Like "tab*" Then
    If DCount("[UoCod]", "RibbonComandosUO", "[UoMenuCod] = '" & control.ID & "' AND [UoCod] = '" & UserAtual & "'") = 0 Then
    visible = False
    Else
    visible = True
    End If
    End If

    If control.ID Like "grp*" Then
    If DCount("[UoCod]", "RibbonComandosUO", "[UoGrupoCod] = '" & control.ID & "' AND [UoCod] = '" & UserAtual & "'") = 0 Then
    visible = False
    Else
    visible = True
    End If
    End If

    If control.ID Like "btn*" Then
    If DCount("[UoCod]", "RibbonComandosUO", "[UoCcomandoCod] = '" & control.ID & "' AND [UoCod] = '" & UserAtual & "'") = 0 Then
    visible = False
    Else
    visible = True
    End If
    End If
    End Sub

    O problema surge quando crio o ficheiro accde que dá sempre o erro "Microsoft Access deixou de funcionar"

    Se apagar este código já deixa criar o ficheiro accde, porque razão acontece este erro?
    avatar
    Motar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 149
    Registrado : 03/08/2010

    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Motar 11/2/2016, 23:22

    Viva
    Deixo aqui uma alternativa de solução para quem lhe ocorra um erro semelhante
    1º Ir às opções e apagar o nome do friso (ribbon)
    2º Fechar aplicação e abrir novamente
    3º Criar ficheiro accde
    4º Indicar o nome do friso (ribbon) nas opções no ficheiro accde

    Assim já não dá erro ao criar o ficheiro accde
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Avelino Sampaio 12/2/2016, 08:18

    Rui

    obrigado pelo feedback e sucesso!



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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2014

    [Resolvido]Alterar Ribbon em tempo de execução Empty Nova Ferramenta para montar Ribbons

    Mensagem  sebastianmoveletro 9/9/2016, 21:01

    Olá desenvolvi uma ferramenta que personaliza faixa de opções no, Microsoft Access, Excel, Word e Power Point? E uma ferramenta pratica para o desenvolvimento de ribbons, sem necessidade de editar no xml, monta direto no banco de dados mesmo sem fazer a tabela Usysribbon, também edita, importa, exporta, valida etc..  lol!  lol!  lol!
    avatar
    sebastianmoveletro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2014

    [Resolvido]Alterar Ribbon em tempo de execução Empty Ferramenta para montar Ribbons

    Mensagem  sebastianmoveletro 9/9/2016, 21:07

    Segue imagens da ferramenta. lol! lol!
    avatar
    sebastianmoveletro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2014

    [Resolvido]Alterar Ribbon em tempo de execução Empty Ferramenta para montar Ribbons

    Mensagem  sebastianmoveletro 9/9/2016, 21:10

    Este exemplo mostra onde fica armazenado todos os ícones, idmso.
    avatar
    sebastianmoveletro
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 13/06/2014

    [Resolvido]Alterar Ribbon em tempo de execução Empty Ferramenta para montar Ribbons

    Mensagem  sebastianmoveletro 9/9/2016, 21:14

    Neste exemplo mostramos onde fica armazenados todas as xml.

    Conteúdo patrocinado


    [Resolvido]Alterar Ribbon em tempo de execução Empty Re: [Resolvido]Alterar Ribbon em tempo de execução

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:36