[Resolvido]Abrir relatório corespondente

Boa tarde amigos,tenho neste bd uma listbox "FormForn"que gostaria que quando selecionasse o fornecedor e clicasse no botão ele me abrisse o relatorio com os produtos referente a esse fornecedor,poderiam dar uma olhadinha gente
Abçs.

https://dl.dropboxusercontent.com/u/90217826/FitroForn1.rar

Na sua Caixa de Listagem SelecionarCategoria no Formulario Mude A origem da linha para:

Código:

SELECT DISTINCT tblFornecedor.CodFornecedor, tblFornecedor.NomeFor FROM tblFornecedor;

Mude também para 2 Colunas sua Caixa de Listagem.

No Evento ao clicar do Seu Botão coloque:

Código:


Private Sub Imprimir_Click()
DoCmd.OpenReport "RelProduto", acViewReport, , "[Fornecedor] = " & Me.SelecionarCategoria & ""
End Sub



Deverá funcionar!


Seu Problema era: Na sua Caixa de Listagem voce so pesquisava o Nome do Fornecedor, mas no Relatorio no Campo Fornecedor, era uma Cbo com duas colunas (Cod Fornecedor e nome), e la a coluna Acoplada era a 1, ou seja armazenava o Codigo, entao ao filtrar Nome Fornecedor (da Caixa Listagem) com o Cod Fornecedor (do Relatorio/tabela) nao Funcionava!

O amigo véio,seguinte fiz como disse,só que abre em branco o relatório

Consegui Fabio o relatorio estava para abrir maximizado,foi deixado normal e funcionou.
Mais uma vez obrigado Fabio,valeu mesmo
Abç.

A e verdade, isso eu tinha desativado logo que abri rerererererereere

FabioPaes ou outro colega,neste exemplo que postei, o produto só aparece no FormSub se eu colocar um fornecedor,e como no bd original tenho varios produtos que não coloquei  fornecedor,esses produtos não aparecem, será que tem algum jeito.

Tipo de Relacionamento e que faz isso meu amigo...

Mude a Consulta Origem do seu Formulario FormSub para:

SELECT Tab_Produto.CódigoBarras, Tab_Produto.Descrição, Tab_Produto.Unidade, Tab_Produto.PreçoCusto, Tab_Produto.PreçoUnitário, Tab_Produto.QuantidadeEstoque, tblFornecedor.NomeFor AS Fornecedor, Tab_Produto.Grupo, Tab_Produto.LucroReal
FROM tblFornecedor RIGHT JOIN Tab_Produto ON tblFornecedor.CodFornecedor = Tab_Produto.Fornecedor;

Perfeito Fabio,só que agora aquele produto sem fornecedor não filtra na pesquisa.

Pois e meu amigo, nao ha como filtrar por fornecedor, ja que nao tem Fornecedor...

Talvez o vc colocando um valor la tipo "Sem FOrnecedor"...

Tipo Assim:

SELECT Tab_Produto.CódigoBarras, Tab_Produto.Descrição, Tab_Produto.Unidade, Tab_Produto.PreçoCusto, Tab_Produto.PreçoUnitário, Tab_Produto.QuantidadeEstoque, IIf([NomeFor]<>"",[NomeFor],"Sem Fornecedor") AS Fornecedor, Tab_Produto.Grupo, Tab_Produto.LucroReal
FROM tblFornecedor RIGHT JOIN Tab_Produto ON tblFornecedor.CodFornecedor = Tab_Produto.Fornecedor;

Mas ele não filtra o produto que ta sem o fornecedor.

Pra dar certo esse "sem fornecedor" teria que na tabela tambem e não ta gravando.

Logo mais faco um teste e te falo...

Veja agora....

Agora deu certo,mas diga o que modificou no danado.

Olha coque uma condicao Iif, se Fornecedor for nulo ele coloca Sem Fornecedor, se nao for, ele coloca o Fornecedor....

So tive de Constriir uma consulta e pegar os dados direto dela, pois nao tava funcionando legal nao, la pelo VBA...

Valeu Fábio. Obrigado e bom fim de semana.