composing views

I am trying to compose the views using the .NET library in VBA but having issues as I believe it is just a syntax issue, which I can't figure this part out

          ' TODO: To increase efficiency, comment out any unused DB links.
            Dim mDBLinkCmpRW As ACCPAC_Advantage.DBLink ' accpaccomapi.Accpacdblink
            Set mDBLinkCmpRW = mSession.OpenDBLink(DBLinkType_Company, DBLinkFlags_ReadWrite) ' OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
       
       
            Dim GLPOST2 As ACCPAC_Advantage.View
            Dim GLPOST2Fields As ACCPAC_Advantage.ViewFields
            Set GLPOST2 = mDBLinkCmpRW.OpenView("GL0030")
            Set GLPOST2Fields = GLPOST2.Fields
           
           
            Dim GLBATCH3batch As ACCPAC_Advantage.View
            Dim GLBATCH3batchFields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3batch = mDBLinkCmpRW.OpenView("GL0008")
            Set GLBATCH3batchFields = GLBATCH3batch.Fields
           
            Dim GLBATCH3header As ACCPAC_Advantage.View
            Dim GLBATCH3headerFields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3header = mDBLinkCmpRW.OpenView("GL0006")
            Set GLBATCH3headerFields = GLBATCH3header.Fields
           
            Dim GLBATCH3detail1 As ACCPAC_Advantage.View
            Dim GLBATCH3detail1Fields As ACCPAC_Advantage.ViewFields
            Set glbatch3detail = mDBLinkCmpRW.OpenView("GL0010")
            Set GLBATCH3detail1Fields = GLBATCH3detail1.Fields
           
            Dim GLBATCH3detail2 As ACCPAC_Advantage.View
            Dim GLBATCH3detail2Fields As ACCPAC_Advantage.ViewFields
            Set GLBATCH3detail2 = mDBLinkCmpRW.OpenView("GL0402")
            Set GLBATCH3detail2Fields = GLBATCH3detail2.Fields
           
            GLBATCH3batch.Compose GLBATCH3header    <-------- error occurs here.

perhaps I am not getting I but I thought I don't need to use the COMAPI for this to work in VBA.

Parents Reply Children
No Data