控制加载自定义功能区

zhuyiwen

下载：

游客，如果您要查看本帖隐藏内容请回复

在 理解uSysRibbons用户自定义功能区数据表 中，uSysRibbons 是存储的数据库打开时 自动 加载的功能区定义，即，自定义的功能区在数据库一打开的时候就加载，且在数据库打开后，自定义功能区也不重新加载，就这么一次加载机会，没有控制的机会。这就很不爽了！那么如何控制想要加载的功能区呢？

Access 2007 以上版本提供了 Application.LoadCustomUI 加载代表自定义功能区的 XML 的方法。

那么我们要怎么做呢？

1、首先，就是要不让其自动加载，办法是不让数据库中存在 uSysRibbons 表。将 uSysRibbons 改名，本例中改为 uSysRibbonsAdmin。
操作步骤：
按 Alt+F11 键，进入 VBA 编辑器，按 Ctrl+G 打开立即窗口，执行如下命令：

1. DoCmd.Rename "uSysRibbonsAdmin", acTable, "uSysRibbons"

复制代码

另外再多复制一份为 uSysRibbonsUser：

1. DoCmd.CopyObject , "uSysRibbonsUser", acTable, "uSysRibbonsAdmin"

复制代码

说明：uSysRibbonsAdmin 针对 Admin 登录用户，uSysRibbonsUser 针对 User 登录用户。两个不同用户分别使用息的自定义功能区。


打开 uSysRibbonsAdmin 表。

1. DoCmd.OpenTable "uSysRibbonsAdmin"

复制代码

将 RibbonName 字段为 “main” 行中的 RibbonXML 字段中的 “<ribbon startFromScratch="true">” 改为 “<ribbon startFromScratch="false">”，以示两个不同用户加载的自定义功能区的区别。

2、编写一段加载指定数据表中的存储自定义功能区的代码。
在 VBA 项目中，插入一个模块，将其命名为“modRibbon”，在该模块中插入“LoadRibbonsFromTable”函数。

1. Public Function LoadRibbonsFromTable(ribbonTableName As String)
   
2.     Dim i As Integer
   
3.     Dim db As DAO.Database
   
4.     Set db = Application.CurrentDb
   
5.       
   
6.     For i = 0 To (db.TableDefs.Count - 1)
   
7.         If db.TableDefs(i).Name = ribbonTableName Then ' 匹配指定的数据表
   
8.           Dim rs As DAO.Recordset
   
9.           Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)
   
10.           rs.MoveFirst
    
11.    
    
12.           Do While Not rs.EOF
    
13.                 Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value
    
14.                 rs.MoveNext
    
15.           Loop
    
16.    
    
17.           rs.Close
    
18.           Set rs = Nothing
    
19.        End If
    
20.     Next i
    
21.    
    
22.     db.Close
    
23.     Set db = Nothing
    
24. End Function

复制代码

zhuyiwen

3、新建自动运行宏 Autoexec，使其在打开数据库时自动执行，以对话框方式打开 frmWelcome 窗体。



4、修改 frmWelcome 代码，使其根据登录用户加载不同的自定义功能区：

1. Private Sub cmdClose_Click()
   
2.     DoCmd.Close acForm, Me.Name, acSaveNo
   
3.     DoCmd.ShowToolbar "Ribbon", acToolbarYes
   
4. 
   
5.     DoCmd.Quit
   
6. End Sub
   
7. 
   
8. Private Sub cmdLogin_Click()
   
9.     If cboUser = "Admin" Then
   
10.         LoadRibbonsFromTable "uSysRibbonsAdmin"
    
11.         DoCmd.Close acForm, Me.Name, acSaveNo
    
12.         DoCmd.ShowToolbar "Ribbon", acToolbarYes
    
13.     ElseIf cboUser = "User" Then
    
14.         LoadRibbonsFromTable "uSysRibbonsUser"
    
15.         DoCmd.Close acForm, Me.Name, acSaveNo
    
16.         DoCmd.ShowToolbar "Ribbon", acToolbarYes
    
17.     End If
    
18. End Sub
    
19. 
    
20. Private Sub Form_Load()
    
21.     DoCmd.ShowToolbar "Ribbon", acToolbarNo
    
22.     txtPwd = "-- 输入登录密码 --"
    
23. End Sub

复制代码

tmtony

最近朱总佳作不断！

zhuyiwen

简单自定义功能区，从生成XML->自动加载->程序控制，相对比较完整，至此，一个小系列已完成。

至于如何做得更好，敬请各位自由发挥。

c101

谢谢分享，收藏了

ardu95

小白一个，学习学习

灰太郎

111111111111111

fan0217

拜读朱总佳作

XMX64311

谢谢老师分享

wj3031

控制加载自定义功能区，这个好