ACC: Sample Function to Determine Current Page of a Form

MORE INFORMATION

1. Open the sample database Northwind.mdb (or NWIND.MDB in Microsoft Access 1.x and 2.0).
2. Open the Employees(page break) form in Design view (or Employees form in Microsoft Access 7.0 or earlier).
3. Set the EmployeeID control's OnDblClick property to:

   =WhichPage(Form,[EmployeeID])
   						

   NOTE: In Microsoft Access 1.x and 2.0, there is a space in the Employee ID field name.
   
   NOTE: In Microsoft Access 97 and 7.0, set the Enabled property to Yes and the Locked property to No for the EmployeeID field
4. Set the Address control's OnDblClick property to:

   =WhichPage(Form,[Address])
   						

   Save and then close the form.
5. Create a module and type the following lines in the Declarations section if they are not already there:

   Option Compare Database
   Option Explicit
   					

6. Type the following procedure:

   Function WhichPage (F As Form, MyControl As Control)
   Dim Page, I As Integer
   Dim C As Control
   Page = 1
   
   For I = 1 To F.Count - 1
     Set C = F(I)
     If TypeOf C Is PageBreak Then
        If C.Top < MyControl.Top Then Page = Page + 1
   End If
   Next I
   
   MsgBox "Page= " & Page
   End Function
   					

7. Close the module and save it as Module Test.
8. Open the Employees(page break) form in Form view. Double-click the EmployeeID field, and then the Address field. Note that the function displays the number of the page containing the control.