Selecting ACCPAC Company to Log into 1

[Simboti1]

I have written a stand alone VB6 app that picks data from ACCPAC. I have created a form that passes the user name and password to access ACCPAC as follows: -

theSession.Open(txtUSERID, txtPASSWORD, "SAMINC", dNow, 0)

My challenge is How can I have access to the ACCPAC Companies so that the user can scroll and chose which company to log into. In this example I have hard-coded "SAMINC". However, I want it to be dynamic and be chosen by the user

 

[Jay Converse]

Don't bother with your own form, use this snippet and the standard login UI is presented:

Public Session As AccpacSession
Public SessMgr As AccpacSessionMgr
Public lSignonID As Long

lSignonID = 0 ' MUST be initialized to 0 since you don't have a signon ID yet
Set SessMgr = New AccpacSessionMgr
With SessMgr
.AppID = "AS"
.AppVersion = "53A"
.ProgramName = "AS0001"
.ServerName = "" ' empty string if running on local computer
.CreateSession "", lSignonID, Session ' first argument is the object handle (if you don't have one, pass "")
End With ' mSessMgr

 

[Simboti1]

You are a Star tuba2007. Its working.