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]Busca Conforme O Tipo de Busca Escolhido

    avatar
    Ozafran
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 22/08/2014

    [Resolvido]Busca Conforme O Tipo de Busca Escolhido Empty [Resolvido]Busca Conforme O Tipo de Busca Escolhido

    Mensagem  Ozafran 10/9/2015, 13:18

    Caros Amigos,


    Lá venho eu, com mais dúvida. Tenho um formulário que faz busca segundo um critério que deve ser escolhido em 3 checkbox:

    Uma por Assunto
    Uma por numero do protocolo 1
    Uma por numero do protocolo 2

    Todas utilizando a mesma textbox, pelo assunto sem estresse.

    Quando clico no protocolo 1, por exemplo eu pensei que enquanto a pessoa digita fosse mantida a máscara e fizesse a busca:

    Exemplo: xxxxx/aaaa (mácara)

    Fizesse assim ao digitar o numero 00215: 00215/____ e conseguisse fazer a busca mesmo sem o restante da operação, se resolver esse o outro se resolve.
    Estou usando assim:


    Dim C As String, X As String
    X = Me.TxtProcuraProcesso.Text


    If OpSPW.Value = 1 Then  'Número do Processo SProWeb'
    Me.TxtProcuraProcesso = Format(TxtProcuraProcesso, "000\.00000\.0000")
    C = " where NrPSProWeb like '*" & X & "*'"
    Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


    ElseIf OpSSP.Value = 1 Then  'Número do Processo SSP'
    Me.TxtProcuraProcesso = Format(TxtProcuraProcesso, "00000/0000\->AAA")

    C = " where NrPSSP like '*" & X & "*'"
    Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


    Else 'If OpAssuntoSSP.Value = 1 Then 'Pesquisa por Assunto

    C = " where AssuntoProcessoSSP like '*" & X & "*'"
    Me!ListaAM.RowSource = "select * from tblProcessoRHSSP" & C


    End If


    Nota: Já fiz com imputmask


    Última edição por Ozafran em 21/10/2015, 12:47, editado 2 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1621
    Registrado : 17/03/2011

    [Resolvido]Busca Conforme O Tipo de Busca Escolhido Empty Re: [Resolvido]Busca Conforme O Tipo de Busca Escolhido

    Mensagem  Cláudio Machado 10/9/2015, 22:24

    Não seria mais fácil você usar direto na consulta?

    Tipo:

    Código:

    Como "*"+[Forms]![SeuForm].[SeuCampoDePEsquisa] & "*"


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Busca Conforme O Tipo de Busca Escolhido 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 16/4/2021, 20:31