[Resolvido]Caixa de combinação com valores de qualquer parte do campo.

Caros amigos,

essa é a minha primeira participação no fórum e já chego com dúvidas.

Estou desenvolvendo um sistema em Access para controle de pessoal, não conheço muito de programação mas sempre fui bom em futucar as coisas e achar. Tudo estava indo bem até que me deparei com uma dificuldade que ainda não consegui resolver.

Preciso criar uma caixa de combinação que me mostre os registros onde aquela sequencia de letras aparece:

Ex: Digito "marc"

e apareceria:

Marcelo A
Marcelo B
Marco
marco
marcelo

Quando crio uma caixa de combinação ela só me apresenta o valor se DIGITADO DE MANEIRA IGUAL AO REGISTRO, gostaria que me apresentasse todos os resultados. A solução pode ser de outra forma, mas preciso que ao menos mostre os registros para que eu possa em outro formulário modificar, se for o caso. Quando pesquiso diretamente no campo (tabela) com a opção localizar me dá essa possibilidade "em qualquer parte do campo" mas no formulário eu não estou conseguindo fazer.

Informo que não sou muito bom em programação, se tiver que colocar algum código só me informar onde ele será colocado. Vou continuar procurando aqui no fórum, mas não consigo achar nada semelhante.

Desde já obrigado pela ajuda.

maxwilliamfranco, Fiz um modelo mais não sei se seria isto.

Quando Digitado algo no campo de pesquisa, ele filtra independente da posição das letras no texto.

Exep.: Se digito "Le" no campo, ele retorna os resultados (Leandro, Tales) por conter as letras.

apos o filtro click no nome desejado e os dados dele serão carregados.


Espero ter lhe ajudado.

Obrigado amigo. Vou testar amanhã e posto os resultados.

Boa Noite...

Seja bem vindo ao Fórum

Vamos lá:

1º- Se a caixa de combinação do form esta NãoAcoplado (Sem Fonte do Controle) adapte este código abaixo no evento ao alterar da caixa de combinação.

     Dim strText, strFind, strFind2
       strText = Me.cboNomeCliente.Text
   If Len(Trim(strText)) > 0 Then
       strFind2 = "txtNomeEmpresa Like '*"
     For I = 1 To Len(Trim(strText))
   If (Right(strFind, 1) = "*") Then
       strFind = Left(strFind, Len(strFind) - 1)
   End If
       strFind = strFind & Mid(strText, I, 1) & "*"
     Next
       strFind2 = strFind2 & strFind & "'"
       strsql = "SELECT CodCliente, txtNomeEmpresa FROM tblClientes where " & strFind2 & " ORDER BY txtNomeEmpresa;"
       Me.cboNomeCliente.RowSource = strsql
       Me.cboNomeCliente.Dropdown
   Else
       strsql = "SELECT CodCliente, txtNomeEmpresa FROM tblClientes ORDER BY txtNomeEmpresa; "
       Me.cboNomeCliente.RowSource = strsql
   End If


2º- Se a caixa de combinação do form esta Acoplado (com Fonte do Controle) adapte este código abaixo no evento ao alterar da caixa de combinação.

   Me.cboNomeCliente.RowSourceType = "Table/Query"
      Me.cboNomeCliente.RowSource = "SELECT txtNomeEmpresa FROM tblClientes WHERE txtNomeEmpresa     LIKE '*" & Me.cboNomeCliente.Text & "*'"
      Me.cboNomeCliente..Dropdown

Obs: Nos dois casos Nas propriedades da combo em auto expandir Coloque Nâo

Altere "Me.cboNomeCliente" para nome de sua caixa de combinação
Altere "txtNomeEmpresa" para nome do seu campo a filtrar
Altere "CodCliente" para Codigo(ChavePrimária) de Sua tabela
Altere "tblClientes" para nome de sua tabela

Espero que seja isto

Qualquer Dúvidas Manda ai

Abraços

Bom dia Galera,

