[Resolvido]Insert entre duas tabelas.

Amigos,

tenho uma BD em acess em que preciso de montar a seguinte coisa, hoje tenho apenas um tabela mas preciso ter mais uma, ou seja, a partir de agora o BD com duas tabelas preciso que ocorra o seguite cenário.

Todos os dia a tabela 1 recebe dados, porem antes de receber do dia atual ela apagar todos os dados nela contidos.A tabela 2 servira como tabela para acumulo dos dados da tabela 1, ou seja, preciso incluir os dados que sao diferentes da tabela 1.Tentei alguns comandos, porem sem sucesso.

Ate aqui funciona, porem preciso aqui referenciar o Insert.
tabela = "PD4"
DoCmd.SetWarnings False 'desliga os avisos do sistema
DoCmd.RunSQL ("DELETE * FROM [" & tabela & "] WHERE (([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """);") 'Deleta os dados anteriores

DoCmd.OpenTable (tabela) 'abre a tabela pra colar
DoCmd.RunCommand acCmdPasteAppend 'Pastes in the worksheet data
DoCmd.Close 'fecha a tabela
DoCmd.RunSQL ("UPDATE [" & tabela & "] SET Mes = #" & dataref & "# WHERE (([Mes]) Is Null) and (([Razão])=""" & contacontabil & """);")
DoCmd.RunSQL ("UPDATE [" & tabela & "] SET [CHAVE_RECONCILIACAO] = [Chave referência] WHERE (([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """);")
DoCmd.RunSQL ("UPDATE [" & tabela & "] SET [CHAVE_RECONCILIACAO] = Trim(Left([CHAVE_RECONCILIACAO],InStr(1,[CHAVE_RECONCILIACAO],"" -"")-1)) WHERE (([CHAVE_RECONCILIACAO] like ""* -*"") and ([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """);")
DoCmd.RunSQL ("UPDATE [" & tabela & "] SET [CHAVE_RECONCILIACAO] = Trim(Left([CHAVE_RECONCILIACAO],InStr(1,[CHAVE_RECONCILIACAO],""-"")-1)) WHERE (([CHAVE_RECONCILIACAO] like ""*-*"") and ([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """);")
DoCmd.RunSQL ("UPDATE [" & tabela & "] LEFT JOIN [carimbo] ON [" & tabela & "].[Texto] = [carimbo].[texto] SET [" & tabela & "].[CARIMBO] = [carimbo].[carimbo] WHERE (([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """);")

alguem pode me ajudar.

Norbs,

exatamente essa a ideia, os valores sao diarios e devem ir da tabela 1(temporaria) para a tabela 2(fixa).Os comando que enviei é ja funcionam, eu preciso incluir neste bloco o insert, fiz um insert into com select distinct, mas os valores retornados nao me atenderam...

att

com uma simples linha de código antes do delete

Dim strSQL2 As String

