SHARE
TWEET

Master

a guest Jul 19th, 2019 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Option Explicit
  2.  
  3. Public Type MasterTags
  4.     RcpID As Tag
  5.     RcpGrade As Tag
  6.     RcpRough As Tag
  7.     RcpFinish As Tag
  8.     RcpDsc As Tag
  9.     RcpDate As Tag
  10. End Type
  11.  
  12. Function AddMasterTag()
  13. Dim strFolder As String
  14. strFolder = "RCP\"
  15.  
  16. With ThisDisplay.MyTagGroup
  17.  
  18.     .Add ("{" & strFolder & "RcpID_SP}")
  19.     .Add ("{" & strFolder & "RcpGrade_SP}")
  20.     .Add ("{" & strFolder & "RcpRough_SP}")
  21.     .Add ("{" & strFolder & "RcpFinish_SP}")
  22.     .Add ("{" & strFolder & "RcpDsc_SP}")
  23.     .Add ("{" & strFolder & "RcpDate_SP}")
  24.  
  25. End With
  26.    
  27. End Function
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top