Celso Roberto, Muito bom esses exemplos seus. Fiz o teste aqui e funcionou perfeitamente, mais uma que aprendo neste fórum.  
Isto nos mostra o tanto de variedade que o Access no proporciona.



maxwilliamfranco, Irei postar o meu teste aqui para servir de estudo para você.

Os exemplos que foram postados não funcionaram aqui. Obrigado assim mesmo.

Caro Celso Roberto, como tinha explicado antes, não sou muito bom em programação portanto vou fazer uma pergunta de noob: Onde coloco esse código? Enquanto aguardo resposta vou testando aqui.

ATUALIZAÇÃO: estou tentando inserir os códigos em : EVENTO ----- APÓS ATUALIZAR ----- CONSTRUTOR DE CÓDIGOS...

Está certo?

ATUALIZAÇÃO 2: Tentei de todas as formas inserir o código em CONSTRUTOR DE CÓDIGOS e não funcionou, acho que não estou fazendo certo.

ATUALIZAÇÃO 3: A caixa de combinação começa como uma macro incorporada, tudo funciona, o nome digitado corretamente COMPLETA O CAMPO, SOMENTE DOU ENTER QUE O REGISTRO APARECE NO FORMULÁRIO VINCULADO. Para inserir o código estou substituindo essa MACRO por CÓDIGO (no caso o código que foi colocado aqui), fazendo as devidas mudanças e nada funciona.

Peço desculpas por não informar que meu Access é o 2007, por isso pode não estar funcionando.

Caro amigo bigfill,
Na realidade este códigos eu encontrei exatamente neste fórum.
O Primeiro exemplo veio deste link do Mestre Avelino Sampaio

http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

Compartilhado por Johnny Cardoso 25/04/2011 11:38:02

O segundo foi uma Solução do Criquio para um amigo do fórum, (desculpe,não me recordo qual tópico)

Amigo maxwilliamfranco,
O exemplo do bigfill já te ajudaria, mas vou fazer outro mais simplificado aproveitando o próprio exemplo dai é só ver e adaptar igual

Aguarde!!!!!


Abraços

Vou aguardar, obrigado.

O link que vc colocou tem excelentes explicações mas não entendo muito bem de programação, nem sei como substituir os campos se não tiver um guia igual o que vc fez na postagem acima. Obrigado mais uma vez.

Olá maxwilliamfranco

Ta ai o exemplo
Veja corretamente os procedimentos
caso não consiga anexe seu bd para melhor ajuda

Aguardo
Abraços

Vou estudar bem o que enviou, até no próprio exemplo que mandou não funciona como deveria, pois enquanto digito os valores deveria já aparecer as possibilidades de escolha na guia.

Vou mandar meu arquivo na sexta, sem falta. (Motivo: Viagem)

Mas, se puder esclarecer porque não aparecem as opções no seu exemplo já iria me dar uma luz.

Olá

Acabei de testar o exemplo e esta funcional
Vamos lá.

No form acoplado
ao abrir siga com foco até caixa de combinação(Não é clicar em cima não e seguir com foco)
Clik na seta para abrir a caixa e verá que todos estão la para selecionar se quiser
Se não quiser selecionar digite em cima do foco qualquer letras coincidentes que exista nos nomes e vera que filtra todos que tem esta letra.
Se voce selecionar um e ficar no mesmo registro só vai aparecer este selecionado, para alterar delete e a caixa ira abrir novamente
Ou digite outra letra em cima do foco que a caixa ira abrir com filtro de todas com a letra

No form não acoplado
Ao abrir a caixa de combinaçao vem limpa, voce pode excolher ou digitar letra do mesmo modo acima que esta filtrando

Abraços
de resto é o mesmo procedimento acima

No exemplo apresentado as informações estão cruzadas, não é o caso. A caixa de combinação deve selecionar o registro completo pelo nome, por exemplo. A filtragem deveria ocorrer durante a digitação (meu chefe é superleigo em informática e vai usar o sistema junto comigo).

Vou tentar ilustrar o que preciso dentro do exemplo apresentado. Lembrando que as opções devem ser pesquisadas EM QUALQUER PARTE DO CAMPO. Tanto em cima como embaixo são o mesmo campo na tabela.

