Atualização de dados retroativos

Boa tarde.

Eu tenho uma base de vendas com um histórico dia a dia , porém, eu recebo as informações novas todos os dias.

o que eu preciso fazer:

Verificar os lançamentos novos, e incluir na base de vendas.
Verificar os lançamentos retroativos, e substituir (ou não) na base de vendas.

Porém, na minha base de vendas, eu tenho algumas informações, mas para poder fazer a alteração, ele vai procurar se a linha é do mesmo periodo, mesmo distribuidor, mesma loja e mesmo produto.
Se tudo isso for igual, ai ele vai analisar o número de vendas. Ele só irá alterar, se o número novo for até -9% o valor do número que já estava na base.
Por ex:
Tenho essa venda

Data 01/06/2014
Distribuidor XX / Loja YY / Produto AA / Venda 100 unidades

Recebi um arquivo hoje com informações retroativas desse dia, ai eu encontro essa mesma linha de informações porém com unidades diferentes:
Distribuidor XX / Loja YY / Produto AA / Venda 98 unidades

teve uma alteração de -2%, então pode colocar o número 98 como sendo o certo.
Se eu tivesse encontrado com um número novo de 89 unidades, teria uma variação de -11%, então, não deverá ser feita a atualização, mantendo assim o número 100.

Ou seja, variações de até -10% são aceitas, mais do que isso não, deve manter o número que já estava.

qualquer alteração positiva pode ser considerada automaticamente.

Tem como criar uma rotina para que essa verificação dos números retroativos, atualização ou não deles, e inclusão dos números novos seja feita de uma forma automática?

Olá amigo.

Quando você fala em alteração, você esta falando em Update em linguagem sql.

O que você detalhou, ao meu ver, se resolve com um CurrentDb.Execute "Update"".

Eu costumo fazer assim:

Código:

