[Resolvido]Caixa de texto de pesquisa

Boa tarde galera,

Preciso criar uma caixa de texto de pesquisa no access.

Tenho um banco de dados com um campo especifico chamado matricula.

Ao digitar as matriculas "ex: 2, 6, 10" mostrasse apenas estas matriculas em um relatório.

Faria uma consulta utilizando o operador in, fazendo referencia a sua caixa texto, esta consulta ficaria em seu relatório. Algo assim:

Ao carregar o relatório:

Dim StrSQL as String
Dim StrMat as String
       
        StrMat = Forms!NomeDoForm!SuaCaixaTexto
        StrSQL = "SELECT SeuCampo1, SeuCampo2, SeuCampoEtc  FROM SuaTabela WHERE SeuCampo In ('" & StrMat & "')"

Me.RecordSource = StrSQL

Lembrando que o Form deve permanecer aberto ou oculto após a abertura do relatório.

Cumprimentos.

Piloto, estou grato por ter respondido minha pergunta, sou novato neste forum e não sei muito bem de vb, teria como vc passar um exemplo de banco de dados funcionando, estudaria e adaptaria ao meu criterio.

Grato.

A única diferença é que o código é aplicado no evento ao Abrir.

Ei-lo:

http://maximoaccess.forumeiros.com/t13278-abrir-relatorio-filtrado-por-numeros-separados-por-virgula#102097

Cumprimentos.

Amigo, tudo funcionando, muito grato a você pelo seu esforço e disposição para ensinar.
Do jeito que voce ensinou já me atende.

Teria como no código incluir mais uma campo para pesquisa.

Ex: Por exemplo, digitaria a matricula e especificaria duas datas, o relatorio traria os lançamentos comprendidos entre as datas, para as matriculas especificadas.

Muito grato.

Da sim... Crie um campo: cpData...

De uma pesquisada no repositório temos exemplo de consulta entre datas.. e tente adaptar.. em não conseguindo poste aqui.

Cumprimentos.

Mas veja bem e se colocar uma matricula cuja data não está compreendida entre as datas selecionadas?

Cumprimentos.

Veja a seguir, adicionei uma condição para caso se consulte apenas as matriculas e as datas fiquem nulas:

Private Sub Report_Open(Cancel As Integer)
Dim StrSQL As String
Dim StrMat As String
      Forms!FrmExemplo.Visible = False
      StrMat = Forms!FrmExemplo!txtMatricula
      If IsNull(Forms!FrmExemplo.DataInicial) Or IsNull(Forms!FrmExemplo!DataFinal) Then
        StrSQL = "SELECT *  FROM tblExemplo WHERE CpMatricula In (" & StrMat & ")"
       Else
        StrSQL = "SELECT *  FROM tblExemplo WHERE CpMatricula In (" & StrMat & ") And CpData >= Forms!frmExemplo.DataInicial And Cpdata <= Forms!frmExemplo.DataFinal"
      End If
Me.RecordSource = StrSQL

Cumprimentos.

Piloto,,,, ficou 10,,, você é 10....

Muito obrigado pela ajuda... Demais....

Este fórum é o melhor..........

O Fórum agradece o Retorno.

Cumprimentos.