Caixa de Combinação Abrindo Relatórios

[Ricmendes]

Olá pessoal!!

Estou com um probleminha tenho um Bd que estou faz, e nele tenho 3 relatorios (Relcadastro, Relseguro e Relvagas) e queria ter uma caixa de combinação que pudesse me da a opção de abrir esses relatorios, procurei alguns exemplos e não consegui obter exito. Então queria ter uma ajuda de vocês.

desde já agradeço atenção de todos.

[Iceguy]

Vê se isso ajuda:

Option Compare Database
Option Explicit

Private Sub Form_Load()
    SuaComboBox.RowSourceType = "Value List"
    SuaComboBox.AddItem "Cadastro"
    SuaComboBox.AddItem "Seguro"
    SuaComboBox.AddItem "Vagas"
End Sub

Private Sub SuaComboBox_BeforeUpdate(Cancel As Integer)
    Select Case SuaComboBox.Value
        Case "Cadastro": DoCmd.OpenQuery "RelCadastro"
        Case "Seguro": DoCmd.OpenQuery "RelSeguro"
        Case "Vagas": DoCmd.OpenQuery "RelVagas"
    End Select
End Sub