[Resolvido]Alterar origem dos dados num relatório.

Boa tarde a todos,

Gostaria se fosse possível saber, se a como ao abrir um relatório que esta agregado a uma consulta e essa consulta não tem valores, selecionar outra consulta com valores por defeito?

Ex:Caso a "consulta 1" esteja sem registos, então a origem dos dados vem da "consulta 2"

Private Sub Report_Open(Cancel As Integer)
        Me.RecordSource = "query3"
       If Me.RecordSource Is Null Then
          Me.RecordSource = "report_metros"
       End If
  End Sub

Cumprimentos

Olá Roberto,

Tente este modelo.

Private Sub Report_Load()
Dim strProcura As String
Dim sCod As Integer
Dim rs As DAO.Recordset


Set rs = CurrentDb.OpenRecordset("tblNomes", dbOpenTable)



For sCod = 1 To rs.RecordCount

strProcura =DLookup("Nome", "tblNomes", "ID = " & sCod)

If IsNull(strProcura) Then
Me.RecordSource = "SELECT * FROM cnsClientes"
Else
Me.RecordSource = "SELECT * FROM cnsNomes"
End If

Next sCod

End Sub