[Resolvido]abrir relatório com condição

Boa tarde mestres.
Venho novamente solicitar o vossa ajuda no seguinte tenho um formulário com duas combobox´s que gostava de abrisse um relatório conforme a escolha de despesas e receitas, na primeira seleciona-se receitas e na segunda aparecesse as rubricas das receitas e assim por diante e abrisse o relatório.
Abraço,
Rui Maciel

Teste

Boa tarde Assis
Está bem, mas numa segunda combobox queria que aparecesse as rúbricas que estão lançadas tanto nas despesas como nas receitas. Eu sei que é possível só que não consigo implementar, e ao clicar na rubrica da segunda imprimir o relatório.
Cumprimentos,
Rui Maciel

Obrigado Assis resolvi da seguinte maneira com a ajuda do João Paulo

Option Compare Database
Option Explicit


Private Sub cbxUm_AfterUpdate()
Dim strSql As String

If Me.cbxUm.Column(0) = "Receitas" Then

strSql = "SELECT tbl_Receitas.Descrição " & vbCrLf & _
"FROM tbl_Receitas " & vbCrLf & _
"WHERE (((tbl_Receitas.Receitas) Is Not Null)) " & vbCrLf & _
"GROUP BY tbl_Receitas.Descrição;"

Else

strSql = "SELECT tbl_Despesas.Descrição " & vbCrLf & _
"FROM tbl_Despesas " & vbCrLf & _
"WHERE (((tbl_Despesas.Despesas) Is Not Null)) " & vbCrLf & _
"GROUP BY tbl_Despesas.Descrição;"

End If

Me.cbxDois.RowSource = strSql
Me.cbxDois.Requery
Me.cbxDois.SetFocus
Me.cbxDois.Dropdown

End Sub

Private Sub Comando4_Click()
If Me.cbxUm.Column(0) = "Receitas" Then
DoCmd.OpenReport "tbl_Receitas Consulta", acViewPreview
Me.cbxUm = Null
Me.cbxDois = Null
Else
DoCmd.OpenReport "tbl_Despesas Consulta", acViewPreview
Me.cbxUm = Null
Me.cbxDois = Null
End If
End Sub