Having an error on my VBA "Class does not support Automation or does not support expected interface" when assigning
Set dsGLJEH = AccpacGL2100UICtrl1.UIDSControls("dsGLJEH")
On "OnUIAppOpened()"
Public WithEvents dsGLJEH As ACCPACDSControl Private Sub AccpacGL2100UICtrl1_OnUIAppOpened() On Error GoTo H_ERROR Set dsGLJEH = AccpacGL2100UICtrl1.UIDSControls("dsGLJEH") Exit Sub H_ERROR: MsgBox "ERR~~AccpacGL2100UICtrl1_OnUIAppOpened " & Err.Description Debug.Print Err.Description End Sub