Resource.MaterialLabel Property

Returns or sets the label for a material resource. Read/write String.

Syntax

expression.MaterialLabel

expression   A variable that represents a Resource object.

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

Tto 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

See Also

• Resource Object
• Resource Object Members