[Resolvido]Mesmo mês em 1 relatório

Bom dia!

Ninguém conseguiu? Não desisti....estou fazendo manualmente, se alguém ainda puder me ajudar  

Boa tarde!

Em anexo

Saludos

Quase lá. Apenas uma observação: Sê seria possível os nomes do Ricardo e Lucas não terem o nome dos cônjuges, só eles fazem aniversário no mês 3 o aniversario de casamento deles seria no mês 1 e mês 4. O restante esta correto. O resultado seria esse abaixo:

Bom dia

Apenas uma linha precisa ser apagada

Código:

Private Sub BtnImprimir_Click()

    Call DeleteX

    Dim db As DAO.Database
    Dim rs1 As DAO.Recordset
    Dim rs2 As DAO.Recordset
   
    'Aniversario de casamento
    Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM Tabela1 WHERE mes = '" & Forms!Relatorio!MesConsulta & "'", , dbReadOnly)
    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Temp", , dbAppendOnly)
    Do Until rs1.EOF
        rs2.AddNew
        rs2!nome = rs1!nome
        rs2!conjuge = rs1!conjuge
        rs2!dia = rs1!dia
        rs2!mes = rs1!mes
        rs2!ano = rs1!ano
        rs2.Update
        rs1.MoveNext
    Loop

    rs1.Close
    Set rs1 = Nothing
    rs2.Close
    Set rs2 = Nothing
   
    'Aniversario
    Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM Tabela1 WHERE mes1 = '" & Forms!Relatorio!MesConsulta & "'", , dbReadOnly)
    Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Temp", , dbAppendOnly)
    Do Until rs1.EOF
        rs2.AddNew
        rs2!nome = rs1!nome
        'rs2!conjuge = rs1!conjuge '<------ aquí não registra conjuge
        rs2!dia = rs1!dia1
        rs2!mes = rs1!Mes1
        rs2!ano = rs1!ano1
        rs2.Update
        rs1.MoveNext
    Loop

    rs1.Close
    Set rs1 = Nothing
    rs2.Close
    Set rs2 = Nothing

    DoCmd.OpenReport "Aniversariantes", acViewPreview

End Sub

Saludos!

Boa tarde!
Era isso mesmo e teria como colocar a data em ordem do menor para o maior:
2
13
18
22
30?

Bom día!

Seu problema principal foi resolvido, é sua vez de resolver os detalhes, vamos lá, experimente que não é difícil!

Saludos

Boa tarde!
Ok, consegui colocar, muito obrigada.

Resolvido