vb script error on Line 13 "Object Required"

Anything VBScript-related, including Windows Script Host, WMI, ADSI, and more.
Forum rules
Do not post any licensing information in this forum.

Any code longer than three lines should be added as code using the 'Select Code' dropdown menu or attached as a file.
Posts: 1
Last visit: Wed Mar 29, 2023 4:53 am

vb script error on Line 13 "Object Required"

Post by cantoniou »

Dim pdV, pdC

' Property IDs on the Vessel object
pdV = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.Vessel")

' The Company property
Dim Compan: Set Compan = CreateObject("MFilesApi.Lookup")
pdC = Vault.PropertyDefOperations.GetPropertyDefIDByAlias("PD.CompanyDocumentCompany")
Set Compan = PropertyValues.SearchForProperty(pdC).TypedValue.GetValueAsLookup()

' Get the ObjID of the company object
Dim ObjIDCompany: Set ObjIDCompany = CreateObject("MFilesAPI.ObjID")
ObjIDCompany.ID = Compan.Item
ObjIDCompany.Type = Compan.ObjectType

' Get the ObjVer of the object
Dim OVCompany : Set OVCompany = CreateObject("MFilesApi.ObjVer")
Set OVCompany = Vault.ObjectOperations.GetLatestObjVer(ObjIDCompany, True)

' Get the property value of the TM property of the vessel
Dim TMPVVessel : Set TMPVVessel = CreateObject("MFilesApi.PropertyValue")
Set TMPVVessel = Vault.ObjectPropertyOperations.GetProperty(OVCompany,pdV)

output.SetValueToLookup TMPVVessel.Value.GetValueAsLookup()
User avatar
Alexander Riedel
Posts: 8279
Last visit: Sun May 28, 2023 9:24 am
Answers: 14
Been upvoted: 30 times

Re: vb script error on Line 13 "Object Required"

Post by Alexander Riedel »

You set Compan here:
Set Compan = PropertyValues.SearchForProperty(pdC).TypedValue.GetValueAsLookup()
But you do not check if the statement produces a result that is not null.
Alexander Riedel
SAPIEN Technologies, Inc.