Using a combo box to open a report

[MDay]

Good morning,

I would like to use an unbound combo box on a form to preview the selected report. The combo box is populated by a list of all the report names.

I am currently using the AfterUpdate function to select the report name and am using the the following code:

Private Sub ReportCombo_AfterUpdate()

DoCmd.OpenReport Me.ReportCombo, acViewPreview

End Sub

When I try to select one of the reports in the list, nothing is happening. How can I get this to work properly?

Thanks for your help.

[ADezii]

1. In the Open() Event of the Form, populate/define the Combo Box (most basic approach)
   

   Private Sub Form_Open(Cancel As Integer)
   Dim intNumOfReports As Integer
   Dim intRptCounter As Integer
   Dim strBuild As String
   
   intNumOfReports = CurrentDb.Containers("Reports").Documents.Count
   
   Me![cboReports].LimitToList = True
   
   If intNumOfReports <> 0 Then
     Me![cboReports].RowSourceType = "Value List"
     Me![cboReports].LimitToList = True
       For intRptCounter = 0 To intNumOfReports - 1
         strBuild = strBuild & CurrentDb.Containers("Reports").Documents(intRptCounter).Name & ","
       Next
         Me![cboReports].RowSource = Left$(strBuild, Len(strBuild) - 1)
   End If
   End Sub

2. Open the chosen Report via the AfterUpdate() Event of the Combo Box
   

   Private Sub cboReports_AfterUpdate()
   If Not IsNull(Me![cboReports]) Then
     DoCmd.OpenReport Me![cboReports], acViewPreview
   End If
   End Sub

[MDay]

Thanks so much, it is working now :-)

[ADezii]

You are quite welcome.