strSQL2 = "INSERT INTO SuaTabela SELECT * FROM [" & tabela & "] WHERE (([Mes]) like #" & dataref & "# ) and (([Razão])=""" & contacontabil & """"
DoCmd.RunSQL (strSQL2)

uma questão:

isto [" & tabela & "] funciona bem ?
esta pergunta prende-se devido a essa instrução ser texto e não estar dentro de aspas simples.

Ricardo, na verdade eu preciso que seja passar da tabela 1 o que nao tiver na 2, um select Distinct.Mas ao executar o comando os valores duplicam, dai minha necessidade.

Quanto a sua pergunta, funciona sim basta instaciar e depois fazer referencia. eu fiz o seguinte:

tabela = "PD4"

depois

DoCmd.RunSQL ("UPDATE [" & tabela & "] SET Mes = #" & dataref & "# WHERE (([Mes]) Is Null) and (([Razão])=""" & contacontabil & """);")

abç

Em tempos ajudei aqui mesmo, a inserir dados de uma tabela para outra se não existir;

Tente adaptar;


CurrentDb.Execute "INSERT INTO Tabela2 (Campo1, Campo2, Campo3)" _
& " SELECT Campo1, Campo2, Campo3" _
& " From Tabela1" _
& " WHERE (Campo1 NOT IN" _
& " (SELECT Campo1" _
& " FROM Tabela2) AND Campo2 NOT IN" _
& " (SELECT Campo2" _
& " FROM Tabela2) AND Campo3 NOT IN" _
& " (SELECT Campo3" _
& " FROM Tabela2))"

No meu BD, necessito que ao atualizar o campo Número do contrato da TBContrato, automaticamente, seja atualizado o campo correspondente na TBTimeline_template. Utilizei a seguinte isntrução em sql:

Private Sub ctr_num_AfterUpdate()

Dim sql As String
sql = "insert into [timeline_template]([tpl_ctr_num])" & _
"select [ctr_num] from contrato" & _
"inner join [timeline_template]" & _
"on contrato.[ctr_num] = timelinetemplate.[tpl_ctr_num];"

DoCmd.RunSQL = sql

End Sub

Porém o que eu quero não acontece, o que acho estranho é que não dá nenhum erro de compilação! Tem como debugar instruções em sql?

Abraço

Teste;

Dim sql As String
sql = "INSERT INTO [timeline_template] ([tpl_ctr_num])" _
& " SELECT [ctr_num]" _
& " FROM contrato" _
& " INNER JOIN [timeline_template]" _
& " ON contrato.[ctr_num] = timeline_template.[tpl_ctr_num];"

DoCmd.RunSQL (sql)

JPaulo fiz o que mandou, acontece a consulta, mas não é adicionado o registro na TBtimeline_template!!

Ambas tabelas estão com seus indices com tipo número, chave primária e um contador automatico inserido em seu valor padrao =SeImed(DContar("[tpl_cod]";"timeline_template")=0;1;DMáx("[tpl_cod]";"timeline_template")+1)

O que faço! E outra coisa, tem como tirar esses avisos que aparecem antes de se copiar os dados entre os forms?

Pq toda vez que a procedure é executada, aparece uma msgbox pedindo confirmação!

Abraço, obrigado!

Só vendo inloc.

Se quiser anexar aqui uma parte do seu banco, em formato .zip, é mais facil analisar.

Tirar msg`s

Antes do DoCmd.RunSQL (sql)

DoCmd.SetWarnings False ' desabilita mensagem de segurança
DoCmd.RunSQL (sql)
DoCmd.SetWarnings True ' habilita mensagem de segurança

Problema é q não posso subir o BD, é do trabalho aqui!!

O que significa violação de chaves??? Não quer adicionar o registro por essa violação!!!

Obrigado pela dica das msgs!

Up!!

Então se não consegue anexar aqui o seu banco, no minimo, crie um banco vazio, importe para lá as tabelas correspondentes à sua duvida para ajudar-mos a reproduzir o INSERT.

Pode apagar os dados...

Certo. Aí está JPaulo.

Lembrando que o problema tá no after update do formContrato!

Abraço!

Private Sub Form_Current()
Dim sql As String

sql = "INSERT INTO [timeline_template] ([tpl_ctr_num],[tpl_tipo_contr])" & _
"SELECT [ctr_num], [ctr_tipo_contr] " & _
"FROM contrato " & _
"INNER JOIN [timeline_template]" & _
"ON contrato.[ctr_num] = [timeline_template].[tpl_ctr_num]"
DoCmd.GoToRecord acDataForm, "[timeline_template]", acNext

DoCmd.RunSQL (sql)

End Sub


Ao avançar um registro no FormContrato aparece o seguinte erro: "Erro em tempo de execução '2489':
O objeto '[timeline_template]' não está aberto.

A que se refere?

Minha idéia é prencher com os dados do FormContrato o FormTemplate e avançar um registro.
Abraço!

Up!!!

Up! Poxa pessoal, ninguem se interessou pelo meu problema??
Dá uma forcinha ai, por gentileza, rsrs!

Brincadeiras a parte, agradeço a atenção!