Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access2007

解决方案: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的程序中进行某种处理。



Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助