MaterialLabel Property
Returns or sets the label for a material resource. Read/write String.
Remarks
The MaterialLabel property does not return any meaningful information for non-material resources, such as people or machines. Setting a value returns a trappable error (error code 1101) when applied to non-material resources.
Example
This example goes through the list of resources in the current project and sets the material label for all material resources to "pallet." (The error trapping in this example is only to illustrate how you might handle an expected exception. In a real-life example, you would probably include a test like
If InStr(R.Name, "bricks") <> 0 Then...
to ensure that you only assigned the material label to paving bricks, red bricks, and so on.)
Sub FixLabels()
Dim R As Resource
On Error GoTo ErrTrap:
For Each R In ActiveProject.Resources
If R.MaterialLabel <> "pallet" Then R.MaterialLabel = "pallet"
Next R
Exit Sub
ErrTrap:
If Err.Number = 1101 Then
Err.Clear
Resume Next
Else
MsgBox Err.Description, vbExclamation, "Error"
End If
End Sub
Applies to | Resource Object, Resources Collection Object
See Also | FixedMaterialAssignment Property | ResourceType Property