[Resolvido]Problema com ComboBox

Boa noite Amigos.

Encontrei diversos tópicos e exemplos no forum. Comparei com o meu BD e não consigo identificar o problema.

Problema: "Quanto entro na comboBox, se eu não pressionar a tecla space, não consigo selecionar valores da lista através da digitação/autocompletar."

Uso Access 2003 e meu Forms é contínuo.
Tabela Vendedor: "ID"; "Vendedor"; "Cidade"
Tabela Cidade: "ID"; "Cidade"
FormsContinuo Cadastro: txtBox "ID"; txtBox "Vendedor"; comboBox"Cidade" 'vículados a tabela Vendedor
ComboBox"Cidade" SELECT Cidades.ID, Cidades.Cidade FROM Cidades ORDER BY [Cidade]; Sendo fonte de controle= "cidades" e no evento ao receber foco = Me.Cidade.Dropdown


Fico gratos aos que puderem orientar-me.
Anexo também um pequeno BD de exemplo.

Obrigado

Olá Amigos.
Alguma sugestão?
Obrigado

Camarada Luiz...

Vc reparou que no início de cada nome das cidades tem realmente um espaço?!

Experimente remover esses espaços em branco no início de cada cidade que funcionará...

Veja a pequena modificação que fiz na origem da combobox...

Até +

Olá amigo.

Acabei de entrar fórum.
Estou digitando num tablete.

Incrível! Estou a dois dias quebrando a cabeça neste BD. Acho que se não fosse você ficaria Mais dois meses!!!

Quanto li seu alerta sobre o problema, não sabia se ria ou chorava. Alegre por descobrir o problema e triste em saber que tinha que corrigir mais 500 registro.

Curioso em saber quais alterações você fez na origem da coboBox, larguei o tablete e fui para o notebook para poder baixar o BD de exemplo.

E valeu a pena. Fiquei feliz.
Valeu Amigão.
Você é fera!!!
Parabéns e Obrigado.

Amigo Luiz, você poderia ter elaborado uma rotina para fazer essa atualização em todos os registros com um só clique. No caso, eram mais de 500. Imagina se fosse mais de 500 mil ou mais de 5 milhões. Usando um Recordset para atualizar a tabela, um Do While para fazer um loop na tabela e o Trim que retira os espaços, você faria tudo isso em uma só tacada:

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Do While Not rs.EOF
    rs.Edit
    rs!NomeCampo = LTrim(rs!NomeCampo)
    rs.Update
    rs.MoveNext
Loop

rs.Close
Set rs = Nothing

LTrim retira espaços à esquerda, RTrim retira espaços à direita e Trim retira dos dois lados.

Valeu Luiz... Fico feliz por ajudar, até porque já recebi ajuda de muitos colegas aqui nesta comunidade...

Inclusive do criquio, aqui na MaximoAccess, e no orkut, onde lá só o conhecem como Valdino...

Criquio, esse forma de tirar espaços que vc postou é muito útil mesmo... vou até salvar aqui...

Bom trabalho Luiz e valeu Valdino...

Olá Criquio.

Valeu pela participação e pelas informações.

Algum tempo atrás, você havia me passado uma rotina para excluir espaços, pontos, barras, etc, de um campo da tabela. Quando o Bão alertou-me do problema, lembrei-me da rotina. No entanto, o campo em questão continha espaços no inicio e no meio, e somente os do inicio teriam que ser removidos, então não seria possível usar aquela rotina. De tudo isto, fica a lição:

Diante de um problema que lhe parece impossível resolver, não desanimar, havendo uma solução, alguém aqui no fórum a terá.

Obrigado Bão. Obrigado Criquio.
Parabéns.

Ótimo. Só como mais uma dica, eu costumo, nesses casos, utilizar o Trim, que retira espaços tanto à direita quanto à esquerda e somente à direita e à esquerda. Espaços entre palavras não são alterados.

Boa noite,
Só um pitaco...Criquio poderia explicar como funciona o trim?