Formulario de consulta e atualização de tabela.

bom dia !

Existe algum exemplo de codigo aberto para um formulario que upa o excel e faça a atualização de campos via vba ?


abraços

Olá Nathan

Já experimentou uma "Busca" aqui no fórum, veja como fazer:
https://www.maximoaccess.com/t1115-busca-no-forum-search

Pelo menos tem um desde 2014, veja este tópico e o outro referenciado:
https://www.maximoaccess.com/t29991-calculos-sobre-tabelas-ligar-excel-adionar-dados-a-tabela
Abraço

texeira !

mto obg !

Uma duvida de funcionamento...


vc criou um consulta de acrescentar novos registro, ela tem a função de consulta ou armazenamento temporario ?, nao entendi a relação do campo "NOVO" COMO forma DE SELEÇÃO...
poderia me explica pf.

apos isso vc fez em sql uma consulta de UPdate

"UPDATE ExcelTmp LEFT JOIN A_Funcionarios ON ExcelTmp.ID_EMPREGAD=A_Funcionarios.ID_EMPREGAD SET ExcelTmp.NOVO = 0
WHERE (((A_Funcionarios.ID_EMPREGAD) Is Not Null));"

a relação aqui é, ele ira procurar os existentes dentro da tabela exceltmp o ExcelTmp.ID_EMPREGAD é igual dentro tabela A_Funcionarios.ID_EMPREGAD apontando o objeto selecinado do ExcelTmp.NOVO certo ? ou errado?

e xls02AtualizaExistentes não entendi a relação.

Abraços

Olá Nathan,

Para os colegas que acompanharem este tópico a sua questão refere-se a este tópico:
https://www.maximoaccess.com/t19615p6-resolvidoatualizacao-automatica-na-importacao-access-excel

A modelagem dos dados, sei que não foi a melhor, mas fiz esse exemplo em "cima do joelho".
No entanto a essencia, está lá.
A tabela do Access é a base de dados que se quer sincronizada.
E vão sendo distribuídos novos ficheiros de Excel com a informação atualizada.
O que o projeto faz é:

a) liga e importa para tabela local temporária
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames

b) verifica existentes e marca com não novo
DoCmd.OpenQuery "xls01marcaExistentes", acViewNormal, acEdit

c) atualiza dados dos existentes
DoCmd.OpenQuery "xls02AtualizaExistentes", acViewNormal, acEdit

d) lança novos registos (não existente na tabela access)
DoCmd.OpenQuery "xls03LancaNovos", acViewNormal, acEdit

Poderia ser tudo no VBA, mas optei por fazer consultas numeradas pela ordem de execução para mais fácil compreenssão.

Abraço

Perfeito,

Sobre o vba, nao tenho duvidas e sim a ligação de consultas conforme meu topico de resposta

gostaria de entender melhor a ligação entre as consultas.


abraços

Olá Nathan,
Ao importar por defeito na tabela ExcelTmp marca todos os registos como seja novo, o que não é verdade.
Depois a primeira consulta xls01marcaExistentes vai marcar os que existem.
Veja o relacionamento e o campo atualizar:


A consulta xls02AtualizaExistentes vai atualizar os dados dos existentes, neste caso só está atualizar o campo nome:


Por ultimo vai lançar os novos, na consulta adicionar xls03LancaNovos:


Espero ter tirado a sua dúvida.
Abraço