access2010ADP中该怎样调用自定义Ribbon!

XMX64311

我做了个登录窗体，登录成功后打开“主窗体”界面，并在主窗体的OPEN事件中增加了对自定义Ribbon的调用,可自定义Ribbon就出不来，不知道为什么？

tmtony

要把程序传上来才好分析哦

XMX64311

我传不上来，我把代码传上来请你看看，是以前一个老师的例子，我在ADP中总是不能调用，在access2010是好的，转成ADP就不行了！

1.模块：Ribbonloader
Sub loadRibbons()

    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, "USysRibbons")) 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

2.表：USysRibbons
lngID        RibbonName        RibbonXml
3        AppRibbon        "<customUI xmlns=""http://schemas.microsoft.com/office/2006/01/customui"">
<ribbon startFromScratch=""true"">
<tabs>
<tab id=""dbCustomTab"" label=""信息中心"" visible=""true"">
<group id=""dbCustomGroup"" label=""自定义组"">
<control idMso=""Paste"" label=""内置粘贴"" enabled=""true""/>
</group>
</tab>
</tabs>
</ribbon>
</customUI>"

3.窗体：mainform
Private Sub Form_Open(Cancel As Integer)

loadRibbons

End Sub

zhuyiwen

ADP 不支持DAO，因此没有 CurrentDb

XMX64311

谢谢了

zhuyiwen

这段程序应改为ADO访问：

1. Sub loadRibbons()
   
2.     Dim i As Integer
   
3.     Dim rs As ADODB.Recordset
   
4. 
   
5.     Set rs = CurrentProject.Connection.Execute("SELECT * FROM dbo.USysRibbons")
   
6.     Do While Not rs.EOF
   
7.         Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value
   
8.         rs.MoveNext
   
9.     Loop
   
10.     rs.Close
    
11.     Set rs = Nothing
    
12. End Sub

复制代码