ACC: Form and Report Modules Are Public by Default (95/97)

MORE INFORMATION

1. Create a new database called ScopeTest.
2. Create the following new form not based on any table or query and name it Form1. Add the following command button to the form:

         Command button
         --------------
         Name: Command0
         Caption: Form1_SayHi
         OnClick: =Form1_SayHi()

3. On the View menu, click Code to display the form's module. Type the following line in the module's Declarations section:

   Public Form1Var as string

4. Type the following function:

         Function Form1_SayHi()
            Form1Var = "Hi!"
            MsgBox Form1Var
         End Function
   						

5. Create the following new form, not based on any table or query, and call it Form2. Place the following command button on the form:

         Command button:
            Name: Command0
            Caption: Form1_SayHi
            OnClick: [Event Procedure]
   						

   Enter the following code in the event procedure for the OnClick property:

           [Form_Form1].Form1_SayHi
   						

   Create another command button on the Form2 form:

            Name: Command1
            Caption: Form2_ShowVar
            OnClick: =Form2_ShowVar()

6. On the View menu, click Code to display the form's module. Type the following function in the module:

         Function Form2_ShowVar()
            MsgBox Form_Form1.Form1Var
         End Function
   						

7. Close the module. Close form Form2.
8. Open form Form1 in Form view. Click the command button on Form1. Note that a message box with the text "Hi!" appears. This works because the function is in scope in Form1. Close form Form1.
9. Open form Form2. Click the command buttons on Form2. Note that the same message box appears because the function and the variable are both still in scope for Form2. Note also that Form1 does not have to be open in order for these references to work.