MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Caixa de texto de pesquisa

    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Caixa de texto de pesquisa Empty Caixa de texto de pesquisa

    Mensagem  cisouza 18/5/2013, 18:25

    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.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 19/5/2013, 21:42

    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.
    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  cisouza 19/5/2013, 22:42

    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.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 20/5/2013, 02:50

    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.
    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  cisouza 21/5/2013, 02:28

    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.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 21/5/2013, 03:06

    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.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 21/5/2013, 03:31

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

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 21/5/2013, 04:04

    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.
    avatar
    cisouza
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 14/11/2012

    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  cisouza 21/5/2013, 13:11

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

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

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


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Convidado 21/5/2013, 14:13

    O Fórum agradece o Retorno.

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]Caixa de texto de pesquisa Empty Re: [Resolvido]Caixa de texto de pesquisa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 10:09