Creating only one menu that has two states

[Waubain]

A new responsibily assigned is to oversee all the projects our department. Nothing formal in the past. I created a Access db with a main menu that links to forms and predeveloped reports. Users wanted to be able to see only their information as well as globally. I created a button on the menu to "personalize" their menu. This opened a form where they choose their name from a combobox. This action set a temporary variable with their name[UserName] and opened a second identical menu to the main menu. All further queries and reports used the temp var as the query. In the corner of their personalize menu was a button that stated "globalize". This removed the temp var and opend the original Main Menu. This works, but I have two identical menus, queries,etc and as I expand I do double work.
My question is how could this be done with only one menu, etc? I would like the globalize/personalize button (btnStatus) to change captions and state when clicked. I arrived at the below by logic only and no knowledge was involved. The problem with being a absolute beginner is you don't know what you don't know.

Sorry I mixed the little code I know wth English

 
MainMenu (OnLoad) loads in global state
btnStatus.caption = Personalized.
btnStatus OnClick
Opens ChooseNameForm    ‘employee picks name from combobox [cboSelectName]
 In combobox AfterUpdate property  
 start macro Action: SetTempVar   Argument: UserName,    [Screen].[ActiveControl].[Value]
 btnOK (onClick) go back to mainmenu
 change btnStatus.caption = Globalize
Now if they clicked the button again the reverse would happen and the TempVar UserName would be removed. 
How would this change my queries? Currently "EmployeeName"=[TempVars]![UserName] in the personalized queries and the Criteria is left blank in the second globalize query.

Any help would be much appreciated.

[orange]

I have not looked at your material in detail. Here are a few things that you might consider.
A variable with data type Boolean has only 2 states - Yes/No, On/Off...
So if you need something with only 2 states, it would seem that a Boolean variable to control some logic would be a good start.

The other thing about a Boolean variable is that to change it froom its current state to the other state you can say

myBoolVar = Not myBoolVar which basically says, whatever myBoolVar is, make it the other. And each time through this assignment it will "flip" the value.

Good luck with your project.

I don't have acc2007, and I haven't worked much with macros.

[Waubain]

I was able to get this to work. Unfortunately the queries as suspected all broke...new thread.

 
Option Compare Database
Option Explicit
Dim blnOnButtonClicked As Boolean
Private Sub btnToggle_Click()
On Error GoTo Error_Routine
If Me.btnToggle.Caption = "Personalize" Then
    Me.btnToggle.Caption = "Globalize"
    blnOnButtonClicked = True
    DoCmd.OpenForm "WhoAmI"
ElseIf Me.btnToggle.Caption = "Globalize" Then
    Me.btnToggle.Caption = "Personalize"
    blnOnButtonClicked = False
    DoCmd.RunMacro "Globalize"
End If
Exit_Continue:
    Exit Sub
Error_Routine:
    MsgBox "Error# " & Err.Number & " " & Err.Description
    Resume Exit_Continue
End Sub

[orange]

In a separate module put in this code ( Global makes it available when your Form is opened)

Global blnOnButtonClicked As Boolean

In the form's private module

Private Sub btnToggle_Click()
On Error GoTo Error_Routine
Debug.Print "entered Button OnClick - " & "blnOnButtonClicked is now " & blnOnButtonClicked & " " & Now
blnOnButtonClicked = Not blnOnButtonClicked
Debug.Print "blnOnButtonClicked is now " & blnOnButtonClicked & " " & Now
If blnOnButtonClicked = True Then
Me.btnToggle.Caption = "Globalize"
' DoCmd.OpenForm "WhoAmI"
Else
Me.btnToggle.Caption = "Personalize"
' DoCmd.RunMacro "Globalize"
End If
Exit_Continue:
Exit Sub
Error_Routine:
MsgBox "Error# " & Err.number & " " & Err.Description
Resume Exit_Continue
End Sub

and when this form is first opened, set the value
of the boolean flag to True

blnOnButtonClicked = True

Private Sub Form_Open(Cancel As Integer)

blnOnButtonClicked = True
Debug.Print "blnOnButtonClicked is " & blnOnButtonClicked & " form Open " & Now
Me.btnToggle.Caption = "Globalize"
End Sub

I have included some debug.print statements to show the value of certain variables at different points in the process. You can comment these out.

I commented out your macro stuff and a OpenForm. You can adjust as required.