Obrigado mais uma vez.





obs: As opções poderiam aparecer filtradas já....

obs2: Estou enviando uma cópia do meu banco de dados e indiquei com a palavra "Aqui ---->" onde está a dificuldade

Olá..
Para que nós possamos te ajudar, corrija alguns detalhes em seu bd.
Nas tabelas nunca use nomes de campos de uso próprio do access, Ex: Nome use txtNome
Nunca deixe espaços entres os nomes de campos, Ex: ID Funcional Use IDFuncional ou ID_Funcional
Isto porque quando voce referencia um campo desta maneira em algum código ou procedimento qualquer, o access não aceita e da erro.
Em Nomes de tabelas, consultas, formularios tambem não deixe espaços Tipo SERVIDORES GERAL
Use Ex: tblServidoresGeral para tabelas, qrySevidoresGeral Para consultas, frmSevidoresGeral para formulários, isto para tambem seguir as boas regras de programação não use acentuações nos nomes.
Isto facilita tambem quando se referencia as tabelas, consultas, forms, relatórios em códigos de programação.
Imagina se voce tem tabelas, consultas, forms com mesmo nome, como que o o access ou outro banco de dados qualquer vai saber quem voce esta chamando naquele procedimento executado?
Nota: Como esta não da para executar oque deve ser feito, então corrija estes detalhes e enexe novamente o seu BD para ai sim fazer oque voce deseja

Aguardo

Abraços

Não tenho palavras para agradecer a ajuda. Vou fazer todos os acertos na segunda feira e envio novamente. Abraço.

Estamos aguardando

Abaços

Estou de volta. Fiz o que me pediu, espero ter modificado da forma correta. Os princípios continuam os mesmos. Aguardo resposta.

ATUALIZAÇÃO: O que aconteceu? O arquivo continua errado?

Boas..

Veja se seria isto!!


Aguardo

Abraços

Já saí do trabalho. Amanhã de manhã vou testar. Obrigado.

Vamos lá. Conforme tinha mostrado nas imagens acima, o mais importante nessa caixa de combinação é que ela filtrasse enquanto digitamos, mostrando as opções de acordo com a ordem das letras. No exemplo que enviou ele faz a mesma coisa que o Access, quando o nome correto não está na lista ele mostra todos os registros, o que não gostaria que acontecesse.

Se digitei "mar", apareceria nas opções da caixa de combinação:

Marcelo
marcelo
Adriana Marcia
Jose Marcilio

Mas não apareceria:
Joao Lucas
Roberto



A seta do meio é o lugar onde esse filtro deve ocorrer.

Se fazer isso com a caixa de combinação for complicado, pode ser também com uma caixa de texto para colocar as letras e as opções aparecerem num quadro ou janela abaixo e, clicando, leve ao registro escolhido.

Obrigado pela paciência. Aguardo.

Olá...

Voce baixou o ultimo exemplo que te enviei na mensagem 17?
Ele esta fazendo exatamente o que pediu

Esta imagem que me enviou é do exemplo anterior
Verifica ai..

Aguardo

Só por desencargo de consciência baixei de novo para analisar. Ele não filtra somente com as letras que digito, apresentando todos os resultados para escolher, é isso que não quero. Preciso que apareçam somente os registros que se enquadram EM QUALQUER PARTE DO CAMPO pesquisado.

Não deixe de avaliar a possibilidade de criar uma caixa de texto e os valores aparecerem em uma janela lateral para serem escolhidos.

Obrigado maaaaaaaais uma vez.

Meu amigo Veja





Retirado do próprio exemplo da mensagem 17, só inclui os nomes que citou acima para ficar claro.

Se não for isto me explica melhor, talvez eu não esteja entendendo

Aguardo

Quando abro aqui não acontece o que aparece nas imagens, será que falta configurar alguma coisa? No próprio exemplo que baixei não acontece o que vc colocou na imagem, que é exatamente o que eu quero (começando a entrar em desespero).

