Underlig fejl i Access 2010 på Windows XP
Jeg bruger nedenstående funktion til at læse oplysninger om de ribbons jeg bruger i mine Access applikationer ind fra en tabel.Det virker fint i nedenstående tilfælde:
Access 2007 - Windows XP
Access 2007 - Windows 7
Access 2010 - Windows 7
Men Access 2010 - Windows XP giver en fejl
430: Class does not support Automation or does not support expected interface
Hvad i alverden betyder det?
Public Function fhpRibbon_Load_All() As Integer
' -----------------------------------------------------------------------------------
' Purpose : Load all ribbons from local_Ribbon_XML
' Called from :
' Returns : Integer
' Parameters :
' Remarks :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpRibbon_Load_All
Dim rst As New ADODB.Recordset
strSQL = "SELECT fldRibbon_Name, fldRibbon_XML FROM " & conTable_Ribbon_XML
rst.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockOptimistic
While Not rst.EOF
Application.LoadCustomUI rst("fldRibbon_Name").Value, rst("fldRibbon_XML").Value
rst.MoveNext
Wend
rst.Close
Set rst = Nothing
Exit_fhpRibbon_Load_All:
Exit Function
Error_fhpRibbon_Load_All:
fhpRibbon_Load_All = -32768
Select Case Err.Number
Case 32609
Case 3021
Case 2501
Case Is < 0
Case Else
MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in function 'fhpRibbon_Load_All'"
fhpError_Display "modRibbonSystem", "fhpRibbon_Load_All"
End Select
Resume Exit_fhpRibbon_Load_All
End Function
