控制加載自定義功能區(qū)

zhuyiwen

下載：

游客，如果您要查看本帖隱藏內容請回復

在 理解uSysRibbons用戶自定義功能區(qū)數據表 中，uSysRibbons 是存儲的數據庫打開時 自動 加載的功能區(qū)定義，即，自定義的功能區(qū)在數據庫一打開的時候就加載，且在數據庫打開后，自定義功能區(qū)也不重新加載，就這么一次加載機會，沒有控制的機會。這就很不爽了！那么如何控制想要加載的功能區(qū)呢？

Access 2007 以上版本提供了 Application.LoadCustomUI 加載代表自定義功能區(qū)的 XML 的方法。

那么我們要怎么做呢？

1、首先，就是要不讓其自動加載，辦法是不讓數據庫中存在 uSysRibbons 表。將 uSysRibbons 改名，本例中改為 uSysRibbonsAdmin。
操作步驟：
按 Alt+F11 鍵，進入 VBA 編輯器，按 Ctrl+G 打開立即窗口，執(zhí)行如下命令：

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

復制代碼

另外再多復制一份為 uSysRibbonsUser：

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

復制代碼

說明：uSysRibbonsAdmin 針對 Admin 登錄用戶，uSysRibbonsUser 針對 User 登錄用戶。兩個不同用戶分別使用息的自定義功能區(qū)。


打開 uSysRibbonsAdmin 表。

1. DoCmd.OpenTable "uSysRibbonsAdmin"

復制代碼

將 RibbonName 字段為 “main” 行中的 RibbonXML 字段中的 “<ribbon startFromScratch="true">” 改為 “<ribbon startFromScratch="false">”，以示兩個不同用戶加載的自定義功能區(qū)的區(qū)別。

2、編寫一段加載指定數據表中的存儲自定義功能區(qū)的代碼。
在 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，使其在打開數據庫時自動執(zhí)行，以對話框方式打開 frmWelcome 窗體。



4、修改 frmWelcome 代碼，使其根據登錄用戶加載不同的自定義功能區(qū)：

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

簡單自定義功能區(qū)，從生成XML->自動加載->程序控制，相對比較完整，至此，一個小系列已完成。

至于如何做得更好，敬請各位自由發(fā)揮。

c101

謝謝分享，收藏了

ardu95

小白一個，學習學習

灰太郎

111111111111111

fan0217

拜讀朱總佳作

XMX64311

謝謝老師分享

wj3031

控制加載自定義功能區(qū)，這個好