Lista de caixa Combinada

[Nelinhor]

Boa Tarde

Carros amigo de blog

ISSO TUDO É NO ACCESS 2007

Estou com um problema e não estou sabendo resolver na minha Caixa Combinada eu estou conseguindo trazer os valores tando pela consulta como alterando na OPÇÃO --> ORIGEM DA LINHA isto selecionando a Caixa de Combinação mundo para a tabela aonde consta os dados que eu quero trazer para varios FIELD.

Exemplos:

Eu no filed de buscar que é a Caixa Combinada eu seleciono ou digito o nome que eu quero.

Ele me traz para o filed nome = a Caixa Combinada

Só que eu quero que ele traga também os outros dados desta pesquisar.

Tais como o ENDEREÇO, BAIRRO, CIDADE, ESTADO, CEP e outros mais.

Lembrando que todas estas informações se encontra na mesma tabela.

Também foi feito por me uma field de pesquisar também para trazer estás informações ele também fuinciona mais eu tenho que digitar o nome completo e eu gostaria de usar uma combinação, como usar no LIKE.

Este é CODE para o field de pesquisar

Private Sub txtBuscar_AfterUpdate()
Dim Nom As String
Dim NNom As String

Nom = Len(RTrim(txtBuscar))
MsgBox "Nome do Prestador: " & Mid([NOME], 1, Nom)
Me.NOME = Mid([NOME], 1, Nom)
NOME = Me.NOME
MsgBox "Nome do Prestador: " & Me.NOME

Me.NOME = DLookup("NOME", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.ENDEREÇO = DLookup("ENDEREÇO", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.BAIRRO = DLookup("BAIRRO", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.CIDADE = DLookup("CIDADE", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.CEP = DLookup("CEP", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.ESTADO = DLookup("ESTADO", "tb_Cliente", "NOME ='" & txtBuscar & "'")
Me.IDENTIDADE = DLookup("IDENTIDADE", "tb_Cliente", "NOME ='" & txtBuscar & "'")

End Sub

Atenciosamente,

[MrMALJ]

Amigo se puder post seu banco para que possamos analisar melhor e retornar uma solução, pois aparentemente sua expressão parece funcional.