Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Public Type MasterTags
- RcpID As Tag
- RcpGrade As Tag
- RcpRough As Tag
- RcpFinish As Tag
- RcpDsc As Tag
- RcpDate As Tag
- End Type
- Function AddMasterTag()
- Dim strFolder As String
- strFolder = "RCP\"
- With ThisDisplay.MyTagGroup
- .Add ("{" & strFolder & "RcpID_SP}")
- .Add ("{" & strFolder & "RcpGrade_SP}")
- .Add ("{" & strFolder & "RcpRough_SP}")
- .Add ("{" & strFolder & "RcpFinish_SP}")
- .Add ("{" & strFolder & "RcpDsc_SP}")
- .Add ("{" & strFolder & "RcpDate_SP}")
- End With
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement