[Resolvido]Formulário com duas combobox´s

tenho um formulário com duas combobox´s que queria na primeira selecionar receitas ou despesas e na segunda conforme seleciona-se na primeira constassem as rubricas quer de uma quer de outra para poder abrir um relatório já configurado. tenho duas tabelas receitas e despesas, assim como, duas consultas, como poderei fazer para conseguir implementar o processo? Com uma combobox já consegui mas aparecem todas as rubricas quer das despesas quer das receitas, queria da forma como expliquei inicialmente, obrigado.
Desde já agradecendo a vossa colaboração e tempo gasto,
Cumprimentos,
Rui Maciel

Dê uma olhada no Repositório de Exemplos. Lá tem exemplos de interação entre combos.

Tem mas não consigo implementar porque tenho duas tabelas despesas e receitas, com duas consultas despesas e receitas, e queria através de um formulário com duas combobox´s, na primeira constasse despesas e receitas e na segunda constassem as rubricas de cada uma (despesas e receitas), e com os exemplos constantes no repositório não consigo adaptar. Obrigado. Em anexo segue a base de dados.
Grato pela vossa paciência e disponibilidade,
Rui Maciel

Alguém me ajuda. Obrigado

Bom dia Rui, vamos lá ver isso;

Qual é o formulario do seu exemplo.

Bom dia João Paulo
É o formulário1.
Obrigado.
Rui

Veja o simples;

Private Sub cboEmpresa_AfterUpdate()
Dim strSql As String

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

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

Else

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

End If

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

End Sub

Resolveu ?

Desculpe João Paulo, tive que sair.
Sim resolvi, mas adaptei alguma coisa, ficou assim:

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

Obrigado João Paulo, fantástico a sua rapidez e visão.

Rui

Obrigado pelo retorno o forum agradece.