[Resolvido]Ignorar Acento na ComboBox

Gostaria de saber se alguém pode me ajudar. Preciso saber como fazer para que a pesquisa no ComboBox ignore acentuação. Não queria remover os acentos e sim apenas ignora-los na pesquisa do combobox,
Obrigado

Tópico retirado das salas de repositórios.

Vic Manson Rossi, seja bem vindo ao fórum. Veja abaixo um link com boas dicas do fórum
https://www.maximoaccess.com/t39851-melhores-macetes-do-maximoaccess

Aguarde um pouco que certamente algum membro tem a resposta certa para sua questão. Enquanto isso, já usou a ferramenta de busca do fórum?

Na Busca encontrei varios exemplos muito uteis, tenho aprendido muito aqui, não somente na duvida atual. Encontrei bastante exemplo que fala sobre remover acentos e bastante sobre pesquisar em varias colunas em listbox, mas sobre ignorar acentos em combobox não encontrei.

Será isto que pretende ?

Boa tarde, JPaulo

Obrigado pelo exemplo, mas infelismente não funcionou. Exemplificando melhor o que eu gostaria, tenho um combobox alimentado por uma consulta de cidade concatenado com estado, quando vou fazer a busca exemplo (São Paulo, São Carlos) ou digitar a letra com acento no caso (ã) a lista de pesquisa volta la para a primeira cidade

Quer anexar aqui parte do seu banco para analise e ajuda ?
Assim é dificil ajudar.

Bom Dia,

No Exemplo a seguir tenho o formulário FormCadastroDeEmpresas, onde tem um ComboBox CidadeUF. Esse ComboBox é alimentado por uma consulta ConsComBoxCidadeUF. Ele exibe na pesquisa, exibe no formulário e grava na tabela, tudo com acento e em maiúsculo. Ao duplo click, se estiver vázio ele abre o formulário FormCadastroDeCidadeUF em modo de adição ou se tiver preenchido ele abre a cidade que esta em modo edição, até aqui tudo perfeito.
O Problema é que ao execultar a pesquisa, como exemplo São Paulo, ao digitar (Sao) a lista de pesquisa volta para a primeira cidade, como se não tivesse São Paulo na Lista.
O que eu gostaria é que ele não considere o acento.

Neste exemplo, eu consegui fazer ignorar os acentos, mas perdi a função duplo click quando o campo esta preenchido onde deveria abrir o formulário de cadastro de cidade em modo editar.
Obs: O módulo ModAcento não é de autoria minha e também não sei de quem é.

Neste exemplo, funciona tudo, só que no formulário ele mostra a cidade sem acento, não fica apresentavél

Olá a todos,

Vic Rossi, estive analisar o seu exemplo da mensagem nr 7 e na minha opinião não consegue ter as duas opções numa combo.
Ou seja procurar com e sem acentuação, no entanto veja o que fiz se ajuda:
cld.pt/dl/download/c3906cdd-690c-467e-b993-818386a67998/Exemplo.Vic_StrConv.zip
Copiar link acima e colar no navegador

Por vezes devemos mudar o problema ou como costumo dizer "mudar a abordagem", estou a fazer um exemplo de como poderia ser uma solução.

Aproveito para informar que a modelagem da base de dados não é a mais correta, pois se tem uma tabela de cidades na empresa apenas devia ter o numero do registo, assim é que é uma base de dados relacionada, mas não vamos fugir do tema.

Abraço

Boa Tarde, Ahteixeira

Obrigado pelo seu exemplo, mas desta forma que fez é a que fiz que perde a função de duplo click

Olá Vic Rossi,

Alterei o nome da combo para não existir conflito com origem dos dados, deve ajustar o seu codigo


No entanto, não creio que esta seja a melhor solução, já iniciei exemplo, mas não acabei, vou mostrar outra forma de fazer o que pretende.
Abraço

Muito Obrigado, fico no aguardo

Fiz conforme seu exemplo mas mesmo assim o duplo click com o combo preenchido não funciona. pelo fato de alterar o campo Me.CidadeUF_frm = Me.CidadeUF_frm.Colunm(2) na hora do duplo click ele deixa de ter a Colunm(0) que seria o IDCidade

Olá Vic Rossi,

A modelagem de dados a a consulta de junção da cidade com o estado não ajuda, mas consegue-se resolver com o DLookup, veja se é isto:
cld.pt/dl/download/106630b6-7841-472a-928e-aad76d350df4/Exemplo.Vic_StrConv_rev.zip

Se tiver oportunidade, vou demonstrar de outra forma para obter o que pretende.

Abraço

Olá Vic Rossi,

A outra forma que permite pesquisar com e sem acentuação foi através de uma caixa de listagem que filtra ao escrever numa caixa de texto, veja o código:

Código:

Private Sub txtFiltro_Change()
'ahteixeira 2022
'filtro ignora acentuacao
    Dim strSQL As String
    strSQL = "SELECT * FROM qyrCidadeUF WHERE SemAcentos Like '" & StrConv(Me.txtFiltro.Text, 2, 1049) & "*'"
    Me.Lista.RowSource = strSQL
End Sub

Adaptei um exemplo ao seu formulario para demonstrar outra forma de obter o mesmo resultado:
cld.pt/dl/download/db740209-4d00-4bcc-a925-4ad139194242/frmSelect_PesquisaIgnoraAcentuacao.zip

Abraço a todos

Bom dia, ahteixeira,

Perfeito, no exemplo que me fez resolveu exatamente como eu queria, fiz apenas alguns ajuste para mostrar na lista de pesaquisa também com acento, coisa mínima, sou totalmente iniciante no Access e esta não é minha profissão, estou apenas criando um banco de dados para Meu uso pessoal, tenho aprendido bastante aqui e você me ajudou muito,

Obrigado a Você e a todos do Forum

Segue axeno do exemplo final

Olá Vic Manson Rossi,

Ficamos felizes por ajudar, obrigado pelo retorno, o fórum agradece.
Está no fórum certo para aprender

No seu exemplo não pesquisa com acentuação, teste "são paulo".
O exemplo nr. 15 resolve o problema com "outra abordagem"

Sumula, até à data desconheço como pesquisar com e sem acentuação numa combobox.

Abraço a todos

Entendi, realmente se digitar São Paulo com acento não pesquisa, mas da forma que você fez me atendeu 100%, na hora da pesquisa não digito o acento este era o meu problema, mas mesmo assim vou ver como fica com o exemplo nr 15, só não sei onde ele fica