S
SharkTracker
How can you tell if a resource is local or enterprise within VBA?
D
Dale Howard [MVP]
SharkTracker --
You could use code similar to the following:
Sub Enterprise_Resources()
Dim r As Resource
For Each r In ActiveProject.Resources
If r.EnterpriseUniqueID = -1 Then
MsgBox r.Name & " is local.", vbOKOnly, "Is it enterprise?"
Else: MsgBox r.Name & " is enterprise.", vbOKOnly, "Is it enterprise?"
End If
Next r
End Sub
In the preceding code, you will discover that the Enterprise Unique ID field
equals -1 for all local resources, and is a unique value greater than 0 for
all enterprise resources. Hope this helps.
You could use code similar to the following:
Sub Enterprise_Resources()
Dim r As Resource
For Each r In ActiveProject.Resources
If r.EnterpriseUniqueID = -1 Then
MsgBox r.Name & " is local.", vbOKOnly, "Is it enterprise?"
Else: MsgBox r.Name & " is enterprise.", vbOKOnly, "Is it enterprise?"
End If
Next r
End Sub
In the preceding code, you will discover that the Enterprise Unique ID field
equals -1 for all local resources, and is a unique value greater than 0 for
all enterprise resources. Hope this helps.
S
SharkTracker
That will do it. Thanks a lot.
Dale Howard said:
D
Dale Howard [MVP]
SharkTracker --
You are more than welcome, my friend!
You are more than welcome, my friend!