Accpac Signon UserID

[irenavassilia]

Hi Everyone,

I am creating a function that gets the Accpac User ID.
I cant seem to get it work properly, I am very new to VBA Accpac programming so I'm not sure if its my code that wrong or something else because I dont get any errors:

Here is my code, any help will be greatly appreaciated:

Private Sub Form_Load()
Dim Session As New AccpacSession
Dim SignOn As New AccpacSignonMgr
Dim mSessionMgr As New AccpacSessionManager.AccpacSessionMgr
Dim UserID As String

Set mSessionMgr = New AccpacSessionManager.AccpacSessionMgr
Set Session = New AccpacSession

With mSessionMgr
.ForceNewSignon = False
UserID = Session.UserID
End With

End Sub

The UserId is always null.

Regards,

Irena

 

[Jay Converse]

That's right. It's null until somebody logs in.

 

[irenavassilia]

Right cause its on form load, but even if i put it into a function after i have signed on it still gives me the null value.

 

[Jay Converse]

Try setting your data link, then get it from mdbLinkCMPRW.Session.Userid,

 

[irenavassilia]

This code works for anyone that ever wants to get the UserID
Private Sub Form_Load()
Dim Session As New AccpacSession
Dim Signon As New AccpacSignonMgr
Dim dbCmp As AccpacDBLink
Dim UserID As String
Dim vComp As AccpacView

Session.Init "", "PO", "PO1210", "53B"
UserID = Signon.Signon(Session)

UserID = Session.UserID

End Sub

Regards,

Irena