MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

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

    Mensagem  Roberto_1977 em 8/10/2013, 15:09

    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 Smile


    Última edição por Roberto_1977 em 14/10/2013, 15:01, editado 2 vez(es)
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1218
    Registrado : 05/02/2010

    Alterar origem dos dados num relatório

    Mensagem  good guy em 8/10/2013, 16:00

    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

      Data/hora atual: 26/9/2018, 09:49