MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Filtro Semanal

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Filtro Semanal Empty Filtro Semanal

    Mensagem  Agravina 5/11/2013, 11:41

    Bom Dia a todos!
    Preciso criar um filtro semanal, mensal e anual
    Filtrar subform através das cx opções semanal, mensal , anual
    Já fiz uma busca mas não achei nada , se alguém tiver um tópico ou exemplo manda ai.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  criquio 5/11/2013, 11:47

    Não entendi muito bem. Semanal seria de segunda a sexta? Dentro da semana atual ou todas as semanas. Mensal e anual tambem dentro do mês e ano atuais ou uma lista de meses e anos? Exemplifique por gentileza. Quantos mais detalhes melhor.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Agravina 5/11/2013, 12:04

    Semanal seria segunda a domingo se possivel dentro do mês vigente ,mensal mês vigente e anual da mesma forma.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Assis 5/11/2013, 12:24

    Boa tarde Criquio
    Vou tentar ajudar ...


    .................................................................................
    *** Só sei que nada sei ***
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Agravina 5/11/2013, 12:31

    Boa Assis ,mas preciso aplicar em um subform e semana tem como ser Segunda a domingo?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Assis 5/11/2013, 12:37

    Agravina
    No comando semana altere esta linha :

    Me!DATAFIM = DateAdd("d", 6 - Hoje, Data)
    Aonde está 6 ponha 8

    Pode postar a Bd





    .................................................................................
    *** Só sei que nada sei ***
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Agravina 5/11/2013, 12:54

    Assis Segue bd!
    Anexos
    [Resolvido]Filtro Semanal AttachmentFiltro Semanal.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (214 Kb) Baixado 60 vez(es)
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Assis 5/11/2013, 13:46

    Teste por favor


    .................................................................................
    *** Só sei que nada sei ***
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Agravina 5/11/2013, 13:49

    Ótimo Assis é isso mesmo!
    Obrigado até a próxima!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Assis 5/11/2013, 14:11

    Obrigada pelo retorno
    Estamos aqui..............


    No botão de eliminar altere para este comando:


    On Error Resume Next
    If MsgBox("Eliminar Registo no Valor de ?  " & Format(ValorNota, "0.00") & Chr(10) + Chr(13) & NomeFornecedor, vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    MsgBox "Registo Anulado com Sucesso", vbInformation, "Aviso"
    Exit Sub
    Else
    MsgBox "Registo Não foi Anulado", vbInformation, "Aviso"

    Exit Sub
    End If


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

    Conteúdo patrocinado


    [Resolvido]Filtro Semanal Empty Re: [Resolvido]Filtro Semanal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 00:02