Project 2003 VBA

[SharkTracker]

How can you tell if a resource is local or enterprise within VBA?

 

[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.

 

[SharkTracker]

That will do it. Thanks a lot.

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.

 

[Dale Howard [MVP]]

SharkTracker --

You are more than welcome, my friend!