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

zhuyiwen

下載：

游客，如果您要查看本帖隱藏內(nèi)容請(qǐng)回復(fù)

在 理解uSysRibbons用戶自定義功能區(qū)數(shù)據(jù)表 中，uSysRibbons 是存儲(chǔ)的數(shù)據(jù)庫(kù)打開時(shí) 自動(dòng) 加載的功能區(qū)定義，即，自定義的功能區(qū)在數(shù)據(jù)庫(kù)一打開的時(shí)候就加載，且在數(shù)據(jù)庫(kù)打開后，自定義功能區(qū)也不重新加載，就這么一次加載機(jī)會(huì)，沒(méi)有控制的機(jī)會(huì)。這就很不爽了！那么如何控制想要加載的功能區(qū)呢？

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

那么我們要怎么做呢？

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

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

復(fù)制代碼

另外再多復(fù)制一份為 uSysRibbonsUser：

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

復(fù)制代碼

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


打開 uSysRibbonsAdmin 表。

1. DoCmd.OpenTable "uSysRibbonsAdmin"

復(fù)制代碼

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

2、編寫一段加載指定數(shù)據(jù)表中的存儲(chǔ)自定義功能區(qū)的代碼。
在 VBA 項(xiàng)目中，插入一個(gè)模塊，將其命名為“modRibbon”，在該模塊中插入“LoadRibbonsFromTable”函數(shù)。

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 ' 匹配指定的數(shù)據(jù)表
   
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

復(fù)制代碼

zhuyiwen

3、新建自動(dòng)運(yùn)行宏 Autoexec，使其在打開數(shù)據(jù)庫(kù)時(shí)自動(dòng)執(zhí)行，以對(duì)話框方式打開 frmWelcome 窗體。



4、修改 frmWelcome 代碼，使其根據(jù)登錄用戶加載不同的自定義功能區(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

復(fù)制代碼

tmtony

最近朱總佳作不斷！

zhuyiwen

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

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

c101

謝謝分享，收藏了

ardu95

小白一個(gè)，學(xué)習(xí)學(xué)習(xí)

灰太郎

111111111111111

fan0217

拜讀朱總佳作

XMX64311

謝謝老師分享

wj3031

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