Access 2007 retrieve current User and show their Ribbon

[fcarboni]

Ciao,
I whant to show one ribbon for any user level.
Into attach file I use a UserTable to test different user/level.
I retrive this error: Error 438"Object Doesn't Support This Property or Method" ...
I's not possible that I want to do, or my code is wrong.
Thank for any help.

Fabrizio

 

[TJPoorman]

Just to understand a little better, are you referring to the actual ribbon at the top of the access program, or are you referring to a tab control?

 

[fcarboni]

Hi,
actual ribbon at the top of the access program.
If you saw my example, I've only one ribbon with some tab...,
because not all guy can see all function, I want to show / hide this tabs at user level.
example: User1 show Tab1, Tab3 and Tab5; User2 show Tab2 and Tab4.
For this I've one UserTable.
When the ribbon Load I want define that tabs show/hide from a qry:

Public Sub GetVisible(control As IRibbonControl, ByRef visible)
Dim MyDb As DAO.Database
Dim myrec As DAO.Recordset
Set MyDb = CurrentDb
Set myrec = MyDb.OpenRecordset("Q_User") 
While Not myrec.EOF
    myrec!TabName = myrec!TabValue 
    myrec.MoveNext
Wend
Set MyDb = Nothing
Set myrec = Nothing
End Sub

But I'm not able to make it work.
tank.
Fabrizio