解决方案:Ribbon提示已被加载的错误

时　间:2008-04-06 12:24:39
作　者:竹笛   ID：8  城市：上海  QQ：2851379730
摘　要:Ribbon提示已被加载一种解决方案
正　文:

一、错误重现：
1.创建一个表usysRibbons,里面有字段ID、RibbonXML、RibbonName
2.填好RibbonXML值，RibbonName值为 UMV
3.在模块中写下面的LoadRibbons函数：
Function LoadRibbons()
'Exit Function
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, "Ribbons")) Then
      Dim rs As DAO.Recordset
      Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name)
      rs.MoveFirst

      While Not rs.EOF
            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 Function
4.建一个宏：autoexec
5.退出ACCESS
6.重新打开ACCESS，提示“UMV已加载，不能再次加载”的错误。

二、解决方案：
    将表名称：usysRibbons改为其它含Ribbons的表名。总体来说是受了微软ACCESS帮助中的误导，因为帮助中说要建一个UsysRibbons表，于是我就建了这个表，而以Usys开头的表，是系统表，可能系统表在启动时会在ACCESS的程序中进行某种处理。