Verifique as configurações do seu access, talvez esteja desabilitando os arquivos baixados

Att

Só vou voltar a ter acesso na sexta, sem falta vou dar uma geral pra ver onde está o erro.

Ok..

Vamos lá..... Fiz de tudo dentro dos meus poucos conhecimentos para buscar onde poderia existir o problema, não tem jeito, não vi nada que pudesse estar atrapalhando o funcionamento. Então vejamos:

Primeira tela: Perceba que antes mesmo de digitar os nomes todos aparecem na guia.


Agora perceba que apesar de ter digitado "silv" as opções todas ainda estão lá.


Onde poderia começar a analisar se o problema for aqui? Onde posso procurar o problema que justifique não estar funcionando? Lembro que as últimas imagens que foram postadas da solução representam exatamente o que preciso. Aguardo.

Olá,
como voce disse que não conseguiu resolver o que pode estar desabilitando, então siga os passos e execute no seu próprio banco.

1º- Corrija na talela o nome do campo "nome"(este é reservado ao access como disse acima)  para "txtnome" (sem aspas), Veja imagem



2º- corrija o nome do campo no formulario txtnome como imagem



3º- veja os precedimentos de evento ao alterar da combo, clique (...)do evento para abrir o modulo vba
e cole o código abaixo

Código:

Private Sub Combinação35_Change()
    Dim strText, strFind, strFind2
        strText = Me.Combinação35.Text
    If Len(Trim(strText)) > 0 Then
        strFind2 = "txtnome Like '*"
      For I = 1 To Len(Trim(strText))
    If (Right(strFind, 1) = "*") Then
        strFind = Left(strFind, Len(strFind) - 1)
    End If
        strFind = strFind & Mid(strText, I, 1) & "*"
      Next
        strFind2 = strFind2 & strFind & "'"
        strSQL = "SELECT contserv, txtnome FROM tblservgeral where " & strFind2 & " ORDER BY txtnome;"
        Me.Combinação35.RowSource = strSQL
        'Me.Combinação35.Dropdown
    Else
        strSQL = "SELECT contserv, txtnome FROM tblservgeral ORDER BY txtnome; "
        Me.Combinação35.RowSource = strSQL
    End If
        Me.Combinação35.Dropdown
End Sub

4º- altere nas propriedades auto expandir igual imagem



E salve o form e faça os testes

Aguardo

Caro Celso, não tenho palavras para agradecer a paciência que está tendo comigo, valeu mesmo. Na segunda estarei novamente em contato com o sistema e vou fazer os procedimentos que indicou. Bom final de semana e Paz!!!!

Vamos lá. Fiz tudo como ensinou, mais de uma vez, e não funcionou. Dê só uma olhada se está tudo certo:







Obrigado. Aguardo.

Olá

Anexe seu Bd co estas alterações para eu ver..

Qual access esta usando?
Quando voce abre o bd ele mostra algum aviso de segurança?
Aguardo

Bom dia a todos.

Caro amigo Celso, vc matou a charada quando me perguntou se dava alguma mensagem de erro, veja isto:





Habilitei e FUNCIONOU PERFEITAMENTE.

Sua paciência foi impressionante, muito obrigado mesmo, de coração, pela grande ajuda.

Última pergunta do tópico: Como posso habilitar automaticamente isso?

Olá....

Abra a sua central de confiabilidade e veja no ajuda do access como habilitar o seu caminho de banco de dados, não sei explicar corretamente porque ainda não tive este problema.

Agora quanto ao nosso assunto, esta é a finalidade do Fórum.
Todos nós temos dúvidas e as vezes(Sempre) precisamos de ajuda e aqui nós sempre encontramos um Amigo para nos ajudar.
Agora se o Tópico já estiver Solucionado de ele por Resolvido, veja como neste Link
https://www.maximoaccess.com/t860-resolucao-de-topicos

Primeiro- Editar mensagem
Segundo- Clicar no Resolvido
Terceiro-Clicar no Enviar

E até a próxima....
Estaremos sempre por Aqui

Abraços