Lo que pides es fácil, mediante código. Te explico como hacerlo:
1º Creas el cuadro combinado en el formulario, cancelando el asistente si te sale.
2º Click Derecho en el cuadro combinado, Propiedades
->En la pestaña Otras, en nombre le pones: cboInformes
-> En la pestaña Datos, en Tipo de rigen de la Fila, le pones Lista de Valores
->En la pestaña Eventos, en el evento Al Entrar, le das a los puntos suspensivos que aparecen en un cuadradito a la derecha del mismo (...) le das a generar código, y escribes lo siguiente, entre las lineas Private Sub ... y End Sub:
Dim miOrigen As String
Dim miInforme As Object
'Inicializamos la variable miOrigen como una cadena vacía
miOrigen = ""
'Recorremos la colección "Informes"
For Each miInforme In CurrentProject.AllReports
miOrigen = miOrigen & miInforme .Name & ";"
Next miInforme
'Quitamos el último ; de la lista
miOrigen = Left(miOrigen, Len(miOrigen) - 1)
With Me.cboInforme
.LimitToList = True
.RowSource = miOrigen
End With
Con eso, ya tienes listados en el desplegable todos tus informes. Para que te lo muestre, o bien lo haces por medio de un botón, o que lo haga al seleccionarlo. Te explico las dos opciones y eliges la que más te convenga.
1/ Mostrar informe directamente al seleccionarlo: En la pestaña Eventos del cuadro combinado, seleccionas evento Después de Actualizar, le das a los (...), generador de código, y escribes entre las lineas Private Sub ... y End Sub:
On Error GoTo sol_err
DoCmd.OpenReport Me.cboInforme.Value, acPreview, , , acDialog
cboInformes = ""
Salida:
Exit Sub
sol_err:
MsgBox Err.Description
Resume Salida
2/ Para ver el informe mediante un botón, colocas un botón de comando junto al cuadro combinado, sacas sus propiedades, en la pestaña Otras, le pones de nombre cmdInforme, y en la pestaña Eventos, evento Al Hacer Click, le das a los (...) Generador de código y le pones el mismo código que la opción de arriba.
Una aclaración, la línea cboInformes="", lo que hace es poner en blanco el cuadro combinado, una vez que te muestra el informe.