[nisgia]

Καλησπέρα!

Μάρω, δεν υπονοώ κάτι για τη λύση σου όμως θεωρώ πως έχω μια πιο ευέλικτη λύση
της οποίας ο κώδικας φαίνεται παρακάτω:

Private Sub cboMyObjects_AfterUpdate()
    On Error Resume Next
    DoCmd.OpenForm cboMyObjects, acNormal
    DoCmd.OpenReport cboMyObjects, acViewPreview
End Sub

Private Sub Form_Load()
    Me.cboMyObjects.RowSourceType = "Value List"
    Me.cboMyObjects.RowSource = MyObjectsNames
End Sub

Private Function MyObjectsNames() As String
    Dim obj As Object
    Dim strNames As String
    
    For Each obj In CurrentProject.AllForms
        If obj.Name <> Me.Name Then
            strNames = strNames & "; " & obj.Name
        End If
    Next obj
    i = 0
    For Each obj In CurrentProject.AllReports
        strNames = strNames & "; " & obj.Name
    Next obj
    MyObjectsNames = Mid(strNames, 3)
End Function

cboMyObjects είναι το όνομα του σύνθετου πλαισίου.

Φιλικά,
Γιάννης