[Resolvido]Insert Into entre Bancos Access Destintos

Senhores, Estou com dois banco de dados destintos porém com a mesma taabela. O que preciso fazer diáriamente e atualizar o BD2 com os dados que foram inseridos no BD1 no dia anteriror. Ja vi que é possivel realizar este procedimento com o metodo Update, porem no access não tenho conhecimento de como fazer. Conto com a ajuda de vcs!

Desde já grato.

Parece ser o caso de INSERT, mas se for mesmo UPDATE é só adaptar.

A partir do BD1:

INSERT INTO tabela ( campo1, campo2, ..., campoN ) IN 'C:\pasta\BD2.accdb'
SELECT campo1, campo2, ..., campon FROM tabela
WHERE [CampoData]=Date()-1

Caro Cláudio, peloq ue informou (INSERT INTO tabela ( campo1, campo2, ..., campoN ) IN 'C:\pasta\BD2.accdb') Percebo que o comando deve ser inserido no BD1 para o BD2, certo? e se eu precisar que seja atualizado de dentro do BD2, ou seja ao entrar no BD2 eu faça uma atualização no BD1, como ficaria, seria possivel? Desde já grato a atenção.

Sim, basta inverter.

A partir do BD2:

INSERT INTO tabela ( campo1, campo2, ..., campoN ) IN 'C:\pasta\BD1.accdb'
SELECT campo1, campo2, ..., campon FROM tabela
WHERE [CampoData]=Date()-1

Claudio,

Se puder, preciso saber como inserir este comando no Access pois, apesar de realizar algumas programações em vba no excel, não tenho conhecimento para executar no access.

O que fiz foi inserir um modulo e colar e renomear as variaveis,

INSERT INTO 01_APROPRIACAO_EQ_PARTE_DIARIA ( Chave_Eq, Prefixo,Data_Aprop, Letra_Enc,OS,Interf,Hor_Inicial,Hor_Final,Jornada,Turno,ID_PD,HM_TOTAL,DIGITADOR,DATA_DIGIT,HORA_DIGIT,Chave_Pref,ID,Status_Analise_Erro,Ref_Prof,Codigo_PD,Centro_Custo,Tipo_Contrato,Ordem_Digita,Tipo_Alteracao,Alteracao,Km_Total,Tipo_Cont,Obs ) IN 'C:\Sistema_Manutenção\01 - Banco de Dados.mdo'

SELECT Chave_Eq, Prefixo,Data_Aprop, Letra_Enc,OS,Interf,Hor_Inicial,Hor_Final,Jornada,Turno,ID_PD,HM_TOTAL,DIGITADOR,DATA_DIGIT,HORA_DIGIT,Chave_Pref,ID,Status_Analise_Erro,Ref_Prof,Codigo_PD,Centro_Custo,Tipo_Contrato,Ordem_Digita,Tipo_Alteracao,Alteracao,Km_Total,Tipo_Cont,Obs ) FROM 01_APROPRIACAO_EQ_PARTE_DIARIA

WHERE [Data_Aprop] = Date - 1

Porem da error, não sei se precisa assim como vba excel, criar uma SUB... O que fazer?

Crie uma nova consulta no modo design, não adicione nenhuma tabela e alterne para o modo SQL.
Cole a instrução, salve a consulta e execute a mesma (se possível em uma cópia para testes).

Boa noite,
Adeqúe o título para respeitar as normas

Claudio, mais uma vez agradeço sua atenção. Estou enviando os dois BD com o Insert que fiz, e que não da certo. Se puder me dizer oq ue esta errado.

Parece que esqueceu de anexar os arquivos.

Boa noite,
Aguardamos que adeqúe o título, de acordo com as regras do fórum (não escrever em maiúsculas)

Quando vou enviar os BD's que estou zipados aparece a seguinte mensagem:

Os seguintes erros foram encontrados
O arquivo adicionado não é valido: nome do arquivo incorreto.

Boa tarde,

Veja aqui https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

Estou tentando enviar novamente.

Espero que possam me ajudar.

A princípio, percebi dois erros na instrução (em vermelho):

