[Resolvido]Aplicar filtro em formulário

Bom dia pessoal,

Gostaria de pedir ajuda a vocês, pois estou tentando fazer os formulários do meu primeiro projeto e algo está errado com a aplicação de filtro.

Exemplo. Eu criei um formulário para cadastro de produtos, com botões para manipulação do registro e até aí tudo bem. O problema é que quero colocar uma caixa de seleção para escolher um produto pelo nome e mostrar no formulário esse registro, o que acontece é que independente do produto que eu seleciono ele mostra o próximo registro da tabela relacionada ao formulário.

Quando adicionei a caixa de seleção o formulário eu marquei a opção para mostrar no formulário o registro que eu escolher, agora não sei se precisa de mais alguma coisa para funcionar perfeitamente.

Aguardo a ajuda de vocês, obrigado.

A caixa de listagem está no form de cadastro de produto que altera apenas a tabela de produtos.

Sua ListBox deve ter na Propriedade Origem da Linha uma instrução SQL que retorne os campos ID e Nome da tabela de Produtos.
Algo assim:
SELECT TabelaProdutos.CódigoProduto, TabelaProdutos.NomeProduto FROM TabelaProdutos ORDER BY TabelaProdutos.NomeProduto;

Obs: deve mudar os Nomes dos controles conforme os seus.

Depois, no evento Após atualizar da sua ListBox, coloque este código:

Private Sub NomeListBox_AfterUpdate()
   Dim rs As Object
      Set rs = Me.Recordset.Clone
         rs.FindFirst "[CódigoProduto] = " & str(Me![NomeListBox])
         Me.Bookmark = rs.Bookmark
      Set rs = Nothing
End Sub

Hum... quando voltar para casa vou tentar e te dou o feedback, obrigado norbs.

Olá

Alem da ótima dica do Norberto, veja também o meu tutorial abaixo, que possui vídeo e arquivo exemplo:

Tutorial sobre filtragens

Bom estudo!

Colega Johnnny, boa tarde, tudo tranquilo.... assim antes de postar vá primeiro no famoso "busca". Sua dúvida foi imensamente debatido no forum. digite "lá" filtro e veja o resultado. e caso assim mesmo achar e não conseguir adaptar ou coisa parecida retorne que o forum lhe ajudará no que preciso for.....
Espero que compreenda....

Desculpe, na próxima informo que não encontrei a resposta antes. Obrigado.

norbs, o código que me passou funcionou perfeitamente, você poderia me explicar ele? Ainda não entendo de VB.

Obrigado.

Beleza vou dar uma olhada nisso.

Só mais uma duvida relacionada. Quado eu crio um novo registro ele não aparece na caixa de combinação a menos que eu feche e abra novamente o formulário.

O que eu poderia fazer para atualizar em "tempo real"?

Desde já agradeço.

Beleza, adicionei no botão e funcionou certinho.


Agora estou com uma situação um pouco mais complicada norbs,

Tenho um form para cadastro de estoque que relaciona a tabela produto e a estoque em si.

Queria um filtro para nome de produto que ao selecionar o produto ele já inclui um novo registro referente a esse produto, sendo preciso eu digitar apenas o número de série.

Não sei se ficou claro.

Eu tentei utilizar o mesmo código que você me passou para o registro de produto, mas não funcionou. Mesmo com algumas mudanças que chutei ser valido hehehe.

Pode me ajudar com mais essa?

P.S. Acho que daqui a pouco vão fixar o tópico como curso de filtros hahaha. Desculpem a brincadeira, mas realmente não achei essas coisas.

Eu fiz nesse modelo que o Alec me deu uma luz.


alec_rs em 16/2/2012, 11:21
Eu desenvolvi um controle de estoque há algum tempo atrás que tinha uma tabela de produtos e outra com números de serie e um campo que verificava se o produto ainda estava em estoque ou já tinha sido vendido.
Basicamente, a estrutura das tabelas é essa:

PRODUTO
ID_PRODUTO Chave
DESCRICAO
etc...

ESTOQUE
ID_ESTOQUE Chave
PRODUTO_ID_PRODUTO Chave Estrangeira
NR_SERIE
VENDIDO (S/N)

