[Resolvido]Caixa Texto / AfterUpdate / DLookup

Olá,

Tenho um Formulário com Caixas de Texto Independentes, a primeira Caixa de Texto é a Busca em que ao digitar o código da Loja ele preenche as outras Caixas de Texto, acontece que só vai buscar o primeiro registo dessa loja e não todos os registos dessa loja.

Queria ter todos os registos dessa loja e não só o primeiro, como faço?

O código que tenho é este:

Código:

Private Sub txtBusca_AfterUpdate()

    Me.txtNumCliente = DLookup("cliente", "tblL5951", "loja1=" & Me.txtBusca)
    Me.txtNomeCliente = DLookup("nome", "tblL5951", "loja1=" & Me.txtBusca)

End Sub

Obrigado

DLookup() só retorna 1 registo?
Preciso de uma consulta para retornar um conjunto de registos que coincidam com o que digitei...

Oh gitano,
A caixa de texto só mostra uma linha. Para mostrar mais que uma linha deve utilizar caixa de listagem ou caixa de combinação.
Supondo que tenha caixa de combinação CxcClientes com duas colunas, coloque:

Me.CxcCliente.RowSource = "SELECT Cliente, Nome FROM tblL5951 WHERE Loja1=" & Me.txtBusca & ";"

Mas não dá, por exemplo, para usar uma consulta como base dados do formulário com o critério que quero? Assim nas Caixas de Texto já tinha todos os dados da loja que digitei? Não?

Utilizando caixa de texto só tem uma linha.
O DLookup devolve o primeiro registo encontrado que satisfaça os critérios
Pode-se utilizar DAO para procurar por outros registos.
Depois, tem várias possibilidades:
1 - Caixa de texto com um registo
2 - Caixa de texto com vários registos na mesa linha delimitados, ou não, por separadores
3 - Caixa de Combinação, com uma ou mais colunas em que cada linha é um registo
4 - Caixa de listagem com uma ou mais colunas, em que cada linha é um registo