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]Filtrar Valores direto no Formulário

    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 1/6/2019, 20:10

    Boa tarde,

    Como faço para filtrar valores direto no formulário, tipo, criei uma Listbox no meu formulário, contendo, Data, Posto, e Valor Total, e como critério para filtrar, coloquei campos com Data Inicial e Data Final, bem como um outro campo com as opções de Postos, e na consulta, coloquei os critérios abaixo, que funcionam perfeitamente, pórem, quando eu escolha um período de datas, e um posto, e coloco para filtrar, o valor dentre os critérios, não puxa corretamente, ou seja, continua somando o valor total, de todos os registros que eu tenho na minha tabela.



    Entre [Forms]![1Frm_Lançamentos]![Data_Inicial] E [Forms]![1Frm_Lançamentos]![Data_Final]


    Como "*" & [Forms]![1Frm_Lançamentos]![Posto] & "*"

    =DSoma("Total_Geral";"Tbl_Lançamentos") - Este é o criitério que puxa o valor total, e o que eu quero é que traga o valor total de acordo com os critérios que eu colocar.


    Obrigado desde já.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 636
    Registrado : 11/11/2009

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  scandinavo em 2/6/2019, 13:06

    Posta ai......
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 2/6/2019, 16:55

    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 636
    Registrado : 11/11/2009

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  scandinavo em 3/6/2019, 13:15

    Pela list box esta funcionando formulário 1

    mas eu criei este código que funciona ate a data 01/01/19 formulário 2

    coloque a data 02/01/19 e teste não faz a soma corretamente. e se só colocar ela o código não encontra

    Dim db As dao.Database
    Dim rst As dao.Recordset
    Set db = CurrentDb
    'falta inserir no codigo o criterio Like para filtrar o posto
    Set rst = db.OpenRecordset("Select * from Tbl_Lan?amentos where data1 between #" & Me.Data_Inicial & "# and #" & Me.Data_Final & "#")

    rst.MoveFirst 'primeiro registro
    Do While Not rst.EOF 'vai percorrer ate acabar
    With rst
    Me.txtSoma = Me.txtSoma + rst!Total_Geral
    rst.MoveNext
    End With
    Loop


    rst.Close: Set rst = Nothing
    db.Close: Set db = Nothing
    Anexos
    [Resolvido]Filtrar Valores direto no Formulário AttachmentExemplo 555.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (802 Kb) Baixado 10 vez(es)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 3/6/2019, 14:39

    Scandivano, testei aqui, e a listbox ainda não está somando corretamente, coloquei um período qualquer, e no posto, coloquei Geral-Alles Blau, e não puxou nada.
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 636
    Registrado : 11/11/2009

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  scandinavo em 3/6/2019, 15:31

    se o posto não estiver no período não aparece mesmo. você fez o teste no exemplo que passei ou no seu. fiz uma alteração na caixa de texto que recebe a soma no formato.
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 3/6/2019, 17:43

    Fiz o teste no seu exemplo.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 257
    Registrado : 25/02/2016

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  FranklinJSP em 3/6/2019, 23:16

    Boa noite Ismael !!!

    Em anexo

    Saludos
    Anexos
    [Resolvido]Filtrar Valores direto no Formulário AttachmentExemplo 555 (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (821 Kb) Baixado 7 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 4/6/2019, 01:49

    FranklinJSP

    Testei várias datas, e não filtrou nenhuma, ou seja, não apareceu o resultado da soma.
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 257
    Registrado : 25/02/2016

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  FranklinJSP em 4/6/2019, 15:06

    Bom día Ismael

    Em anexo (esquecí o format na data)

    [Resolvido]Filtrar Valores direto no Formulário Captur28
    [Resolvido]Filtrar Valores direto no Formulário Captur29

    Saludos
    Anexos
    [Resolvido]Filtrar Valores direto no Formulário AttachmentExemplo 555 (FranklinJSP).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (819 Kb) Baixado 7 vez(es)


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 636
    Registrado : 11/11/2009

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  scandinavo em 5/6/2019, 12:48

    Ou pode usar 2 consultas.......
    Anexos
    [Resolvido]Filtrar Valores direto no Formulário AttachmentExemplo 333.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (848 Kb) Baixado 9 vez(es)
    avatar
    Ismael Silva
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 449
    Registrado : 11/12/2017

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Ismael Silva em 5/6/2019, 16:24

    Muito obrigado à todos.

    Resolvido!
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 257
    Registrado : 25/02/2016

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  FranklinJSP em 5/6/2019, 16:39

    Que bom!!!

    lol! lol! lol!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 636
    Registrado : 11/11/2009

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  scandinavo em 5/6/2019, 18:37

    What a Face Franklin a sua alteração ficou muito boa mas alterei esta linha para usar o like

    Set rst = db.OpenRecordset("Select * from Tbl_Lan?amentos where data1 BETWEEN #" & Format(Me.Data_Inicial, "mm-dd-yyyy") & "# AND #" & Format(Me.Data_Final, "mm-dd-yyyy") & "# AND Unidade LIKE '*" & Me.Posto & "*'")
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 257
    Registrado : 25/02/2016

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  FranklinJSP em 6/6/2019, 18:55

    Boa tarde Scandinavo!

    Quanto mais completo for o código, melhor.

    Saludos Very Happy


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

    Conteúdo patrocinado

    [Resolvido]Filtrar Valores direto no Formulário Empty Re: [Resolvido]Filtrar Valores direto no Formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/6/2019, 04:22