(Resolvido) Busca rápida com caixa de combinação

[RRH]

Estou tentando criar uma busca rápida para os registros mas ao criar uma numeração automática com ano a caixa combinação não que mais funcionar, o que não ocorria quando era somente numeração automática. Será qeu tem como adaptar?

Download aqui!!!

Editado Fevereiro 10, 2010 por RRH

[davidctba]

Olá RRH, esse seu código so ira funcionar se o campo NR da sua tabela estiver como numero....

Abaixo eu mando um trexo do meu codigo de busca rapida em ComboBox que funciona para campos Texto na tabela...

Me.quantidade = DLookup("quantidade", "pedidos", "cod =" & pedido_Pedidos)

Me.data = DLookup("data", "pedidos", "cod =" & pedido_Pedidos)

espero ter ajudado...

[RRH]

Ok, mas se o campo estiver como numero o código de numeração automática com ano não funciona. Você pode me explicar o seu código?

[Leandro Abbade]

Boa noite amigo,

No evento atualizar da combo tente assim:

Me.nome = DLookup("nome", "tbl_dados", "nr =" & cbocliente)
Me.idade = DLookup("idade", "tbl_dados", "nr =" & cbocliente)
Me.sexo = DLookup("sexo", "tbl_dados", "nr =" & cbocliente)

[RRH]

Tentei mas não deu certo...

[Leandro Abbade]

Bom dia amigo,

Tente sempre informar o que aconteceu... e não uma simples resposta vaga: Tentei mas não deu certo...

Aparece alguma mensagem de erro?

[RRH]

Não detalhei melhor porque simplesmente não funcionou! Faça um teste aí e verás que não funciona e não exibe msg de erro, ou talvez eu tenha feito errado. Obrigado.

[MrMALJ]

Como já foi mensionado anteriormente o código só funcionária se fosse numero, como é texto deve ficar assim:

Me.nome = DLookup("nome", "tbl_dados", "nr ='" & cbocliente & "'")

Me.idade = DLookup("idade", "tbl_dados", "nr ='" & cbocliente & "'")

Me.sexo = DLookup("sexo", "tbl_dados", "nr ='" & cbocliente & "'")

Ok!?

[RRH]

MrMALJ, agora sim funcionou, muito obrigado a todos...