CurrentDb.Execute "Update tblX set(campoY) values (valorA) where MeuCampoCondiçãoNaTabela="""me.MeuCampoCondiçãoNoForm""""

Pesquise aqui no fórum por Update.

Analise e de retorno.

Qualquer coisa estamos aqui.

Lembrando que na cláusula where você pode passar quantos critérios desejar.

montei a macro, como faço para executa-la?

pelo que eu entendi, essa macro vai atualizar os números verificando se ele é -10% menor ou não, ok, se der certo, isso resolveria o problema de atualizar os dados retroativos.

Mas eu preciso que além de atualizar os dados retroativos, ele também inclua os dados novos que não tem na minha base.

Detalhe melhor como você montou isso?

Não falamos em macro, falamos em intrução Sql que será chamada no evento click de um botão.

Detalhe com mais clareza como estão suas tabelas, os campos existentes, bem como o tipo de dados dos campos.

Certamente seu não consegui lhe ajudar na solução, o Mestre Alexandre Neves conseguirá, mas tanto eu quanto ele precisa entender como estão as coisas em seu bd.

Analise e de retorno.

Sucesso.

eu tenho um formulário que indica onde está o meu arquivo "DIARIO" que é em excel, eu seleciono esse arquivo através desse formulário, assim que o seleciono, ele atualiza algumas tabelas que já estão com as querys prontas.

agora só ficou faltando atualizar a minha base de VENDAS, quero manter essa base atualizada.

essa tabela possui os seguintes campos:
PERIODO (que é a data da venda, porém, em formato texto "aaaammdd")
COD_DIST (Código do Distribuidor) (formato texto)
PDV_CNPJ (CNPJ da Loja) (formato texto)
COD_PROD (Código do produto) (formato texto)
UN (Unidades vendidas) (formato número)
RS (Valor) (formato número)

eu tenho esses campos tanto na minha base VENDAS do access, quanto no meu arquivo DIARIO (nesse, tenho vários outros campos, mas tenho tb esses mesmos que utiliza na planilha de VENDAS)

a base de VENDAS, não está vinculada à base DIARIA.

Vamos ver o que conseguimos até o final do dia.

Detalhe melhor como você está "levando" os dados da planilha Excel para o access, pra melhorar nossa visão.

Aguardo retorno.

Estarei atento durante todo dia pra dar por resolvido este seu tópico.

eu uso esse código:

Código:

Option Compare Database

Private Sub Comando18_Click()
    
       Call AbrirRC

End Sub
Private Sub Comando20_Click()
    DoCmd.Close
        
End Sub

Function AbrirRC() As String
    
    ' Requer referencia a Microsoft Office 11 Object Library
    On Error GoTo PROC_ERR
    
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    
    fd.Title = "selecione o ficheiro"
    fd.Filters.Add "Ficheiro XLSX", "*.xlsx", 1

    fd.Show
    
    If (fd.SelectedItems.Count > 0) Then
        '------inicio importação excel para sincronização
        Dim strPathFile As String, strFile As String, strPath As String
        Dim strTable As String
        Dim blnHasFieldNames As Boolean
        blnHasFieldNames = True
        strPathFile = fd.SelectedItems(1)
        strTable = "ExcelTmp"
      
        
        'importa para tabela local temporária
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames
        DoEvents
        
        'agrupa e lança nas tabelas temporarias
        DoCmd.OpenQuery "03_1Agrupar_para_ExcelTmpAgrupadoBRICK", acViewNormal, acEdit
        DoCmd.OpenQuery "03_2Agrupar_para_ExcelTmpAgrupadoCEPBRICK", acViewNormal, acEdit
        DoCmd.OpenQuery "03_3Agrupar_para_ExcelTmpAgrupadoINFORMANTES", acViewNormal, acEdit
        DoCmd.OpenQuery "03_4Agrupar_para_ExcelTmpAgrupadoPDV", acViewNormal, acEdit
        DoCmd.OpenQuery "03_5Agrupar_para_ExcelTmpAgrupadoPRODUTOS", acViewNormal, acEdit
        DoEvents
        
        
        
        
        
        '==== INICIO ACTUALIZAR TABELA BRICK ====
        'verifica existentes da tabela BRICK e marca com não novo na tabela temporaria ExcelTmpAgrupadoBRICK
        DoCmd.OpenQuery "04_1Marca_Registos_NovosBRICK", acViewNormal, acEdit
        DoEvents
        
        'atualiza existentes
        DoCmd.OpenQuery "05_1Atualiza_ExistentesBRICK", acViewNormal, acEdit
        DoEvents
        
        'lança novos no ficheiro BRICK
        DoCmd.OpenQuery "06_1Lanca_NovosBRICK", acViewNormal, acEdit
        DoEvents
        'apaga temporarios
        DoCmd.OpenQuery "02_1Apaga_Dados_ExcelTmpAgrupadoBRICK", acViewNormal, acEdit
        DoEvents
        
        
        
        
        
        '==== INICIO ACTUALIZAR TABELA CEPBRICK ====
        'verifica existentes da tabela CEPBRICK e marca com não novo na tabela temporaria ExcelTmpAgrupadoCEPBRICK
        DoCmd.OpenQuery "04_2Marca_Registos_NovosCEPBRICK", acViewNormal, acEdit
        DoEvents
        
        'atualiza existentes
        DoCmd.OpenQuery "05_2Atualiza_ExistentesCEPBRICK", acViewNormal, acEdit
        DoEvents
        'lança novos no ficheiro CEPBRICK
        DoCmd.OpenQuery "06_2Lanca_NovosCEPBRICK", acViewNormal, acEdit
        DoEvents
        'apaga temporarios
        DoCmd.OpenQuery "02_2Apaga_Dados_ExcelTmpAgrupadoCEPBRICK", acViewNormal, acEdit
        DoEvents
        
        
        
        
        
        '==== INICIO ACTUALIZAR TABELA INFORMANTES ====
        'verifica existentes da tabela INFORMANTES e marca com não novo na tabela temporaria ExcelTmpAgrupadoINFORMANTES
        DoCmd.OpenQuery "04_3Marca_Registos_NovosINFORMANTES", acViewNormal, acEdit
        DoEvents
        
        'atualiza existentes
        DoCmd.OpenQuery "05_3Atualiza_ExistentesINFORMANTES", acViewNormal, acEdit
        DoEvents
        'lança novos no ficheiro INFORMANTES
        DoCmd.OpenQuery "06_3Lanca_NovosINFORMANTES", acViewNormal, acEdit
        DoEvents
        'apaga temporarios
        DoCmd.OpenQuery "02_3Apaga_Dados_ExcelTmpAgrupadoINFORMANTES", acViewNormal, acEdit
        DoEvents
        
        
        
        
        
        '==== INICIO ACTUALIZAR TABELA PDV ====
        'verifica existentes da tabela PDV e marca com não novo na tabela temporaria ExcelTmpAgrupadoPDV
        DoCmd.OpenQuery "04_4Marca_Registos_NovosPDV", acViewNormal, acEdit
        DoEvents
        
        'atualiza existentes
        DoCmd.OpenQuery "05_4Atualiza_ExistentesPDV", acViewNormal, acEdit
        DoEvents
        'lança novos no ficheiro PDV
        DoCmd.OpenQuery "06_4Lanca_NovosPDV", acViewNormal, acEdit
        DoEvents
        'apaga temporarios
        DoCmd.OpenQuery "02_4Apaga_Dados_ExcelTmpAgrupadoPDV", acViewNormal, acEdit
        DoEvents
        
        
        
        
        
        '==== INICIO ACTUALIZAR TABELA PRODUTOS ====
        'verifica existentes da tabela PRODUTOS e marca com não novo na tabela temporaria ExcelTmpAgrupadoPRODUTOS
        DoCmd.OpenQuery "04_5Marca_Registos_NovosPRODUTOS", acViewNormal, acEdit
        DoEvents
        
        'atualiza existentes
        DoCmd.OpenQuery "05_5Atualiza_ExistentesPRODUTOS", acViewNormal, acEdit
        DoEvents
        'lança novos no ficheiro PRODUTOS
        DoCmd.OpenQuery "06_5Lanca_NovosPRODUTOS", acViewNormal, acEdit
        DoEvents
        'apaga temporarios
        DoCmd.OpenQuery "02_5Apaga_Dados_ExcelTmpAgrupadoPROUTOS", acViewNormal, acEdit
        DoCmd.OpenQuery "01Apaga_Dados_ExcelTmp", acViewNormal, acEdit
        DoEvents
        
        
        '==== FIM ACTUALIZAR TABELA ====
            
        MsgBox "Operação concluída.", vbInformation, ""
        
        
        
        
                
    Else
        MsgBox "Não foi escolhido nenhum ficheiro", vbInformation, ""
    End If
    
PROC_EXIT:
    Exit Function
    
PROC_ERR:
    DoCmd.Hourglass False
    If Err.Number = 3011 Then
       LocalXML = ""
       MsgBox ("Ficheiro inválido.")
    Else
        MsgBox Err.Description
    End If
    Resume PROC_EXIT
    
End Function


ai eu tenho algumas planilhas temporárias, e algumas consultas na minha base para poder fazer essas atualizações, quer que eu coloque o código de todas?

Olá belker, obrigado pelo retorno, vamos aguardar que um dos mestres do fórum aponte a solução.

Estarei acompanhando o tópico, mas confesso que a rotina está além de meu conhecimento.

Fique tranquilo que a resposta virá.

Sucesso.

Obrigado pelo retorno mathusalmeida!!

Abs

Pessoal, é o seguinte.

a premissa mudou, agora o que eu preciso é o seguinte:

Pegar os campos da minha base:
PERIODO (aaaammdd - formato texto)
COD_DISTRIBUIDOR (formato texto)
COD_PRODUTO (formato texto)

e somar todas as unidades que encontrar, ou seja, se tiver 10 linhas do mesmo periodo, distribuidor e produto, cada uma com 1 unidade, então a soma daria 10.

ai eu tenho que fazer essa mesma consulta só que em um arquivo que eu recebi diariamente no excel, fazer o mesmo critério de soma das unidades.

depois eu tenho que comparar os dois, se o número da BASE for até -10% o do EXCEL, ai eu tenho que excluir todas as linhas da base, e incluir as do excel.
Se a diferença for maior que 10%, então eu não vou alterar nada da base, e ignorar essa informação do EXCEL.
Se a informação do excel não foi encontrada na base, ai eu teria que incluir as linhas que estão faltando (que seriam informações novas, do PERIODO atual).

Como eu poderia fazer isso?

Olá a todos,
Belker, se pretendes ajuda é melhor disponibilizares a base de dados com alguns dados de exemplo.
Eu conheço algum código, uma vez que te ajudei noutro tópico do mesmo projeto.
Está a fazer importação de dados de um ficheiro excel (para sincronização) com base de dados em access.
Repara são 12 tabelas as consultas foram efetuadas pelo assistente do access, significa que nenhum dos colegas pode ver o que elas estão a fazer para te poder ajudar.

Abraço a todos.

ahteixeira, na verdade essa atualização é independente das outras, elas não tem ligação.

estou anexando 2 arquivos.

Um deles é o arquivo em excel, que é o arquivo que eu recebo todos os dias.
O outro, é um Access com duas tabelas.

Uma das tabelas, seria a minha base atual (Teste). a outra, seria como deverá ficar minha base depois que eu fizer a atualização usando a planilha em excel (Teste Atualizada).

O que preciso fazer para atualizar:

Somar todas as UNIDADES que forem do mesmo: PERIODO, DISTRIBUIDOR_CODIGO e APRESENTACAO_FCC (tanto no Access como no Excel)

Se a soma das unidades (levando em consideração os critérios acima) for maior, ou até -10% menor, então deverá excluir todas as linhas referentes a essa soma no ACCESS, e substituir pelas linhas do EXCEL.
Se a diferença for >-10%, então deve manter as linhas do ACCESS, e ignorar as do EXCEL.
Incluir no ACCESS informações novas que não tenham no ACCESS, no caso quando aparecer um PERIODO (data de venda) novo, incluir essas informações no ACCESS.

Para trazer o Excel para dentro do access para ele poder fazer todas as comparações, foi criado um Formulário, e nele, tem esse código:

Código:

Option Compare Database

Private Sub Comando0_Click()
On Error Resume Next
DoCmd.DeleteObject acTable, "base_excel"
Me.Texto1 = caminhoxls
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel8, "base_excel", Texto1, True

End Sub

Private Sub Comando5_Click()
Dim x As String

If MsgBox("Deseja atualizar os dados ?", vbYesNo, "") = vbYes Then
Me.Rótulo14.Caption = "&Aguarde Sistema Processando !!! ...."
x = verificacao_atuaizacao(Me.Texto1)
MsgBox "Sistema atualizado !!!", vbInformation, ""
Me.Rótulo14.Caption = ""
Else
MsgBox "Cancelado pelo usuario!!!", vbCritical, ""
End If
MsgBox "Sistema ajustado com sucesso !!! tempo de execução " & Round(Timer - tt, 4) & " segundos ", vbInformation, ""
DoCmd.DeleteObject acTable, "base_excel"
End Sub


Seria isso.
Estou precisando mto dessa atualização.

Muito obrigado!

Olá,

Então deves ter o código a processar até à importação para temporário.
1º Deves efetuar consultas agrupando e calculando as percentagens quer do ficheiro Temporario, quer do ficheiro em utilização do access.
2º deves comparar entre os resultados obtidos de forma a derterminar quais são para atualizar.
3º deves proceder à actualização.

Nota: Apenas dei sugestão, de momento não tenho tempo, nem descarreguei o teu anexo.
Abraço

o problema é que não sei como fazer isso!

Olá, Assim que poder, vejo o que posso fazer.
Vamos ver se algum colega pode dar uma ajuda.
No entanto não desistas, e tenta explicar e exemplificar em imagens o que necessitas pode ser que consigas mais ajudas
Abraço