thread631-1458025
Dear Bluejay07,
I am trying to use your code to access the view finder.
***************************************************
Dim oFind As AccpacFinder.ViewFinder
Set oFind = New AccpacFinder.ViewFinder
oFind.Session = cmSess
oFind.DisplayName = CSCOMPANY.Name
oFind.ViewID = "AR0024"
oFind.ViewOrder = 0
oFind.SearchFieldIDs = Array(1, 2, 3)
oFind.DisplayFieldIDs = Array(1, 2, 3)
oFind.ReturnFieldIDs = Array(1, 2)
oFind.Filter = ""
oFind.Finder
If Not IsEmpty(oFind.ReturnFieldValues) Then
If Len(oFind.ReturnFieldValues(0)) > 0 Then
txtID.text = Trim$(oFind.ReturnFieldValues(0))
End if
End if
Set oFind = Nothing
***************************************************
After defining reference to Sage Accpac Finder 1.0 library I entered this code on command button event. I am facing problem with following lines:
oFind.Session = cmSess
oFind.DisplayName = CSCOMPANY.Name
Plase tell me where to find my session and company name with reference to ACCPAC.
Do I have to define session name??
Please help.
Thanks in advance
Dear Bluejay07,
I am trying to use your code to access the view finder.
***************************************************
Dim oFind As AccpacFinder.ViewFinder
Set oFind = New AccpacFinder.ViewFinder
oFind.Session = cmSess
oFind.DisplayName = CSCOMPANY.Name
oFind.ViewID = "AR0024"
oFind.ViewOrder = 0
oFind.SearchFieldIDs = Array(1, 2, 3)
oFind.DisplayFieldIDs = Array(1, 2, 3)
oFind.ReturnFieldIDs = Array(1, 2)
oFind.Filter = ""
oFind.Finder
If Not IsEmpty(oFind.ReturnFieldValues) Then
If Len(oFind.ReturnFieldValues(0)) > 0 Then
txtID.text = Trim$(oFind.ReturnFieldValues(0))
End if
End if
Set oFind = Nothing
***************************************************
After defining reference to Sage Accpac Finder 1.0 library I entered this code on command button event. I am facing problem with following lines:
oFind.Session = cmSess
oFind.DisplayName = CSCOMPANY.Name
Plase tell me where to find my session and company name with reference to ACCPAC.
Do I have to define session name??
Please help.
Thanks in advance