Run Report Form Combo Box

[yanni12]

I am trying to run a specific report from a combo box list. I typed in the report names my self to the list. I went to onclick and provided the following code:

Private Sub Report_Click()
DoCmd.OpenReport "Modification Monitoring Report", acViewReport
DoCmd.OpenReport "Special Servicing Loan Performance Report", acViewReport
End Sub

I need to be able to only open the report chosen by the drop down? Please help.

[ADezii]

1. Assuming a Combo Box named cboReports, populate cboReports with the Names of all Reports in the Database. Here, I chose to have this done in the Form's Open() Event.
   

   Private Sub Form_Open(Cancel As Integer)
   Dim obj As AccessObject
    
   With Me![cboReports]
     .RowSourceType = "Value List"
    
      For Each obj In CurrentProject.AllReports
        .AddItem obj.Name
      Next
   End With
   End Sub

2. Open the Selected Report in Preview Mode. This should be done in the AfterUpdate() Event of cboReports as indicated below.
   

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

[yanni12]

I chose to have this done in the Form's Open() Event? Where do I do this? int he combo box's properties?

[ADezii]

Open Form in Design View ==> View ==> Properties ==> Select the Event Tab ==> On Open