[Resolvido]Problema ao carregar a Ribbon

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

Ola

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


getVisible = "fncGetVisible"
getEnabled="fncGetEnabled"

Prezados,

Refiz a Ribbon, revisei os nomes dos botões de Menu e revisei as macros.

Consegui que funcionasse.

Grato pela ajuda,

Abs,

Regis Borda