INSERT INTO 01_APROPRIACAO_EQ_PARTE_DIARIA ( Chave_Eq, Prefixo, Data_Aprop, Letra_Enc, OS, Interf, Hor_Inicial, Hor_Final, Jornada, Turno, ID_PD, HM_TOTAL, DIGITADOR, DATA_DIGIT, HORA_DIGIT, Chave_Pref, ID, Status_Analise_Erro, Ref_Prof, Codigo_PD, Centro_Custo, Tipo_Contrato, Ordem_Digita, Tipo_Alteracao, Alteracao, Km_Total, Tipo_Cont, Obs ) IN 'C:\Sistema_Manutenção\01 - Banco de Dados\BD_BACKUP.mdo'
SELECT [01_APROPRIACAO_EQ_PARTE_DIARIA].Chave_Eq, [01_APROPRIACAO_EQ_PARTE_DIARIA].Prefixo, [01_APROPRIACAO_EQ_PARTE_DIARIA].Data_Aprop, [01_APROPRIACAO_EQ_PARTE_DIARIA].Letra_Enc, [01_APROPRIACAO_EQ_PARTE_DIARIA].OS, [01_APROPRIACAO_EQ_PARTE_DIARIA].Interf, [01_APROPRIACAO_EQ_PARTE_DIARIA].Hor_Inicial, [01_APROPRIACAO_EQ_PARTE_DIARIA].Hor_Final, [01_APROPRIACAO_EQ_PARTE_DIARIA].Jornada, [01_APROPRIACAO_EQ_PARTE_DIARIA].Turno, [01_APROPRIACAO_EQ_PARTE_DIARIA].ID_PD, [01_APROPRIACAO_EQ_PARTE_DIARIA].HM_TOTAL, [01_APROPRIACAO_EQ_PARTE_DIARIA].DIGITADOR, [01_APROPRIACAO_EQ_PARTE_DIARIA].DATA_DIGIT, [01_APROPRIACAO_EQ_PARTE_DIARIA].HORA_DIGIT, [01_APROPRIACAO_EQ_PARTE_DIARIA].Chave_Pref, [01_APROPRIACAO_EQ_PARTE_DIARIA].ID, [01_APROPRIACAO_EQ_PARTE_DIARIA].Status_Analise_Erro, [01_APROPRIACAO_EQ_PARTE_DIARIA].Ref_Prof, [01_APROPRIACAO_EQ_PARTE_DIARIA].Codigo_PD, [01_APROPRIACAO_EQ_PARTE_DIARIA].Centro_Custo, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Contrato, [01_APROPRIACAO_EQ_PARTE_DIARIA].Ordem_Digita, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Alteracao, [01_APROPRIACAO_EQ_PARTE_DIARIA].Alteracao, [01_APROPRIACAO_EQ_PARTE_DIARIA].Km_Total, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Cont, [01_APROPRIACAO_EQ_PARTE_DIARIA].Obs
FROM 01_APROPRIACAO_EQ_PARTE_DIARIA
WHERE ((([01_APROPRIACAO_EQ_PARTE_DIARIA].DATA_DIGIT)=[Date]-1));

O correto é:

INSERT INTO 01_APROPRIACAO_EQ_PARTE_DIARIA ( Chave_Eq, Prefixo, Data_Aprop, Letra_Enc, OS, Interf, Hor_Inicial, Hor_Final, Jornada, Turno, ID_PD, HM_TOTAL, DIGITADOR, DATA_DIGIT, HORA_DIGIT, Chave_Pref, ID, Status_Analise_Erro, Ref_Prof, Codigo_PD, Centro_Custo, Tipo_Contrato, Ordem_Digita, Tipo_Alteracao, Alteracao, Km_Total, Tipo_Cont, Obs ) IN 'C:\Sistema_Manutenção\01 - Banco de Dados\BD_BACKUP.mdb'
SELECT [01_APROPRIACAO_EQ_PARTE_DIARIA].Chave_Eq, [01_APROPRIACAO_EQ_PARTE_DIARIA].Prefixo, [01_APROPRIACAO_EQ_PARTE_DIARIA].Data_Aprop, [01_APROPRIACAO_EQ_PARTE_DIARIA].Letra_Enc, [01_APROPRIACAO_EQ_PARTE_DIARIA].OS, [01_APROPRIACAO_EQ_PARTE_DIARIA].Interf, [01_APROPRIACAO_EQ_PARTE_DIARIA].Hor_Inicial, [01_APROPRIACAO_EQ_PARTE_DIARIA].Hor_Final, [01_APROPRIACAO_EQ_PARTE_DIARIA].Jornada, [01_APROPRIACAO_EQ_PARTE_DIARIA].Turno, [01_APROPRIACAO_EQ_PARTE_DIARIA].ID_PD, [01_APROPRIACAO_EQ_PARTE_DIARIA].HM_TOTAL, [01_APROPRIACAO_EQ_PARTE_DIARIA].DIGITADOR, [01_APROPRIACAO_EQ_PARTE_DIARIA].DATA_DIGIT, [01_APROPRIACAO_EQ_PARTE_DIARIA].HORA_DIGIT, [01_APROPRIACAO_EQ_PARTE_DIARIA].Chave_Pref, [01_APROPRIACAO_EQ_PARTE_DIARIA].ID, [01_APROPRIACAO_EQ_PARTE_DIARIA].Status_Analise_Erro, [01_APROPRIACAO_EQ_PARTE_DIARIA].Ref_Prof, [01_APROPRIACAO_EQ_PARTE_DIARIA].Codigo_PD, [01_APROPRIACAO_EQ_PARTE_DIARIA].Centro_Custo, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Contrato, [01_APROPRIACAO_EQ_PARTE_DIARIA].Ordem_Digita, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Alteracao, [01_APROPRIACAO_EQ_PARTE_DIARIA].Alteracao, [01_APROPRIACAO_EQ_PARTE_DIARIA].Km_Total, [01_APROPRIACAO_EQ_PARTE_DIARIA].Tipo_Cont, [01_APROPRIACAO_EQ_PARTE_DIARIA].Obs
FROM 01_APROPRIACAO_EQ_PARTE_DIARIA
WHERE ((([01_APROPRIACAO_EQ_PARTE_DIARIA].DATA_DIGIT)=Date()-1));

Cláudio deu certo, muito obrigado. Porém existe uma forma bem mais simples de executar esta tarefa.

RESOLVIDO!