Forum Discussion

StevenNelson's avatar
StevenNelson
Qrew Member
7 months ago

URL formula to Add Current User to Userlist

I have a table with a userlist, I want to have a button that the current user viewing records can click to add themselves to a userlist field.   Having trouble remembering how I have done it before.
formulas
Denin's avatar
Denin
Qrew Captain
7 months ago

Can use this in a formula URL field to add/remove yourself from a userlist, change the [Users List] to name of your field.

//ADD TO LIST
  var text addtolist=ToText([Users List])&";"&UserToEmail(User())&"";

  //REMOVE FROM LIST
  var text removefromlist= List(";",
  If(Trim(Part(UserListToEmails([Users List]),1,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),1,";")),
  If(Trim(Part(UserListToEmails([Users List]),2,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),2,";")),
  If(Trim(Part(UserListToEmails([Users List]),3,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),3,";")),
  If(Trim(Part(UserListToEmails([Users List]),4,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),4,";")),
  If(Trim(Part(UserListToEmails([Users List]),5,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),5,";")),
  If(Trim(Part(UserListToEmails([Users List]),6,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),6,";")),
  If(Trim(Part(UserListToEmails([Users List]),7,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),7,";")),
  If(Trim(Part(UserListToEmails([Users List]),8,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),8,";")),
  If(Trim(Part(UserListToEmails([Users List]),9,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),9,";")),
  If(Trim(Part(UserListToEmails([Users List]),10,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),10,";")),
  If(Trim(Part(UserListToEmails([Users List]),11,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),11,";")),
  If(Trim(Part(UserListToEmails([Users List]),12,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),12,";")),
  If(Trim(Part(UserListToEmails([Users List]),13,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),13,";")),
  If(Trim(Part(UserListToEmails([Users List]),14,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),14,";")),
  If(Trim(Part(UserListToEmails([Users List]),15,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),15,";")),
  If(Trim(Part(UserListToEmails([Users List]),16,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),16,";")),
  If(Trim(Part(UserListToEmails([Users List]),17,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),17,";")),
  If(Trim(Part(UserListToEmails([Users List]),18,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),18,";")),
  If(Trim(Part(UserListToEmails([Users List]),19,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),19,";")),
  If(Trim(Part(UserListToEmails([Users List]),20,";"))!=Trim(UserToEmail(User())),Part(UserListToEmails([Users List]),20,";")));

  var text addurl = URLRoot()&"db/"&Dbid()&"?a=api_editrecord&rid="&[Record ID#]&"&_fid_24="&$addtolist&"&apptoken=c49npyysfqrjruprdmbbj7s2bk";

  var text removeurl = URLRoot()&"db/"&Dbid()&"?a=api_editrecord&rid="&[Record ID#]&"&_fid_24="&$removefromlist&"&apptoken=c49npyysfqrjruprdmbbj7s2bk";

  If(Contains(UserListToEmails([Users List]),UserToEmail(User())),

  $removeurl & "&rdr=" & URLEncode( URLRoot() & "db/" & Dbid() & "?a=doredirect&z=" & Rurl()),
      
  $addurl & "&rdr=" & URLEncode( URLRoot() & "db/" & Dbid() & "?a=doredirect&z=" & Rurl()))