[Resolvido]Duvida no carregamento de uma ribbon

Bom galera sou novo no access e estou com uma duvida.Eu tenho uma Ribbon que queria apenas carrega-la depois do usuario estiver logado ou recarrega-la.Pois se eu clicar antes de conectar o usuario, essa ribbon carrega vazia (pois não tem nenhum usuario logado).

Alguem pode me ajudar ?

Olá

Baixe o aplicativo exemplo Maestro do meu site e leia a questão de número 15 no artigo abaixo:

http://www.usandoaccess.com.br/tutoriais/tuto34.asp?id=1#inicio

Sucesso!

Na hora de habilitar ele não está habilitando eu estou usando o objribbon.InvalidadeControl("nomedaRibbon")
ele ate entra no if pra habilitar porem não habilita.
Estou enviando o codigo caso alguem queira ajudar

Use o INVALIDATE ao inves do INVALIDATECONTROL

No evento do seu formulário de login, coloque algo assim:


If nlogoff = False Then nlogoff = True

'------------------------------------------------------------------
'revalida todos os controles da ribbons que tiverem usando os gets
'------------------------------------------------------------------
objRibbon.Invalidate



Sucesso!

Usei o Invalidade e nada... Será que o problema esta quando eu chamo a sub fncgetValidade?
Private Sub btnLogin_Click()
Dim control As IRibbonControl
If Not verificaLogin(txtLogin, txtSenha) Then
MsgBox "Login ou Senha incorreta!Por Favor,verifique.", vbExclamation, "Login"
txtLogin.SetFocus
Else
strSQL = "SELECT login,senha,tipo FROM tbUsuario WHERE login='" & txtLogin & "' And senha='" & txtSenha & "'"
Set rstUsuario = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
login.nome = rstUsuario.Fields("login")
login.tipo = rstUsuario.Fields("tipo")
'objribbon.InvalidateControl ("guiaGeral")
'objribbon.Invalidate
MsgBox ("Nome :" & login.nome)
MsgBox ("Tipo :" & login.tipo)
objribbon.Invalidate
'objribbon.InvalidateControl ("guiaGeral")
Call fncGetVisible
DoCmd.Close
DoCmd.OpenForm "FPrincipal"
Form_FPrincipal.txtUsuario.Caption = rstUsuario.Fields("login")
Form_FPrincipal.txtTipoUsuario.Caption = rstUsuario.Fields("tipo")
End If
End Sub

Consegui Avelino muito obrigado .
Agora surgiu outro problema hahaha.
Tipo eu tenho um ribbon com um Menu (Usuario) que tem 4 opções para clicar.Porem a função fncgetEnabled so é chamada quando clicamos no menu.Ou seja se não tivermos nenhum menu enabled=true o menu fica travado não podendo assim chamar a função fncGetEnabled

Error:3061
Parametros insuficientes.Eram esperados 1.