Login Simples com Ribbon não funciona.

Moderador: Avelino Sampaio

pcmilk
Mensagens: 33
Registrado em: 30 Dez 2016, 09:43
Localização: Rio de Janeiro

Login Simples com Ribbon não funciona.

Mensagempor pcmilk » 10 Abr 2018, 17:49

Boa tarde.
EStou usando o Login Simples com Ribbon e está dando a seguinte mensagem de erro:

Tela de Erro.jpg


O que pode ser?
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Login Simples com Ribbon não funciona.

Mensagempor Avelino Sampaio » 11 Abr 2018, 17:06

pcmilk,

qual é a versão do seu Access ? Isso foi depois de alguma alteração ? Por gentileza, ofereça mais detalhes.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

pcmilk
Mensagens: 33
Registrado em: 30 Dez 2016, 09:43
Localização: Rio de Janeiro

Re: Login Simples com Ribbon não funciona.

Mensagempor pcmilk » 11 Abr 2018, 18:09

Boa tarde, Avelino.

Fiz algumas modificações no código, mas nada que dê impacto no seu funcionamento. Aproveitei toda a estrutura do seu Login Simples com Ribbon; funcionando tudo da mesma forma.

A versão do meu Office é: 2013 ou 2016 (se não me engano; estou fora de casa...) de 64 bits! Rodando no Windows 10 Pro.

pcmilk
Mensagens: 33
Registrado em: 30 Dez 2016, 09:43
Localização: Rio de Janeiro

Re: Login Simples com Ribbon não funciona.

Mensagempor pcmilk » 13 Abr 2018, 12:45

Códigos do Form Login:

Código: Selecionar todos

Option Compare Database

Private Sub btOk_Click()
    If IsNull(Me!cboUsuario) And IsNull(Me!txtSenha) Then Exit Sub
    If DCount("*", "tblUsuarios", "[IdUsuario] & [senha] = """ & Me!cboUsuario.Column(0) & Me!txtSenha & """") = 0 Then
        MsgBox "Usuário ou senha incorretos...", vbInformation, "Aviso"
        Exit Sub
    End If
    TempVars!IdUsuario = Me!cboUsuario.Column(0)
    TempVars!Usuario = Me!cboUsuario.Column(1)
    DoCmd.ShowToolbar "ribbon", acToolbarYes
    objRibbon.Invalidate
    DoCmd.Close acDefault
End Sub

Private Sub btSair_Click()
    DoCmd.Quit acQuitSaveAll
End Sub

Private Sub Form_Load()
    DoCmd.ShowToolbar "ribbon", acToolbarNo
End Sub


Código do Mod_GetRibbon:

Código: Selecionar todos

'FUNÇÃO QUE CONTROLA A VISIBILIDADE DOS CONTROLES CONFORME O USUÁRIO LOGADO:
Public Sub fncGetVisible(control As IRibbonControl, ByRef visible)
On Error GoTo fError
Select Case control.Id
    Case "btAbrirChamado", "btBackEnd", "btlogoff", "btbackup", "btusuario", "btInfo", "btMidias", "btNovidades", "btContatos", "btSair"
        visible = Nz(DLookup(control.Id, "tblusuarios", "idusuario = " & Nz(TempVars!IdUsuario, 0)), 0)
    Case Else
        visible = True
End Select
fError_Exit:
    Exit Sub
fError:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Warning", Err.HelpFile, Err.HelpContext
    Resume fError_Exit:
End Sub

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


pcmilk
Mensagens: 33
Registrado em: 30 Dez 2016, 09:43
Localização: Rio de Janeiro

Re: Login Simples com Ribbon não funciona.

Mensagempor pcmilk » 22 Abr 2018, 00:03

Esse é o código do Módulo Ribbon:

Está dando erro na seguinte linha: Public objRibbon As IRibbonUI (Objeto não referenciado)

Código: Selecionar todos

Option Compare Database
Public objRibbon As IRibbonUI

Public Sub fncRibbon(ribbon As IRibbonUI)
On Error Resume Next
Set objRibbon = ribbon
End Sub

Public Sub fncOnAction(control As IRibbonControl)
On Error GoTo fError
Select Case control.id

    Case "btAbrirChamado"
        DoCmd.OpenForm "FrmDeSolicitacaoFrontEnd", acNormal
       
    Case "btBackEnd"
        DoCmd.OpenForm "FrmSolicitacoes", acNormal
           
    Case "btlogoff"
        'Chamar
       
    Case "btbackup"
        'Chamar
       
    Case "btusuario"
        DoCmd.OpenForm "FrmCadastroPermissoes", , , , acFormAdd
       
    Case "btInfo"
        DoCmd.OpenForm "FrmInfoSis", acNormal
       
    Case "btMidias"
        DoCmd.OpenForm "FrmMidias", acNormal
       
    Case "btNovidades"
        DoCmd.OpenForm "FrmNovidades", acNormal
       
    Case "btContatos"
        DoCmd.OpenForm "FrmContatos", acNormal
       
    Case "btSair"
        DoCmd.Quit acQuitSaveAll
           
    Case Else
        MsgBox "Clicou no botão : " & control.id, vbInformation, "Warning"
End Select
fError_Exit:
    Exit Sub
fError:
    MsgBox "Error: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Warning", Err.HelpFile, Err.HelpContext
    Resume fError_Exit:
End Sub

Public Function fncInvalidate()
objRibbon.Invalidate
End Function

Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Login Simples com Ribbon não funciona.

Mensagempor Avelino Sampaio » 22 Abr 2018, 07:43

pcmilk,

verifique se a seguinte referência está marcada:

MICROSOFT OFFICE 16.0 OBJECT LIBRARY (VERSÃO 2016)

Ou

MICROSOFT OFFICE 15.0 OBJECT LIBRARY (VERSÃO 2013)

O meu arquivo exemplo funciona, sem as suas alterações ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

pcmilk
Mensagens: 33
Registrado em: 30 Dez 2016, 09:43
Localização: Rio de Janeiro

Re: Login Simples com Ribbon não funciona.

Mensagempor pcmilk » 22 Abr 2018, 15:15

Bom dia Avelino.

A Biblioteca MICROSOFT OFFICE 15.0 OBJECT LIBRARY (VERSÃO 2013) está marcada e o Office é de X64.

Sem as minhas alterações, funciona.

Avatar do usuário
Avelino Sampaio
Mensagens: 1897
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Login Simples com Ribbon não funciona.

Mensagempor Avelino Sampaio » 22 Abr 2018, 16:46

pcmilk

- abra o VBA
- no menu DEPURAR > clique em COMPILAR. Se houver erro corrija

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Ribbons”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante