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]Extração em Excel Usando Select e Between

    avatar
    thiagosbc15
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/08/2017

    [Resolvido]Extração em Excel Usando Select e Between Empty [Resolvido]Extração em Excel Usando Select e Between

    Mensagem  thiagosbc15 em 26/11/2018, 17:36

    Boa tarde a todos!!!

    Galera por gentileza...estou extraindo em Excel os dados de uma tabela conforme abaixo:

    Acontece que nem sempre a consulta é realizada. Exemplo: Quando coloco 06/11/2018 à 20/11/2018 ele me traz a informação do dia 06/11/2018. Mas quando coloco de 06/11/2018 à 06/11/2018, ele me retorna que não existe registro neste periodo.

    Obs: Existe um único registro de 06/11/2018.

    SQL = "SELECT * FROM tbl_Manutenção WHERE Data_Manutencao BETWEEN #" & Me.data1 & "# AND #" & Me.data2 _
    & "# AND Servico='" & Me.txt_Servico & "' AND Status='REALIZADO' ORDER BY Data_Manutencao DESC"

    ' Executa Select
    Set rst_1 = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
       
    ' Verifica se há registro nas consultas
    If rst_1.BOF = True Then Result_1 = "Sem registros"

    ' Se não houver registro na base sai da macro
    If Result_1 = "Sem registros" Then
           MsgBox "Nenhum registro localizado!", vbQuestion
           Result_1 = Empty
           Exit Sub
       End If
       
       ' True = Tornar arquivo visivel, False = Não visivel
       appExcel.Visible = True
       
       ' Nomeia primeira Guia
       appExcel.Worksheets(1).Name = "Manutenção"
       
       ' Se Select for <> vazio, realiza preenchimento da Guia 1
       If Result_1 = Empty Then
       
           appExcel.Worksheets(1).select
           appExcel.ActiveSheet.Range("A1") = "ID MANUTENÇÃO"
           appExcel.ActiveSheet.Range("B1") = "DATA CADASTRO"
           appExcel.ActiveSheet.Range("C1") = "DATA MANUTENÇÃO"
           appExcel.ActiveSheet.Range("D1") = "FILIAL"
           appExcel.ActiveSheet.Range("E1") = "OPERAÇÃO"
           appExcel.ActiveSheet.Range("F1") = "PLACA"
           appExcel.ActiveSheet.Range("G1") = "TIPO"
           appExcel.ActiveSheet.Range("H1") = "SERVIÇO"
           appExcel.ActiveSheet.Range("I1") = "DESCRIÇÃO"
           appExcel.ActiveSheet.Range("J1") = "MOTIVO"
           appExcel.ActiveSheet.Range("K1") = "MARCA DE FOGO"
           appExcel.ActiveSheet.Range("L1") = "RETORNO RECAPEAMENTO"
           appExcel.ActiveSheet.Range("M1") = "KM"
           appExcel.ActiveSheet.Range("N1") = "PRESTADOR"
           appExcel.ActiveSheet.Range("O1") = "ORDEM DE SERVIÇO"
           appExcel.ActiveSheet.Range("P1") = "MECANICO"
           appExcel.ActiveSheet.Range("Q1") = "USUARIO"
           appExcel.ActiveSheet.Range("R1") = "STATUS"
           
           appExcel.ActiveSheet.Range("A2").select
           appExcel.ActiveCell.CopyFromRecordset rst_1
           appExcel.columns.AutoFit
           
       End If


    Desde já agradeço a todos.
    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 01/08/2011

    [Resolvido]Extração em Excel Usando Select e Between Empty Re: [Resolvido]Extração em Excel Usando Select e Between

    Mensagem  ronaldojr1 em 26/11/2018, 19:51

    boa tarde,
    comigo aconteceu isso varias vezes.rs
    tive q transformar a data em formato americado, ou seja,
    06/11/2018 = 11/06/2018

    se vc não fizer a conversao o access da umas bugada mesmo, as vezes ele trabalha em formato brasileiro e as vezes nao.
    vai entender!
    veja se no seu caso funciona se fazer essa conversao de datas.

    abraços
    avatar
    thiagosbc15
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 24/08/2017

    [Resolvido]Extração em Excel Usando Select e Between Empty Re: [Resolvido]Extração em Excel Usando Select e Between

    Mensagem  thiagosbc15 em 27/11/2018, 11:03

    Ronaldo, bom dia.

    Cara muito obrigado. Funcionou perfeitamente kkkkkkkk

    ronaldojr1
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 01/08/2011

    [Resolvido]Extração em Excel Usando Select e Between Empty Re: [Resolvido]Extração em Excel Usando Select e Between

    Mensagem  ronaldojr1 em 27/11/2018, 12:12

    Opa é nois.
    O fórum agradece o retorno.


    Conteúdo patrocinado

    [Resolvido]Extração em Excel Usando Select e Between Empty Re: [Resolvido]Extração em Excel Usando Select e Between

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/5/2019, 04:29