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

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.

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;"

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.

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;"

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

Valeu, man. Até mais.

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!

Vou dar uma olhada sim.
Obrigado!

tópico [Resolvido]