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


2 participantes

    Caixa de texto como critério de consulta

    avatar
    Henrique Wieser
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 14/06/2013

    Caixa de texto como critério de consulta Empty Caixa de texto como critério de consulta

    Mensagem  Henrique Wieser 24/7/2013, 17:11

    Pessoal, eu de novo com minhas dúvidas.

    Gostaria de saber como usar mais de um valor da listbox na mesma caixa de texto. Vamos ao Exemplo:

    Tenho uma Listbox (Multipla Seleção - Simples) com 5 fornecedores, A, B, C, D e E

    Estou fazendo com que os valores dessa ListBox entre em uma caixa de texto que coloquei no formulário.

    Nos critérios da consulta não estou conseguindo trazer resultados quando seleciono mais de um item no ListBox.

    Na verdade não sei qual a máscara que o critério precisa para funcionar.

    Pq quando seleciono o fornecedor A e C, na caixa de texto fica A;C.

    Já tentei várias formas de máscara na caixa de texto mas não está funcionando.

    Podem me ajudar?

    Obrigado.
    avatar
    Henrique Wieser
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 14/06/2013

    Caixa de texto como critério de consulta Empty Re: Caixa de texto como critério de consulta

    Mensagem  Henrique Wieser 25/7/2013, 14:06

    Para que o resultado da Listbox entre na caixa de texto estou usando o código abaixo:

    Sendo:
    SELECT_FINALIZACOES = ListBox
    FILTRO = Caixa de texto
    IMAGEM_FILTRO = ícone do filtro (detalhe do formulário)

    Código:
    Private Sub SELECT_FINALIZACOES_AfterUpdate()
    Dim ctl As Control, lngContador As Long
    Dim strSQL As String, strWhere As String

    Set ctl = SELECT_FINALIZACOES

    strWhere = ""
    For lngContador = 0 To ctl.ListCount - 1
    If ctl.Selected(lngContador) Then
    strWhere = strWhere & " ; " & ctl.Column(0, lngContador)

    End If
    Next
    strWhere = Mid(strWhere, 4)

    If ctl.ItemsSelected.Count = 0 Then
    Me.FILTRO.Visible = False
    Me.FILTRO.Value = ""
    Me.IMAGEM_FILTRO.Visible = False
    ElseIf ctl.ItemsSelected.Count > 0 Then
    Me.FILTRO.Value = strWhere
    Me.FILTRO.Visible = False
    Me.IMAGEM_FILTRO.Visible = True
    avatar
    Henrique Wieser
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12
    Registrado : 14/06/2013

    Caixa de texto como critério de consulta Empty Adiciono um simples exemplo

    Mensagem  Henrique Wieser 25/7/2013, 17:14

    Pessoal, estou adicionando um exemplo que eu fiz.

    A listbox já está com seleção multipla e seus valores estão entrando na caixa de texto.

    Na consulta coloquei a caixa de texto como critério.

    Quando pesquiso somente 1 fornecedor, a consulta traz, mas quando coloco mais de uma não funciona.

    Alguém pode ajudar?
    Anexos
    Caixa de texto como critério de consulta AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 42 vez(es)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Caixa de texto como critério de consulta Empty Re: Caixa de texto como critério de consulta

    Mensagem  DamascenoJr. 20/1/2022, 02:47

    Mesmo os valores estando separados, ao serem lidos com o apontamento da caixa de texto, eles são interpretados como um único "bloco".

    Melhor montar o filtro no código e repassar a instrução montada para a propriedade recordsource.
    Anexos
    Caixa de texto como critério de consulta AttachmentExemplo_rev.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 10 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    Caixa de texto como critério de consulta Empty Re: Caixa de texto como critério de consulta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/4/2024, 10:08