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

    Compartilhe

    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

    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.
    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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

    thiagosbc15
    Novato
    Novato

    Respeito às Regras 100%

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

    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

    avatar
    ronaldojr1
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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.


      Data/hora atual: 16/12/2018, 11:21