Página 1 de 1

Login Simples com Ribbon não funciona.

Enviado: 10 Abr 2018, 17:49
por pcmilk
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?

Re: Login Simples com Ribbon não funciona.

Enviado: 11 Abr 2018, 17:06
por Avelino Sampaio
pcmilk,

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

Aguardamos

Re: Login Simples com Ribbon não funciona.

Enviado: 11 Abr 2018, 18:09
por pcmilk
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.

Re: Login Simples com Ribbon não funciona.

Enviado: 13 Abr 2018, 12:45
por pcmilk
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

Re: Login Simples com Ribbon não funciona.

Enviado: 22 Abr 2018, 00:03
por pcmilk
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

Re: Login Simples com Ribbon não funciona.

Enviado: 22 Abr 2018, 07:43
por Avelino Sampaio
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

Re: Login Simples com Ribbon não funciona.

Enviado: 22 Abr 2018, 15:15
por pcmilk
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.

Re: Login Simples com Ribbon não funciona.

Enviado: 22 Abr 2018, 16:46
por Avelino Sampaio
pcmilk

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

Aguardamos