Cada registro da tabela ESTOQUE corresponde a um item adquido. As vendas não excluem o registro (para efeito de histórico), apenas marca ele como vendido.

Não sei se fui claro, mas é por aí.

Alec

Vou tentar explicar,

A tabela de estoque está assim:
EstoqID -> Chave primária
EstoqProdID -> Chave estrangeira
EstoqNumSerie
EstoqVendido

Origem da Linha da combobox está assim:
SELECT [tab_Produto].[ProdID], [tab_Produto].[ProdNome] FROM [tab_Produto] ORDER BY [ProdNome];

Estou usando código assim:

Private Sub Estoque_ProdNome_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[EstoqProdID] = " & Str(Me![Estoque_ProdNome])
Me.Bookmark = rs.Bookmark
Set rs = Nothing
End Sub

Assim ele está listando o ID dos produtos ao invés do nome e não adiciona o produto corretamente.

Se eu inverter em Origem da Linha e colocar tab_Protudo.ProdNome primeiro ele lista pelo nome, mas o seguinte erro quando eu seleciono.

Erro em tempo de execução '13':
Tipos incompatíveis

Certo, vou tentar dessa forma e dou o retorno quando chegar em casa.

Obrigado.

Infelizmente não funcionou norbs, eu seleciono o produto pelo nome mas ele não relaciona o produto ao item do estoque. Algo mudou no meu access, antes quando eu incluia uma combobox no form abria um assistente pra configurar algumas coisas como a coluna de cada campo, mas agora não aparece mais isso. Pode ser alguma coisa que eu desativei?

Mas se eu fizer a combobox com origem em EstoqueProdID só irá listar os itens que já tenho cadastrado na tab_Estoque. O objetivo desse formulários seria listar os produtos que eu tenho cadastro na tab_Produtos para poder cadastrar algum deles no estoque e atribuir um número de série a ele. Talvez o problema seja o modelo que estou tentando fazer.

Hum... não sabia sobre a Fonte do Controle. vou testar aqui.

Os nomes estão corretos, esses da tabela que tinha passado primeiro era só o exemplo que tinham me falado aqui no fórum. O correto é como está na instrução sql mesmo.

O que faltava era o detalhe do FonteDoControle que eu não conhecia.

A única coisa que está em desacordo é que a ComboBox está listando o código ao invés do nome, mas eu conferi com os outros dois forms de produto e cliente onde uso o mesmo tipo de filtro e aparentemente está ok a OrigemDaLinha.

Se na OrigemDaLinha eu colocar o ProdNome na frente do ProdID lista corretamente mas da o seguinte erro.

O valor que você inseriu não é valido para este campo.

Estranho que nos outros formulários da certinho.

norbs antes de mais nada obrigado pela sua paciência e ajuda, com certeza não conseguiria fazer isso aqui sem sua ajuda e de outros amigos aqui do fórum também.

Nesse meio tempo entre sua resposta eu reparei na ColunaAcoplada e dei um F1 nela assim descobri qual sua importância, então fui lá e mudei para 2 assim ela listava os nomes que estavam na coluna 1 e utilizava como controle o ID da coluna 2.

Desculpa a demora pra entender o que você queria dizer sobre deixar a coluna 1 com 0cm só agora é que vi realmente da pra fazer isso pela Folha de Propriedades( antes eu tinha feito isso pelo assistente nos outros forms, mas não está mais abrindo nele direto).

Já deixei do jeito que você falou para padronizar e agora está funcionando certinho.

Vou continuar a brincadeira aqui até encontrar minha próxima pedra no caminho.

Novamente agradeço.

Resolvido.

boa noite , se o cliente erra o nome e depois deixar ela em branco , vai dar o erro como null invalida , como posso tratar esse erro?

noa noite , eu tenho um formulario que udo o codigo de filtro
Dim rs As Object

Código:

 Set rs = Me.Recordset.Clone
         rs.FindFirst "[codigo] = " & Str(Me![localizar])
         Me.Bookmark = rs.Bookmark
      Set rs = Nothing
End Sub

mas quando o cliente apaga o nome  deixa o campo em branco da erro como uso de null invalida, como tratar esse erro?
e quando digita o nome não aparece na lista. o cliente tem que descer a cascata pra procurar