MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3341
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qua 04 Abr 2018, 20:19

    Boa tarde Amigos

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

    [Você precisa estar registrado e conectado para ver esta imagem.]

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

    [Você precisa estar registrado e conectado para ver esta imagem.]

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Qua 04 Abr 2018, 23:34

    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


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3341
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 05 Abr 2018, 00:50

    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
    Anexos
    Assis_Forum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (910 Kb) Baixado 4 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Qui 05 Abr 2018, 02:19

    Taí


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3341
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 05 Abr 2018, 10:02

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Qui 05 Abr 2018, 10:08

    Sim

    Deixei para tu fazeres, baseado no que fiz.

    Caso não consigas, retorne! Wink

    [ ]'s


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3341
    Registrado : 06/11/2009

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

    Mensagem  Assis em Qui 05 Abr 2018, 12:55

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3592
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho em Qui 05 Abr 2018, 14:44

    Ótimo Assis

    Valeu o retorno!

    Boa sorte!


    .................................................................................
    Noobezinho - Balem

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não  ajudo novamente .

      Data/hora atual: Qua 25 Abr 2018, 19:18