Option Compare Database
Sub 加载功能区()
Dim i As Integer
Dim db As DAO.Database
Set db = Application.CurrentDb
For i = 0 To (db.TableDefs.Count - 1)
If (InStr(1, db.TableDefs(i).Name, "功能区专用")) Then
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)
rs.MoveFirst
While Not rs.EOF
On Error Resume Next
Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End If
Next i
db.Close
Set db = Nothing
End Sub
Sub 消息1(ByVal control As IRibbonControl)
If control.Tag = "1" Then MsgBox ("您单击了消息1" & control.id)
If control.Tag = "2" Then MsgBox ("您单击了消息2" & control.id)
End Sub
