[Resolvido]Critério de consulta para exibir todos os registros ou apenas um registro.

Bom dia pessoal. Estou com um problema na criação de uma consulta no Access 2003. Possuo uma tabela com todos os produtos cadastrados e uma outra com os pedidos e apenas os produtos específicos do pedido. A condição seria mostrar em uma caixa de combinação de um formulário, somente os produtos referentes ao pedido (caso selecionado) em um formulário principal, ou exibir todos os produtos, caso não selecionado nenhum pedido. Meu problema é que ao não selecionar nenhum pedido, o resultado é apenas dos produtos que constam nas duas tabelas (não está sendo exibido os produtos que constam apenas na tabela produtos e não constam na tabela pedidos). Já tentei o seguinte critério: Como [Formulários]![Entprod]![Entprod1].[Form]![pedido] Ou (Como "*" & [Formulários]![Entprod]![Entprod1].[Form]![pedido] & "*" Ou "ÉNegado Nulo"). Agradeço antecipadamente pelas contribuições.
Obs: Havia me esquecido de citar que na consulta, criei associação para as duas tabelas, com o critério de associação para exibir todos os registros da tabela "produtos" e "somente os registros de pedidos quando os campos forem iguais".

Alguem pode me ajudar por favor?

Muito confuso. pode postar seu bd?

E pretende os resultados de qual tabela?

Caro colega tauron. Vou tentar postar o bd. Mais tentando explicar melhor. Tenho uma tabela "produtos", com a coluna produtos (onde estão cadastrados todos os produtos que trabalho) e uma outra tabela "pedidos" também com uma coluna produtos (onde estão cadastrados apenas produtos que necessito de pedido para dar entrada) Nesta tabela "pedidos" não tenho todos os produtos cadastrados. Quando vou dar entrada em um determinado produto, tenho uma caixa de combinação que caso eu não selecione nenhum pedido, quero que mostre todos os produtos cadastrados na tabela "produtos" e caso selecione algum pedido, quero me mostre apenas os produtos específicos do pedido selecionado, cadastrado na tabela "pedidos".
Minha consulta tem relacionamento de um para todos (produtos-pedidos), porém ao colocar o critério na consulta, caso não selecione nenhum pedido, me mostra apenas os produtos cadastrados nas duas tabelas (não exibe todos os produtos cadastrados na tabela produtos).
Obrigado pela atenção.

Bom dia Fernando,

Ainda ficou meio confuso, mas vamos lá.

Pelo que entendi, no seu formulário possivelmente tem pelo menos 2 campos como descreveu: Um com "txtPedido" e outro com "txtProduto".

Nesse campo Pedido, coloque no evento "Ao perder o foco" assim:

Código:


Dim nPed As Long

Private Sub txtPedido_LostFocus()
    nPed = Nz(Me.txtPedido.Value, "")
    
    If nPed <> "" Then
        Me.txtProduto.RowSource = "SELECT [tbl_Pedidos].[Produto] " & _
        "FROM [tbl_Pedidos] WHERE [tbl_Pedidos].[Pedido] = " & nPed
    Else
        Me.txtProduto.RowSource = "SELECT [tbl_Produtos].[Produto] " & _
        "FROM [tbl_Produtos]"
    End If
End Sub

E no evento "Ao carregar" do seu form assim:

Código:

Private Sub Form_Load()
    nPed = Nz(Me.txtPedido.Value, "")
    
    If nPed <> "" Then
        Me.txtProduto.RowSource = "SELECT [tbl_Pedidos].[Produto] " & _
        "FROM [tbl_Pedidos] WHERE [tbl_Pedidos].[Pedido] = " & nPed
    Else
        Me.txtProduto.RowSource = "SELECT [tbl_Produtos].[Produto] " & _
        "FROM [tbl_Produtos]"
    End If
End Sub

Qualquer coisa, altere os campos da consulta de acordo com suas necessidades.

Não esqueça de deixar a declaração da variável "nPed" no topo do módulo.

Caso não seja exatamente isso que esteja querendo, tente postar o BD para podermos entender melhor.

boa tarde livio. Gosto bastante de trabalhar com o access, porém devo confessar que não conheço nada de linguagem em vb. Estou enviando o BD para uma olhada. O que me referi na pergunta como "pedido" está em meu bd como "empenho". Minha consulta está em "origem da linha" da caixa de combinação "prod"  do subformulário.
obs: utilizei o critério na coluna "empenho" da consulta. Caso eu copie esse mesmo critério tambem para a coluna produtos e altere o mode de exibição da coluna empenho para "agrupar por", irá mostrar todos os registros, porém ficará repetido.

Saudações

Bom, implementei o código aqui mas não sei se era o que realmente esperava.

Não chequei a fazer alteração estrutural no BD, mas de qualquer forma, fica algumas dicas:

* Tente padronizar os nomes das tabelas, formulários, consultas, campos das tabelas e objetos dos formulários, pois quando for realizar manutenções, ficará mais fácil de entender;
Evite usar acentos e espaços nos nomes dos campos.

* É bom sempre saber pelo menos o mais básico do código VBA para quem trabalha com o Access, por mais básico que seja.
Não é sempre que você irá precisar de algum código, mas vez ou outra terá que implementar alguma coisa assim nos seu projeto.

boa livio, era exatamente disso que precisava. Só uma observação, ao selecionar o empenho, está repetindo os produtos. Ex: Açucar, Açucar, Açucar. Pode me enviar o comando e onde o encaixo para agrupar os produtos (não repetir os mesmos)?

Grato pela colaboração

Ops. Acabei me esquecendo disso. Segue novamente.

bom dia livio. Desculpe por não postar nada antes, pois tive que me ausentar por um tempo.
Faltou mais um pequeno detalhe, que tentei resolver procurando exemplos na net, mais como disse anteriormente, preciso aprimorar muito meu conhecimento em vb.
Estou precisando classificar os produtos em ordem crescente pela descrição. Peço a gentileza de me postar o comando ou o bd corrigido.
Abraço.

Obrigado pelo apoio colegas.
livio, consegui resolver comparando a última versão que postou com a anterior. Faltava inserir o termo DISTINCT na linha do comando para exibir todos os produtos da tabela "produtos".

Muito obrigado pela atenção e colaboração.

É simples, só adicionar no final da na consulta um ORDER BY.