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

    Problemas para ativar ribbon

    avatar
    diegoamaral91
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 20/08/2015

    Problemas para ativar ribbon Empty Problemas para ativar ribbon

    Mensagem  diegoamaral91 7/10/2015, 13:48

    Pessoal,

    É me primeiro post aqui no fórum, não sei se essa é a área correta.
    Estou criando um bd utilizando ribbons, mas como não tive condições de adquirir o Monta Ribbons do Avelino, estou utilizando um outro.
    Peguei algumas funcionalidades do maestro, como o menu de login.
    Mas está dando um erro ao tentar fazer login, quando abre a tela do depurador informa que a váriavel fncCrip não é valida.
    Mas não encontro aonde devo colocá-la.

    'Verificando senha (vbBinaryCompare permite diferenciar letras maiúsculas de minúsculas)
    If StrComp(Me!Senha, fncCrip(.Column(2), 102030), vbBinaryCompare) = 0 Then

    'repassa a identificação do usuário para a variável login
    login.id = .Column(0) 'IdUsuário
    login.Usuario = .Column(1) 'Nome do usuário

    'esconde o formulário login
    Me.visible = False
    ---------------------------------------------------------------------

    Estou disponibilizando meu bd no link abaixo:

    http://we.tl/HMcRvO3TSg

    Já tentei de tudo, mas não consigo rodar essa ribbon.
    Alguém poderia me ajudar?

    Obrigado.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    Problemas para ativar ribbon Empty Re: Problemas para ativar ribbon

    Mensagem  rubenscouto 7/10/2015, 15:02

    Procure no Arquivo Maestro do mestre avelino por esta função. Ela está faltando no seu banco de dados, por isto que está dando erro.
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    Problemas para ativar ribbon Empty Re: Problemas para ativar ribbon

    Mensagem  rubenscouto 7/10/2015, 15:05

    Encontrei dois erros no seu arquivo: o primeiro é o modulo de vinculação que não está vinculando todas as tabelas e o outro é o comando do botão Cancelar do form login que não está habilitado. Corriga estes erros para que o arquivo funcione corretamente.
    avatar
    diegoamaral91
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 20/08/2015

    Problemas para ativar ribbon Empty Re: Problemas para ativar ribbon

    Mensagem  diegoamaral91 7/10/2015, 16:01

    Muito obrigado rubens.

    Eu coloquei o módulo de vinculação que estava faltando e ativei o botão cancelar.
    Mas agora está dando outro erro..

    No módulo que carrega a Ribbon existe a declaração abaixo:

    Public gobjRibbon As IRibbonUI

    Public bolEnabled As Boolean    ' Used in Callback "getEnabled"
                                              ' Further informations in Callback "getEnabled"
                                              ' Fuer Callback "getEnabled"
                                              ' Genauere Informationen in Callback "getEnabled".
                                 
    Public bolVisible As Boolean    ' Used in Callback "getVisible"
                                            ' More information in Callback "getVisible
                                            ' Fuer Callback "getVisible"
                                            ' Further informations in Callback "getVisible

    ' Callbacks:

    Sub OnRibbonLoad(ribbon As IRibbonUI)
       ' Callbackname in XML File "onLoad"

       Set gobjRibbon = ribbon
    End Sub

    Quando vai carregar a ribbon da um erro na linha Public gobjRibbon As IRibbonUI
    Erro: O tipo definido pelo usuário não foi definido.

    E não executa a macro OnRibbonLoad

    Saberia me dizer o que pode ser?
    avatar
    diegoamaral91
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 20/08/2015

    Problemas para ativar ribbon Empty Re: Problemas para ativar ribbon

    Mensagem  diegoamaral91 7/10/2015, 20:26

    Abaixo está o link para baixar o bd:

    http://we.tl/CJloY0Cr4x

    Desde já agradeço pela ajuda pessoal.

    Conteúdo patrocinado


    Problemas para ativar ribbon Empty Re: Problemas para ativar ribbon

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:37