Hi,
I developed a macro to add attributes to devices but it is not working with
formula attribute.
Is there a solution?
Sub sbCheckAndAddAttr(oDev As ObjectItem, attrID As Long, stTap As String)
On Error GoTo errorHandler
Call oDev.
Attributes.Add(attrID)
If stTap <> "" Then
Call oDev.
Attributes.AddAttributeToMask(attrID, stTap)
End If
ExitHanlder:
Exit Sub
errorHandler:
End Sub