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 por semana através de botão

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 29/6/2019, 18:28

    Bom dia pessoal como ficaria este código em um formulário contínuo para identificar o pagamento de cada semana do mês


    Estou tentando usar este código abaixo que peguei ai no fórum

    Dim hoje
    Hoje= weekday(date)
    me.dtini =dateadd("d",(hoje -1)+2,txdata)
    me.dtFinal =dateadd("d",8 - hoje,txdata)
    como eu mudaria este código para funcionar na semana certa de cada mês no caso seria pegando a primeira semana do mês,a segunda semana,a terceira semana...
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 3/7/2019, 02:04

    você quer identificar a qual semana pertence a data porque no ano são 52 semanas . você consegue extrair a semana usando a função format.
    só não vou saber agora a forma correta da escrita
    me.seu campo =format (me.suadata;w)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 3/7/2019, 02:17

    Boa noite scandinavo bom eu gostaria de exibir os dados da semana do mês atual


    Exemplo o mês tem 4 semanas
    Eu teria 4 botões
    Semana 1
    Semana 2
    Semana 3
    Semana 4
    E através destes botões mostrasse os dados correspondente àquela semana

    Desde já obrigado por ter me respondido
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 3/7/2019, 09:17

    entendi você quer por um filtro em cada botão.
    considerando que a semana se inicia no domingo até sábado. ou de 7 em 7 dias a partir do início do mês?
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 3/7/2019, 13:06

    Bom dia scandinavo tudo bem?
    Sim é exatamente isso mesmo se possível para que eu possa andar com minhas próprias pernas deixa o código comentado para eu entender melhor como ele funciona



    Eu tenho esta parte do código na mensagem 01 eu fico perdido sem saber como funciona cada número deste e ate mesmo a diferença do sinais "+ e - "
    "d",(hoje -1)+2,txdata

    Desde já obrigado
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 4/7/2019, 14:47

    Estou na correria mas achei um arquivo com filtros por datas que estou adaptando para o seu caso.

    vai dando uma olhada e mais um exemplo com estudos das funções.


    Retirado da ajuda do access

    Exibindo datas específicas
    O mês atual:

    DateSerial(Year(Date()), Month(Date()), 1)

    O próximo mês:

    DateSerial(Year(Date()), Month(Date()) + 1, 1)

    O último dia do mês atual:

    DateSerial(Year(Date()), Month(Date()) + 1, 0)

    O último dia do próximo mês:

    DateSerial(Year(Date()), Month(Date()) + 2, 0)

    O primeiro dia do mês anterior:

    DateSerial(Year(Date()), Month(Date())-1,1)

    O último dia do mês anterior:

    DateSerial(Year(Date()), Month(Date()),0)

    O primeiro dia do trimestre atual:

    DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1)

    O último dia do trimestre atual:

    DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0)

    O primeiro dia da semana atual (pressupondo-se que Domingo seja o primeiro dia):

    Date() - WeekDay(Date()) + 1

    O último dia da semana atual:

    Date() - WeekDay(Date()) + 7
    Anexos
    [Resolvido]Filtrar por semana através de botão AttachmentEstudo de Funções.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (243 Kb) Baixado 25 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 5/7/2019, 02:02

    Boa noite scandinavo não ficou bom
    Ficou ótimo melhor que eu imaginava muito obrigado
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 5/7/2019, 15:12

    valeu pelo retorno
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 10/7/2019, 01:31

    Boa noite scandinavo me desculpa em reabrir este tópico no dia que estava usando estava funcionando perfeitamente só que agora eu observei que ele sempre começa a conta do domingo da semana atual eu ate coloquei no primeiro botão para ele fazer a pesquisa na data inicial (pegar o primeiro dia do mês para ver se dava certo só que não estou conseguindo lidar com os demais)
    da forma pegando a primeira semana do mês,a segunda,a terceira,a quarta seria a melhor forma,


    O caminho que você me passou é o caminho certo do que não estou conseguindo adaptar

    Desculpa pelo trabalho

    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 10/7/2019, 14:17

    Bom dia meu scandinavo Eis aqui o modelo do qual estou tentando adaptar os botões por semana este não é o que tem os botões semana1, semana 2, semana 3 Mas o modelo é o mesmo porque como estou no serviço encontrei este modelo mais antigo para enviar
    Espero ter passado as informações correta.

    Este ai tem os filtros mais eu gostaria de saber os gastos por semana



    Abraço
    Anexos
    [Resolvido]Filtrar por semana através de botão AttachmentcontasSemanais.accdb.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (119 Kb) Baixado 12 vez(es)
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 11/7/2019, 19:16

    A grande dificuldade do seu sistema é que tem mês com mais de 4 semanas


    cole esta sql em uma consulta(no exemplo que te passei)
    estou criando uma cmbox para mostrar as semanas disponíveis para criar um filtro


    SELECT tbEntrada.DataEntrada, tbEntrada.Combustivel, tbEntrada.QntEntrada, Format([DataEntrada],"mmmm yyyy") AS Mes, DatePart("ww",[DataEntrada]) AS Semana, Format([DataEntrada],"w") AS DiaNaSemana, Format([DataEntrada],"dddd") AS Dia
    FROM tbEntrada;
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 11/7/2019, 19:24

    Muito obrigado farei isso vou testar ,
    Já pensei será que não teria um código para numera somente a semana do mês atual.



    Porque na semana passada no primeiro botão ele começou a contar assim 07/07/2019 a 13/07/2019
    Agora já na semana seguinte o primeiro botão começou a contar do dia 14/07/2019 a 20/07/2019 sendo que era para contar destro deste mês sempre 07/07/2019 a 13/07/2019

    Abraço
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 12/7/2019, 18:06

    Veja ai......

    coloquei 2 formulários

    1 utiliza a data do sistema como filtro
    2 utiliza uma txt para escolher o mês

    O código esta comentado e o formulário tambem

    '-------------------------------------
    ' Criado Scandinavo
    ' em 12/07/2019
    '-------------------------------------

    'Deleta as semanas criadas
    CurrentDb.Execute "DELETE * FROM tmpSemana"

    Dim DB As Database
    Dim rs As DAO.Recordset

    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tmpSemana") 'Abre a tabela para adicionar as semanas
    'Variaveis
    Dim PrimeiroDia As Date 'primeiro dia do mes
    Dim UltimoDia As Date 'ultimo dia do mes
    Dim PrimeiraSemana As Integer 'numero da primeira semana
    Dim UltimaSemana As Integer 'numero da ultima semana
    Dim Total As Integer 'total de semanas no mes
    Dim S As Integer 'semana

    'Pega os dias utilizando a data do sistema
    PrimeiroDia = DateSerial(Year(Date), Month(Date), 1)
    UltimoDia = DateSerial(Year(Date), Month(Date) + 1, 0)

    'A partir da data identifica a semana
    PrimeiraSemana = Format(PrimeiroDia, "ww")
    UltimaSemana = Format(UltimoDia, "ww")

    'Total de semanas
    Total = UltimaSemana - PrimeiraSemana

    'Adiciona as semanas na tabela temporaria para alimentar a cmbox
    For S = 0 To Total 'de zero ate o total de semanas no mes
    rs.AddNew 'adiciona
    rs("NumeroSemana") = PrimeiraSemana + S
    rs.Update
    Next
    rs.Close
    DB.Close

    Me.Form.Requery 'Atualiza o formulario
    Me.cmbSemana.Requery 'Atualiza a cmbox
    Anexos
    [Resolvido]Filtrar por semana através de botão AttachmentFiltrar Semana.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 9 vez(es)
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 708
    Registrado : 12/04/2016

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  marcelo marques em 13/7/2019, 21:03

    Boa tarde scandinavo agora ficou perfeito
    Obrigado
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  scandinavo em 14/7/2019, 14:45

    valeu pelo retorno.

    Conteúdo patrocinado

    [Resolvido]Filtrar por semana através de botão Empty Re: [Resolvido]Filtrar por semana através de botão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/2/2020, 06:15