MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Consulta no campo "Row Source" com critério "Like"

    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Consulta no campo "Row Source" com critério "Like"

    Mensagem  Picoleo em 15/9/2011, 14:51

    Bom dia senhores,

    Estou desenvolvendo um sisteminha de Agênda Telefônica. Nela contêm uma table "TB_CONTATO" com um campo "NOME" e outro "CATEGORIA".

    Estou com dúvida em um formulário de pesquisa, que filtra os contatos por letras em ordem alfabética, tendo uma ComboBox com todas as letras "A, B, C, D"
    Quando o usuário seleciona uma letra e clica no botão "Filtrar" é carregado em uma ListBox todos os contatos da tabela que se inicia com letra que o usuario escolheu.

    Exemplo: Usuário escolhe "L" na comboBox, aparece "Leonardo, Luciana, L..." em uma ListBox no mesmo formulário.

    Consegui resultado fazendo a mesma pesquisa porém pelo campo "CATEGORIA".
    Segue código do botão:

    Private Sub cmdFiltrar_Click()

    Dim a, b
    Dim variavel, qry_view As String

    a = checkLetra.Value
    b = checkCategoria.Value
    cboFiltro.SetFocus
    variavel = cboFiltro.Text

    If a = True Then
    qry_view = "SELECT TB_CONTATOS.NOME "
    qry_view = qry_view & "FROM TB_CONTATOS WHERE (((TB_CONTATOS.NOME) Like " & variavel * ")) ORDER BY TB_CONTATOS.NOME;"
    ListResultado.Enabled = True
    ListResultado.RowSourceType = "Table/Query"
    ListResultado.RowSource = qry_view

    Else
    qry_view = "SELECT TB_CONTATOS.NOME "
    qry_view = qry_view & "FROM TB_CONTATOS WHERE (((TB_CONTATOS.CATEGORIA) = '" & variavel & "')) ORDER BY TB_CONTATOS.CATEGORIA;"
    ListResultado.Enabled = True
    ListResultado.RowSourceType = "Table/Query"
    ListResultado.RowSource = qry_view


    End If
    End Sub


    Ele não reconhece a expressão em vermelho.
    Alguém conhece um código que possa ser inserido este critério "LIKE (letra) *" assim ele busca na tabela "TB_CONTATOS" todos que começam com aquela letra.

    Att,

    Leonardo.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7371
    Registrado : 05/11/2009

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Alexandre Neves em 15/9/2011, 18:37

    Oh Picoleo,

    Nem acredito! Ele não reconhece a expressão ou espera que lhe ponham as pelicas pelo campo ser texto?
    Já agora se não usasse nome reservado do Access para nomear campos, ele agradecer-lhe-ia.
    qry_view = qry_view & "FROM TB_CONTATOS WHERE NOME Like '" & variavel * "' ORDER BY NOME;"
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Picoleo em 15/9/2011, 18:55

    Alexandre Neves,

    Agradeço o auxilio com o código, mas dispenso a ironia!

    Assim mesmo com a alteração indicada pelo sr. ele mostra o seguinte erro:
    "Run-time error 13. Type mismatch" (não reconhece o tipo) porém todos os campos são Texto, não sei se este é o problema.
    Como estou em aprendizado e não possuo um conhecimento avançado no sistema Access, preciso de ajuda.

    Ficou assim:

    qry_view = "SELECT TB_CONTATOS.NOME FROM TB_CONTATOS WHERE NOME Like '" & variavel * "' ORDER BY NOME;"

    Ao clicar aparece o erro de "mismatch"

    Att.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7371
    Registrado : 05/11/2009

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Alexandre Neves em 15/9/2011, 19:49

    Picoleo,

    Não precisa de me tratar por sr., quanto ao resto fica ao seu critério.
    Relativamente à expressão, não reparei que lhe faltava a concatenação devida.
    Veja se resolve: qry_view = "SELECT NOME FROM TB_CONTATOS WHERE NOME Like '" & variavel & "*' ORDER BY NOME;"
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Picoleo em 15/9/2011, 19:57

    Muito bom! Boa observação. Não conhecia a sequência correta onde inserir o (*).
    Ficou redondo.

    Valeu, man. Até mais.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3525
    Registrado : 04/04/2010

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Avelino Sampaio em 15/9/2011, 20:09

    Olá Picoleo

    Faço um convite para vc ler este meu tutorial , que inclui vídeo-aula e arquivo exemplo.

    Tutorial sobre filtragens com vídeo-aula

    Bom estudo!
    avatar
    Picoleo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 51
    Registrado : 18/08/2011

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Picoleo em 16/9/2011, 14:24

    Vou dar uma olhada sim.
    Obrigado!

    tópico [Resolvido]

    Conteúdo patrocinado

    [Resolvido]Consulta no campo "Row Source" com critério "Like" Empty Re: [Resolvido]Consulta no campo "Row Source" com critério "Like"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/10/2019, 20:57