Abrir relatório filtrado por Números separados por vírgula

1 - No FrmExemplo digite os números que pretende consultar separado por vírgulas (1,2,4 etc)
2 - O relatório abrirá filtrado com os mesmos, para isso utilizamos o operador in na Sql

Option Compare Database

Private Sub Report_Close()
       Forms!FrmExemplo.Visible = True
End Sub

Private Sub Report_Open(Cancel As Integer)
Dim StrSQL As String
Dim StrMat As String
      Forms!FrmExemplo.Visible = False
        StrMat = Forms!FrmExemplo!txtMatricula
        StrSQL = "SELECT *  FROM tblExemplo WHERE CpMatricula In (" & StrMat & ")"

Me.RecordSource = StrSQL
End Sub

Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.

Lembrando que pode ser feito para nomes... apenas alterando no critério de aspas duplas para Aspas Duplas e Simples.

Cumprimentos.