اینم راه لود کردن ریبون خارج از فایل اکسس یعنی فایل xml رو آدرس دهی میکنی و ریبون اجرا میشه
اول طبق عکس ضمیمه یه Tabe میسازید
ADP_EN.JPG
و بعد این فانکشن رو در فایلتون وارد میکنید
کد vb
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 [Ribbons]; "
' [Ribbons] has to be replaced by your table name.
cnn.Open CurrentProject.Connection
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
Do Until rst.EOF
Application.LoadCustomUI _
rst("RibbonName").Value, rst("RibbonXml").Value
rst.MoveNext
Loop
Error1_Exit:
On Error Resume Next
rst.Close
Set rst = Nothing
cnn.Close
Set cnn = 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
بعد یک ماکروباید بسازید با نام Autoexec
بعد در این ماکرو
runcode
LoadRibbons()
پاسخ با نقل قول
نوشته شده توسط AbbasSediqi
