MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Criar filtros de datas - dados importados do Excel

    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 19/12/2019, 01:29

    Senhores (as), boa noite!

    Preciso de um auxílio, pois não consegui encontrar o erro mesmo pesquisando bastante. rs
    Segue:
    Tenho uma tabela, que preciso importar os dados do Excel, e nestes dados, possui um campo com datas.
    Quando efetuo a importação do campo com formato "data" o Access apresenta erro. Então converti para o formato texto, e assim consigo importar a planilha (Excel). Porém, a partir daí encontrei um problema...

    Mesmo quando executo uma 'Consulta de Atualização' para converter o formato da data, quando utilizo filtros para visualizar a tabela através de uma caixa de 'Caixa de Combinação', ele só reconhece o dia.
    Por exemplo:

    -Se coloco o critério para o período 01/12/2019 até 15/12/2019, ele aparece todos os registros que tiverem datas entre 02 e 15 de qualquer mês e ano.

    Gostaria de restringir a consulta apenas ao período referenciado.

    Seguem anexos para auxílio.

    Desde já, agradeço o apoio.
    Anexos
    [Resolvido]Criar filtros de datas - dados importados do Excel AttachmentfiltroParaDatas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (950 Kb) Baixado 7 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7746
    Registrado : 05/11/2009

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  Alexandre Neves em 19/12/2019, 09:18

    Bom dia
    Na origem da caixa de listagem, coloque
    SELECT [00000000import_Gifs teste].Data_Fiscalizacao, [00000000import_Gifs teste].Nota_Projeto, [00000000import_Gifs teste].N_Gifs, [00000000import_Gifs teste].Tipo, [00000000import_Gifs teste].Estagio, [00000000import_Gifs teste].EPS, [00000000import_Gifs teste].Municipio, [00000000import_Gifs teste].Inconforme, [00000000import_Gifs teste].Ag_Responsavel, [00000000import_Gifs teste].Observacoes, [00000000import_Gifs teste].Data_Envio FROM [00000000import_Gifs teste] WHERE CDate([00000000import_Gifs teste].Data_Fiscalizacao)>=CDate([Formulários]![0000000000000000000000000000]![DataInicial]) And CDate([00000000import_Gifs teste].Data_Fiscalizacao) <=CDate([Formulários]![0000000000000000000000000000]![DataFinal]);


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 20/12/2019, 01:39

    Deu certo! Muito obrigado pelo apoio Alexandre, assim como pela celeridade.

    Só mais uma coisa... quando clico para abrir o formulário, ele apresenta uma mensagem de erro. É possível ocultar a mensagem?

    Obs.: quando a mensagem aparece, basta fechá-la que os filtros funcionam perfeitamente.

    Segue mensagem de erro em anexo.
    Anexos
    [Resolvido]Criar filtros de datas - dados importados do Excel Attachmenterro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 0 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7746
    Registrado : 05/11/2009

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  Alexandre Neves em 20/12/2019, 20:32

    Boa noite,
    Retire o código da caixa de listagem
    No acontecimento AoAbrir do formulário, coloque
    Código:
    Private Sub Form_Open(Cancel As Integer)
        Lista2.RowSource = "SELECT Data_Fiscalizacao, Nota_Projeto, N_Gifs, Tipo, Estagio, EPS, Municipio, Inconforme, Ag_Responsavel, Observacoes, Data_Envio FROM [00000000import_Gifs teste] WHERE CDate(Data_Fiscalizacao)>=CDate([Formulários]![0000000000000000000000000000]![DataInicial]) And CDate(Data_Fiscalizacao) <=CDate([Formulários]![0000000000000000000000000000]![DataFinal]); "
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 20/12/2019, 21:25

    cheers
    Funcionou perfeitamente! Muito obrigado mesmo, Alexandre! Não tenho palavras para agradecer a prestatividade!
    Só tenho a agradecer!
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 21/12/2019, 16:03

    Alexandre, boa tarde!
    Desculpe o incômodo, só mais uma coisa:
    No exemplo que você me passou, funcionou perfeitamente, como já havia dito, porém, adaptei o código (conforme abaixo) mas não funcionou... não consegui encontrar onde está o erro...
    Poderia analisar uma vez mais, por gentileza? E se possível, me esclarecer o que houve, pois pretendo repassar estes filtros para outras tabelas.

    Segue código adaptado:

    listaDiaDia.RowSource = “SELECT CODIGO, CARTEIRA, AG_RESPONSAVEL, Equipe, Dia, Data, Escala, EST, PROJETO, TITULO_OBRA, MUNICIPIO, POSTE_AT, POSTE_BT, TOTAL, TIPO_OBRA, LINHA_VIVA, SI_LINHA VIVA, LIDER, DESLIGAMENTO, SI_DESLIG, DATA_DESLIG, INICIO, FIM, OBSERVACOES FROM [tbl_ProgramacaoObras-DiaDia] WHERE CDate(Data)>=CDate([Formulários]![frm_ProgramacaoObras]![DataInicial] And CDate(Data)<=CDate(Formulários]![frm_programacaoObras]![DataFinal]);”

    O modelo adaptado segue anexo. Observe que mesmo quando o período é definido, a lista não se torna visível.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7746
    Registrado : 05/11/2009

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  Alexandre Neves em 26/12/2019, 23:14

    Boa noite
    Acompanhe o fórum e aprenda todas as lições contidas
    Respeite os nomes reservados (Data, Dia, etc), nomeie campos de forma normalizada SiLinhaViva em vez de SI_LINHA VIVA

    Código:
    Private Sub Form_Open(Cancel As Integer)
        listaDiaDia.RowSource = "SELECT CODIGO, CARTEIRA, AG_RESPONSAVEL, Equipe, Dia, Data, Escala, EST, PROJETO, TITULO_OBRA, MUNICIPIO, POSTE_AT, POSTE_BT, TOTAL, TIPO_OBRA, LINHA_VIVA, [SI_LINHA VIVA], LIDER, DESLIGAMENTO, SI_DESLIG, DATA_DESLIG, INICIO, FIM, OBSERVACOES FROM [tbl_ProgramacaoObras-DiaDia] WHERE CDate(Data)>=CDate([Formulários]![frm_ProgramacaoObras]![DataInicial]) And CDate(Data)<=CDate([Formulários]![frm_programacaoObras]![DataFinal]);"
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7746
    Registrado : 05/11/2009

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  Alexandre Neves em 26/12/2019, 23:18

    Leia e respeite as regras do fórum
    Eliminei-lhe o tema aberto por si, com conteúdo sobre este tema. Não pode repetir dúvidas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 27/12/2019, 01:25

    Peço desculpas pelo erro, não foi intencional.

    Comparando com o código que me enviou, encontrei onde está o erro. Acabei deixando faltar alguns colchetes e parênteses. Muito obrigado pelo retorno.

    Uma medida paliativa que encontrei, foi abrir o formulário através de outro, que a mensagem já não é exibida. Mesmo com os critérios inseridos na consulta.

    Mas ainda assim, estou optando pela alternativa que você deu. Muito obrigado mesmo!

    Vou seguir sua dica, e criar todas as tabelas sem o uso de espaços ou caracteres especiais.
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 30/12/2019, 21:36

    Olá pessoal!

    Eu aqui, mais uma vez...

    Estou com outro campo que tentei aplicar os mesmos critérios de filtro, mas nenhum dos métodos está funcionando... Preciso filtrar o campo DATA_ENERG da consulta na aba Desligamentos.

    Já tentei o método CData (diretamente na consulta, e também no formulário) já tentei através do critério "Entre",já tentei o método ">= e <=" e também tentei a função DataDesligamento: SeImed([DATA_DESLIG] É Negado Nulo;CData(Format([DATA_DESLIG]))) mas nenhum está funcionando...

    Poderiam me ceder mais este auxílio?

    Obs.: quando utilizo o método "Entre" exibe os dados de qualquer mês ou ano. Ex.: Se for inserido o período 01/12/2019 a 31/12/2019 a consulta exibe todos os resultados do mês 10 (apenas na aba Desligamentos - as outras duas já funcionam normalmente).

    Se utilizo o método CData, não exibe nenhum resultado (na aba Desligamentos).

    Já tentei aplicar os mesmos critérios das outras duas abas (Dia-a-Dia e Energização), mas por algum motivo não está funcionando.

    Segue modelo anexo.
    Anexos
    [Resolvido]Criar filtros de datas - dados importados do Excel AttachmentverificarFiltroDatas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (991 Kb) Baixado 5 vez(es)
    avatar
    WS_Lima
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 27
    Registrado : 23/01/2018

    [Resolvido]Criar filtros de datas - dados importados do Excel Empty Re: [Resolvido]Criar filtros de datas - dados importados do Excel

    Mensagem  WS_Lima em 1/2/2020, 21:09

    Senhores, gostaria de compartilhar o que acabei fazendo para resolver a situação.

    Criei uma nova tabela com os campos de de data já formatados como DATA/HORA e através desta nova tabela que coloquei os critérios com filtro de datas. Pois com os campos formatados como "data/hora" a função ENTRE funciona perfeitamente.

    Não é a forma mais técnica de resolver, mas foi o que consegui que deu certo... rsrs

      Data/hora atual: 25/10/2020, 07:22