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

    Problema ao carregar a Ribbon

    avatar
    RegisBorda
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 07/02/2014

    Problema ao carregar a Ribbon Empty Problema ao carregar a Ribbon

    Mensagem  RegisBorda em 17/5/2020, 19:43

    Prezados,

    Estou começando a utilizar as Ribbons agora. Portanto não tenho muita experiência.

    Pediria a ajuda dos senhores no seguinte problema :

    Montei uma Ribbon (rb_PrincipalDespesasMamae) onde estou tentando implementar e adaptar o controle de Permissões de Usuários utilizando o exemplo do Arquivo CADASTRO.ACCDB do Avelino.

    Neste arquivo existe alguns exemplos de controles de permissões de usuários, porém estou tentando adaptar as permissões da Ribbon onde HABILITA/DESABILITA seus botões de comando.

    Inclui os comandos :

    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"

    Em todos os botões de comandos na minha Ribbon (rb_PrincipalDespesasMamae) nos Grupos de Cadastro, Limpeza de Dados e Relatórios conforme exemplo :




    id = "mnCad"
    imageMso = "BusinessCardInsertMenu"
    label = "Cadastro"
    size="large"
    itemSize="normal"
    >

    id = "btEmpresas"
    imageMso = "CreateTableTemplatesGallery"
    label = "Empresa"
    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"
    onAction = "RibbonCadastros.AbreFormCadEmpresa"
    />

    id = "btSaldoInicial"
    imageMso = "CreateTableTemplatesGallery"
    label = "SaldoInicial"
    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"
    onAction = "RibbonCadastros.AbreFormSaldoInicial"
    />

    id = "btGrupoRecDesp"
    imageMso = "CreateTableTemplatesGallery"
    label = "Grupo de Receitas/Despesas"
    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"
    onAction =  "RibbonCadastros.AbreFormGrupoRecDesp"
    />

    id = "btSubGrupoRecDesp"
    imageMso = "CreateTableTemplatesGallery"
    label = "Sub Grupo de Receitas/Despesas"
    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"
    onAction = "RibbonCadastros.AbreFormSubGrupoRecDesp"
    />

    .... Etc

    Coloquei na Tabela de Funções os comandos de dois botões da minha Ribbon (só para testes) :

    tblFunções
    IdFuncao Objeto ObjetoNome Função Função suspensa
    1 Ribbon btEmpresas Habilita Opção de Menu do Form Empresas Não
    2 Ribbon btSaldoInicial Habilita Opção de Menu do Form Saldo Inicial Não

    Inclui em todos os Forms o seguinte comando no evento ao ABRIR :

    Private Sub Form_Open(Cancel As Integer)
    Cancel = Not fncPermissõesfrm(Me)
    End Sub

    E em todos os Relatórios o seguinte comando no evento ao ABRIR :

    Private Sub Report_Open(Cancel As Integer)
    Cancel = fncObjetoBloqueado(Me.Name, prBloquear, False)
    Me.RibbonName = "rb_RelatoriosDespesasMamae"
    End Sub

    Aparentemente parece que está tudo certo, porém quando abro o Aplicativo, os Grupos de Cadastro, Limpeza de Dados e Relatórios da Ribbon ficam DESABILITADOS.

    Embora, na Tabela de Permissões esteja tudo HABILITADO.

    Já tentei de tudo para resolver isso e não estou conseguindo. Não sei o que está faltando.

    Peço a ajuda dos senhores para solução deste problema. O Access que utilizo é 2016

    Muto Grato,

    Abs,

    Regis Borda
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 11/11/2009

    Problema ao carregar a Ribbon Empty Re: Problema ao carregar a Ribbon

    Mensagem  scandinavo em 19/5/2020, 12:39

    Ola

    Você já tentou usar um ou outro e não os dois juntos.?


    getVisible = "fncGetVisible"
    getEnabled="fncGetEnabled"


      Data/hora atual: 1/10/2020, 05:52