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 : 3535
    Registrado : 06/11/2009

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

    Mensagem  Assis em 4/4/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 ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 4/4/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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 5/4/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 11 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 5/4/2018, 02:19

    Taí
    Anexos
    Assis_Forum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (131 Kb) Baixado 3 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 5/4/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 ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 5/4/2018, 10:08

    Sim

    Deixei para tu fazeres, baseado no que fiz.

    Caso não consigas, retorne! Wink

    [ ]'s
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em 5/4/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 ***

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 5/4/2018, 14:44

    Ótimo Assis

    Valeu o retorno!

    Boa sorte!

      Data/hora atual: 21/10/2018, 11:41