Login Simples com Ribbon não funciona.

Moderador: Avelino Sampaio

pcmilk
Mensagens: 31
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: 1868
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: 31
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: 31
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.



Voltar para “Ribbons”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes