Accpac Runtime Error 13 Type Mismatch

[irenavassilia]

Hi help?
Error at Set dsDet

Code:

Dim WithEvents dsDet As ACCPACDSControl
Dim strManfItem As String
Dim strCompName As String
Private Sub AccpacOE1100UICtrl1_OnUIAppOpened()
MsgBox "Opened"
Set dsDet = AccpacOE1100UICtrl1.UIDSControls("adsOEORDD")
MsgBox "dsDet Set"
strCompName = AccpacOE1100UICtrl1.UISession.CompanyID
MsgBox strCompName
Me.Caption = strCompName & " - " & "O/E Order Entry"
End Sub

Thanks.

 

[jmainland]

Your code is fine. Did you put the AccpacOE1100UICtrl on a form or are you calling it at run time?

 

[irenavassilia]

Hi jmainland,

I put the control on the form.

 

[jmainland]

I copy and pasted your code and it works. Not to sure what it could be. Maybe trying it in a new project.

 

[irenavassilia]

Ok thanks, I'll give that a try

 

[irenavassilia]

Still the same on my Clients computer.. works perfectly fine on mine.

This is a brain teaser..

 

[Jay Converse]

Your client has a different version of that module activated. Or, you need to delete *.EXD on that computer.

 

[irenavassilia]

Figured it out, I'm not sure why this is by evidently the AccpacOE1100.OCX file wasnt registered properly so i re-registered it and it worked.

Thanks for the replies