Function GETtagVal(TagName As String) As Variant
'Return value of a RsView TagDB TAG. (Without leaving pointers in memory!)
Dim MyTag As Tag
On Error GoTo ErrHandler
Set MyTag = gTagDb.GetTag(TagName)
GETtagVal = MyTag.Value
Set MyTag = Nothing
Exit Function
ErrHandler:
gActivity.Log "VBFunc:GETtagVal(" & TagName & ") - " & Err.Number & " " & Err.Description, roActivityError
Err.Clear
End Function
Sub SETtagVal(TagName As Variant, Val As Variant)
'Set on RsView TagDB TAG <TagName> value of VAL. (Without leaving pointers in memory!)
Dim MyTag As Tag, sMsg As String
On Error GoTo ErrHandler
Set MyTag = gTagDb.GetTag(TagName)
MyTag.Value = Val
Set MyTag = Nothing
Exit Sub
ErrHandler:
sMsg = "VBSub:SETtagVal(" & TagName & ", """
If IsNumeric(Val) Then _
sMsg = sMsg & str(Val) & """) - " & str(Err.Number) & Err.Description _
Else sMsg = sMsg & Val & """) - " & str(Err.Number) & Err.Description
gActivity.Log sMsg, roActivityError
Err.Clear
End Sub