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

復制代碼