ACC: How to Set Focus and Close Instances of Report Objects

MORE INFORMATION

1. Open the sample database Northwind.mdb.
2. Create a new report based on the Products table using the AutoReport: Tabular Wizard, and then save it as Report1.
3. Open the Report1 report in Design view.
4. On the View menu, click Code.
5. Type the following procedures in the report's class module:

         Public Function MySetFocus()
            Dim Result As Long
            Result = SetFocusAPI(Me.hWnd)
         End Function
   
         Public Function MyClose()
            Dim Result As Long
            Result = CloseWindowAPI(Me.hWnd)
         End Function
   					

6. Close the module, and then save and close Report1.
7. Create a module and type the following in the Declarations section:

         Declare Function SetFocusAPI Lib "User32" _
                                          Alias "SetFocus" _
                                          (ByVal hWnd As Long) As Long
   
         Declare Function CloseWindowAPI Lib "User32" _
                                          Alias "DestroyWindow" _
                                          (ByVal hWnd As Long) As Long
   					

8. Type the following procedure:

         Sub ReportInstancesDemo()
            Dim i As Integer
            Dim r(1 To 4) As New Report_Report1
            ' Create instances of the reports
            ' with unique captions.
            For i = LBound(r) To UBound(r)
               r(i).Visible = True
               r(i).Caption = "Report" & CStr(i)
            Next i
            ' Set focus and close each report instance.
            For i = LBound(r) To UBound(r)
               r(i).MySetFocus
               MsgBox "Click OK to close report instance Report" & CStr(i)
               r(i).MyClose
            Next i
         End Sub
   					

9. To test this procedure, type the following line in the Debug window, and then press ENTER:

   ReportInstancesDemo

   Note that the procedure creates four instances of the Report1 report, each with a different caption. Then the procedure sets the focus to each report in turn, and prompts you to close the instance of the report.