Access 2016：如何在登录屏幕通过时显示自定义功能区选项卡？ （用vba）

Question

我在USysRibbons中创建了一个自定义功能区。它包含一个访客选项卡，以及根据员工角色的其他选项卡。

df=structure(list(Business_Date = structure(c(17108, 17125, 17162, 
17108, 17109, 17115, 17116, 17124, 17151, 17182, 17122, 17122, 
17115, 17117, 17121, 17122, 17125, 17137), class = "Date"), Cust_ID = c("1", 
"1", "1", "2", "2", "2", "2", "2", "2", "2", "3", "3", "4", "4", 
"4", "4", "4", "4"), visit_number = c(1, 2, 3, 1, 2, 3, 4, 5, 
6, 1, 1, 2, 1, 2, 3, 4, 5, 6)), .Names = c("Business_Date", "Cust_ID", 
"visit_number"), row.names = c(NA, -18L), class = "data.frame")


df['cycle']=df$visit_number%/%6+1 
df
   Business_Date Cust_ID visit_number cycle
1     2016-11-03       1            1     1
2     2016-11-20       1            2     1
3     2016-12-27       1            3     1
4     2016-11-03       2            1     1
5     2016-11-04       2            2     1
6     2016-11-10       2            3     1
7     2016-11-11       2            4     1
8     2016-11-19       2            5     1
9     2016-12-16       2            6     2
10    2017-01-16       2            1     1
11    2016-11-17       3            1     1
12    2016-11-17       3            2     1
13    2016-11-10       4            1     1
14    2016-11-12       4            2     1
15    2016-11-16       4            3     1
16    2016-11-17       4            4     1
17    2016-11-20       4            5     1
18    2016-12-02       4            6     2

回调＆＃34; RibbonGetVisible＆＃34;将所有标签设置为visible =＆＃34; false＆＃34;当应用程序启动时。

<customUI onLoad="OnRibbonLoad" xmlns="http://schemas.microsoft.com/office/2009/07/customui" >
    <ribbon startFromScratch="true" >
        <tabs>
            <tab id="Guest" label="Guest User">
            </tab>
            <tab id="PM" label="Project Manager" getVisible="RibbonGetVisible" tag="PM">
            </tab>
            <tab id="SE" label="System Engineer" getVisible="RibbonGetVisible" tag="SE">
            </tab>
            <tab id="DE" label="Design Engineer" getVisible="RibbonGetVisible" tag="DE">
            </tab>
            </tabs>
    </ribbon>
</customUI>

我无法在回调函数中使用断点停止代码，但我注意到Debug.Prints在我的登录屏幕之前触发了回调。

我的两个问题：

• 如果用户通过登录屏幕，我会调用sub。在这个子目录中，我列出了用户的角​​色，现在我想转换可见的相应标签。我该怎么办？
• 稍后，我将拆分数据库。 USysRibbons是一个桌子，因此是后端的一部分，而带子是前端的一部分。不同的用户是否可以仅显示其选项卡，或者我是否需要在USysRibbons中创建多个功能区？每个用户可以拥有零个，一个或多个角色，每个角色都有一个选项卡。我宁愿只管理一个功能区以避免复杂性。

提前致谢。