textbox não aceita espaço

Bom dia Amigos, sou iniciante e estou tendo um pouco de dificuldade. A pesquisa é a seguinte: eu tenho uma tabela de municípios com código e estado que tb tem código e a intenção é que eu digitando o município eu tenho como resultado o código e o estado. Já procurei no fórum achei alguns posts mas não tem dado certo.

tenho uma textbox de pesquisa que não aceita espaço:

1. Na propriedade evento da Textbox

Private Sub TXT_NOME_AfterUpdate()
LST_NOMES.Requery
End Sub

Private Sub TXT_NOME_Change()
If VarTecla = 1 Then
   VarTecla = 0
   Else
   Me.Recalc
   Me.TXT_NOME.SelStart = 255
   End If
End Sub

Os resultados da pesquisa são mostrado numa listbox
usei o seguinte critério:

Como [Forms]![CONSULTA]![TXT_NOME] & "*"

Muito obrigada.

insira o código abaixo na propriedade ApósAtualizar da sua Caixa de Texto Municipio.
Lembre-se se fazer as alterações e adaptações para o seu projeto.

Caso você não consiga, pedimos disponibilizar o projeto para correção. Lembrando que ele deve estar Zipado

Código:

Dim Rs As Recordset

if not IsNull(suaCaixaDeTextoMunicipio) then

Set Rs = CurrentDb().OpenRecordset("Select SeuCampoMunicipio, SeuCampoCodigo, SeuCampoEstado from SuaTabelaDeMunicipios where SeuCampoMunicipio='" & suaCaixaDeTextoMunicipio & "'")

if rs.RecordCount>0 then
  suaCaixaDeTextoCódigo=rs(1)
  suaCaixaDeTextoEstado=rs(2)
else
  msgbox "Municipio não localizado"
end if

end if

rs.Close


Estou enviando o arquivo pq não deu certo. Muito Obrigada LiveBrain

Oi Avelino, não deu certo.

Vamos lá amiga, usando a dica do Mestre Avelino, faça o seguinte:


No evento Load do Seu Form coloque o código

Código:

TXT_NOME.SetFocus
LST_NOMES.RowSource = "SELECT MUNICIPIOS.NOME_MUNICIPIO, MUNICIPIOS.COD_MUNICIPIO, MUNICIPIOS.NOME_UF, MUNICIPIOS.COD_UF FROM MUNICIPIOS WHERE MUNICIPIOS.NOME_MUNICIPIO Like '" & TXT_NOME.Text & "*'ORDER BY MUNICIPIOS.NOME_MUNICIPIO;"


e no Evento ApósAtualizar do seu Texto TXT_NOME cole esse outro código

Código:

Me!LST_NOMES.Requery
LST_NOMES.RowSource = "SELECT MUNICIPIOS.NOME_MUNICIPIO, MUNICIPIOS.COD_MUNICIPIO, MUNICIPIOS.NOME_UF, MUNICIPIOS.COD_UF FROM MUNICIPIOS WHERE MUNICIPIOS.NOME_MUNICIPIO Like '" & TXT_NOME.Text & "*'ORDER BY MUNICIPIOS.NOME_MUNICIPIO;"


Abraços