Djblois
04-30-2007, 08:46 AM
I have been using an individuals user name to choose which modules they get. However, the way I do it now I am doing an if statement for each users name. I want to change this process to make it easier when new people are hired. I am trying to group them by department and then do an if per department. This is what I have tried:
try 1:
Dim Developer As Variant
Dim CurrentUser As Variant
Developer = Array("Dblois")
If Environ("username") = Developer Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
end if
try 2:
Dim Developer As Variant
Dim CurrentUser As Variant
CurrentUser = Environ("username")
Developer = Array("Dblois")
If CurrentUser = Developer Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
end if
try 3:
Dim Developer As Variant
Dim CurrentUser As Variant
CurrentUser = Environ("username")
Developer = Array("Dblois")
If for each CurrentUser in Developer
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
next
they all install the menuobject no matter what the username is
try 1:
Dim Developer As Variant
Dim CurrentUser As Variant
Developer = Array("Dblois")
If Environ("username") = Developer Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
end if
try 2:
Dim Developer As Variant
Dim CurrentUser As Variant
CurrentUser = Environ("username")
Developer = Array("Dblois")
If CurrentUser = Developer Then
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
end if
try 3:
Dim Developer As Variant
Dim CurrentUser As Variant
CurrentUser = Environ("username")
Developer = Array("Dblois")
If for each CurrentUser in Developer
Set menuItem = menuObject.Controls.Add(Type:=msoControlButton)
menuItem.OnAction = "QuickSalesPersonOrderForm"
menuItem.Caption = "SalesPerson Order Form"
next
they all install the menuobject no matter what the username is