[Resolvido]Procv no ACCESS

BOM dia!


Tenho uma Tabela ( TB_MP) que consta ITEM /Descrição/ Unidade de MEdida/ Fornecedor/Amostragem.


E criei um formulário com os campos abaixo, para quando digitar apenas o item me retornar as outras informações.


ITEM /Descrição/ Unidade de MEdida/ Fornecedor/Amostragem.


Fiz o seguinte passo cliquei no campo do item e criei evento em AO CLICAR.

Option Compare Database

Private Sub Descrição_AfterUpdate()
Me.item = Me.Descrição.Column(1)
Me.Fornecedor = Me.Descrição.Column(3)
Me.Amostragem = Me.Descrição.Column(4)
End Sub

Private Sub Form_Open(Cancel As Integer)


End Sub
Private Sub item_Click()
Me.desccrição = Me.item.Column(1)
Me.Fornecedor = Me.item.Column(3)
Me.Amostragem = Me.item.Colum(4)
End Sub



Porém quando digito o item não retorna as informações.

Bom dia,

Não consegui compreender ao certo. Todos os campos são listbox? Tente explicar um pouco melhor.

Abraço.

Amigo Cassio.

Não funcionou, acho que e erro no código.

Bom dia,

Tente o seguinte: no evento Ao Abrir do formulário, escreva:

Código:

me.item.RecordSource = "Select * from TB_MP"
me.desccrição .RecordSource = "Select * from TB_MP"
me.Fornecedor .RecordSource = "Select * from TB_MP"
me.Amostragem .RecordSource = "Select * from TB_MP"

No evento Após Atualizar da listbox item escreva:

Código:

Me.desccrição = Me.item.Column(0)
Me.Fornecedor = Me.item.Column(0)
Me.Amostragem =Me.item.Column(0)

E faça o código do evento Após Atualizar com todas as outras listbox, alterando os devidos lugares dos campos.

OBS.: estou considerando que todos os campos são listbox!

Abraço.

Cassio desculpe minha ignorância no conhecimento o que seria uma listbox?

Coloquei em anexo um BD para fazermos os testes, poderia me informara o passo a passo?

lembrando que o objetivo e no Formulário TB_MP eu digitar o item e retornar as demais informações automático.

Boa tarde,

O arquivo está corrompido amigo. Tente upar novamente.

Abraço.

Veja ai agora se vai.

Bom dia,

Então, a solução que postei é utilizada em formulários desacoplados, o que não é o seu caso. Para você a solução mais simples e viável é utilizar-se da barra de pesquisa do proprio Access, para isso basta selecionar o campo que queira filtrar e escrever o valor no campo FILTRO, na parte inferior da tela. Segue print.



Abraço.

Amigo Cassio

Um amigo me indicou utilizar o código abaixo

Para caixa de combinação

Private Sub cboItem_AfterUpdate()
Me.Filter = "item = " & Me!cboItem
Me.FilterOn = True
End Sub

e para caixa de texto

Private Sub txItem_AfterUpdate()
Me.Filter = "item = " & Me!txItem
Me.FilterOn = True
End Sub


Muito obrigado pelo auxilio...