[Resolvido]Caixa de combinação mostrar tudo ?

Boa tarde Amigos

A minha caixa de combinação está assim definida.



Mas queria fazer o que explico na imagem abaixo se for possível.



Obrigado

Assis

Sugiro que faça um subformulário continuo, com uma consulta seleção exibindo

todos os registros.

Na origem da linha da caixa de combinação, coloque:

"Todos";"Entrada";"Saida"

Veja que aqui, pode escolher, já de imediato exibir todos, seria a exibição padrão,

então não precisaria a opção "Todos" na combobox.

Na propriedade Após Atualizar da combobox, coloque:

Select case Me.TipoMov
         Case "Todos"  'Se preferir o padrão, essa opção não precisa.
                      Me.NomeSubFormulário.Form.RecordSource =  Copie e cole a SQL da consulta que exibe todos os registros
         Case "Entrada"
                  Me.NomeSubFormulário.Form.RecordSource =  Copie e cole a SQL da consulta que exibe os registro com o critério "Entrada"
         Case "Saida"
                  Me.NomeSubFormulário.Form.RecordSource =  Copie e cole a SQL da consulta que exibe os registro com o critério "Saida"
End Select

[ ]'s

Noob

Pode dar um up ?

Ao abrir a BD, abre um calendário e escolhe a data 03-04-2018, pois tem movimentos de Entrada e Saídas.

Ao abrir o formulário tem em cima do lado direito a caixa de combinação, para selecionar "Entrada", "Saída" , e ???? Todos.

Depois em baixo tem um botão para imprimir, ou só entradas, só saídas ou tudo.

Obrigado

Taí

Bom Dia Noob

Só não funciona a parte de "Imprimir" Todos.

Dá para imprimir só as entradas assim como só as saída, mas estando "Todos" na caixa de combinação a impressão fica em branco.

Vou tentar resolver.

Obrigado

Sim

Deixei para tu fazeres, baseado no que fiz.

Caso não consigas, retorne!

[ ]'s

Obrigado Noob

Resolvi assim:

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize

If Forms.movimentosgerais.TipoMov = "Todos" Then
Me.RecordSource = "SELECT tblItensPedido.Ordem, MEs.TxtData, MEs.IdMes, tblItensPedido.ID2, tblItensPedido.Tipo1, tblItensPedido.IDItem, " & _
"tblItensPedido.Produto, tblItensPedido.ValorProduto, tblItensPedido.Tipo, tblItensPedido.CodProduto, tblItensPedido.Setor, tblItensPedido.Qty, " & _
"Nz([ValorProduto])*Nz([qty]) AS ValorT, TblProdutos.unidade, TblProdutos.Preço " & _
"FROM MEs INNER JOIN (TblProdutos INNER JOIN tblItensPedido ON TblProdutos.CodProduto = tblItensPedido.CodProduto) ON MEs.IdMes = tblItensPedido.IDItem " & _
"WHERE (((MEs.TxtData)=[forms].[calendáriodia].[cdatageral])) ORDER BY tblItensPedido.Ordem, MEs.TxtData, tblItensPedido.IDItem;"
End If
End Sub

Ótimo Assis

Valeu o retorno!

Boa sorte!