更改打开

Question

上下文 我有一个Access数据库应用程序，它是在Access 2k中构建的。我有一个我正在玩的自定义功能区，我也有一些用户＆＃34;安全＆＃34;在这个程序中。

当报告打开时，我想检查用户名并切换到特定用户的其他功能区。我认为这段代码可行：

守则：

 

If GetUserName() = "admin" Then
    Me.Report.RibbonName = "CustomPrintPreview"
Else
    Me.Report.RibbonName = "MSToolbar1"
End If

问题： 此代码似乎已执行（并且它没有执行On Error Resume Next）。但是，当打开事件结束时，报告将打开，没有数据（应该有数据时）。如果我删除这个if块，除了设置正确的色带外它运行正常。我应该提一下，如果我手动设置报告的RibbonName属性，两条丝带都可以正常工作，所以丝带本身不是问题。

我目前正在使用Access 2007，但这也将部署在2010版本中。有谁知道这里发生了什么？