Office中国论坛/Access中国论坛

标题: adp中可以自定义功能区吗？ [打印本页]

作者: yanzqun 时间: 2011-2-15 09:50
标题: adp中可以自定义功能区吗？
在坛子里逛了几天，终于对ADP,ribbon有了一定的了解，现有一问题比较困惑，adp中可以自定义功能区吗？ ADP中的表是建在sql中的，如果按MDB模式下在SQL中建USysRibbons，则RibbonXml字段，那么长不知如何输入，试过用INSERT语句插入，没有成功，还有，关键是这种方法可行否？各位请赐教。

作者: yanzqun 时间: 2011-2-15 12:56
本帖最后由 yanzqun 于 2011-2-15 13:01 编辑

找到英文版的答案，但没看懂。。:'( http://www.accessribbon.de/en/index.php?Access_-_Ribbons:Load_Ribbons_Into_The_Database:..._Loading_ribbons_using_any_ADP_table

作者: zhuyiwen 时间: 2011-2-15 17:26
ADP 当然可以自定义功能区。

示例如下:
客渡船管理（Access 2007 ADP）界面

作者: yanzqun 时间: 2011-2-21 11:40
结帖：学的那英文网站的，建立如下模块代码，在连接SQL服务器成功后调用本代码。特别谢谢朱老师的实例。
Public Function LoadRibbons()
'Load ribbons into the database
On Error GoTo Error1
Dim strSQL As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
strSQL = "SELECT * FROM UsysRibbon "
' [Ribbons] has to be replaced by your table name.
'cnn.Open CurrentProject.Connection
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rst.EOF
   'Debug.Print rst("RibbonName").Value
   'Debug.Print rst("RibbonXml").Value
      Application.LoadCustomUI _
      rst("RibbonName").Value, rst("RibbonXml").Value
   ' strRibbon = rst("RibbonName").Value
      rst.MoveNext
Loop
rst.Close
Set rst = Nothing
'cnn.Close
Set cnn = Nothing
Error1_Exit:
On Error Resume Next
rst.Close
Set rst = Nothing
' Set db = Nothing
Exit Function
Error1:
Select Case err
      Case 32609
      ' Ribbon already loaded
Case Else
      MsgBox "Error: " & err.Number & vbCrLf & _
            err.Description, vbCritical, _
            "Error", err.HelpFile, err.HelpContext
End Select
Resume Error1_Exit
End Function

file:///C:/Documents%20and%20Settings/杨中群/Application%20Data/Tencent/Users/446268928/QQ/WinTemp/RichOle/%]{8AHLY7HV_]]X`%MBJJE0.jpg

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)