[Resolvido]Inserir registro na tabela atual e exportar para uma 2ª tabela.

Olá amigos bom dia.

Seguinte tenho uma tabela1 que tem os campos [Data_NF] [Numero_NF] [Fornecedor]

ao cadastras o form com os campos acima, gostaria que adicionasse os dados acima na tabela2 os campos são iguais, a diferença é a seguinte, na tabela 1 terão varios registros com a o mesmo [Numero_NF] e [Fornecedor], pois trata-se de uma tabela de entrada de produtos, então exemplo:

entrou
[Data_NF] [Numero_NF] [Fornecedor] [Produto]
01/01/2010 01 Empresa tal Mouse
01/01/2010 01 Empresa tal Teclado
02/01/2010 20 Empresa 2 Arroz

Gostaria que se a o numero da nota e o fornecedor ja forem incluidos, não incluir novamente.

Criar apenas um registro na tabela 2 com ID_numeração automatica, e a [Data_NF] [Numero_NF] [Fornecedor] [Produto], se ja houver o registro não incluir.

eu recomendaria um subformulario para a 2ª tabela.

se preferir por vba, trabalhe no excelente código do jpaulo, aqui

http://maximoaccess.forumeiros.com/consultas-f10/consulta-atualizada-dados-de-uma-tabela-em-outra-com-estrutura-identica-somente-os-dados-que-foram-modificados-t339.htm#2052

É eu estou usando esse exemplo em outro caso, só que nesse preciso do critério de adicionar somente quando a Numero da NF junto com o fornecedor não estiver lançado.

Pois na tabela 1 existem registros de Numero de NF iguais, e quero que lance somente uma vez entende?

Maravilha, é isso mesmo que eu queria, vou testar o código e depois aviso, muitissimo obrigado!!!!

Olha eu aqui de novo, regressado de umas merecidas férias rsrsrs.

Gostei da implementação do Ricardo, e gostava de ver aqui o retorno se funfa ou não.

Que saudade JPaulo, você faz muita falta para nós, rs, seja bem vindo.
Eu testei mais ainda não consegui encaixar o código, vou tentar hoje de novo. abraços

JPAulo, boa tarde.

Eu não consegui fazer do jeito do Ricardo, em seu código abaixo tem como fazer automático, se a NF o fornecedor e a data da Nota ja existirem não adicionar, ou seja adicionar somente uma vez. Do jeito dele exclui, mas eu queria adicionar somente se não existir.

Abs

Option Compare Database

Public Sub Atualiza_Ptbl_CC_Fornecedores()
'By JPaulo ® Maximo Access
Dim db As DAO.Database
Dim rs11 As DAO.Recordset
Dim rs2 As DAO.Recordset

Set db = CurrentDb()

'Adicionar na 2ª o que existe na 1ª ou que foi actualizado na 1ª
Set rs11 = db.OpenRecordset("select * from Tabela_Produtos_Entrada ORDER BY Id_Entrada ASC", dbReadOnly)

If rs11.RecordCount = 0 Then GoTo checkar_tabela2

rs11.MoveFirst

Do Until rs11.EOF

Set rs2 = db.OpenRecordset("select * from tbl_CC_Fornecedores where ID=" & rs11!Id_Entrada)
If rs2.EOF Then
rs2.AddNew
rs2![ID] = rs11![Id_Entrada]
rs2![Data_NF] = rs11![Data_NF]
rs2![NF] = rs11![Origem]
rs2![Fornecedor] = rs11![Nome_Fornecedor]

rs2.Update
Else
rs2.MoveFirst
Do Until rs2.EOF

rs2.Edit
rs2![ID] = rs11![Id_Entrada]
rs2![Data_NF] = rs11![Data_NF]
rs2![NF] = rs11![Origem]
rs2![Fornecedor] = rs11![Nome_Fornecedor]

rs2.Update
rs2.MoveNext
Loop
End If

rs1.MoveNext

Loop
rs1.Close
rs2.Close
db.Close

checkar_tabela2:

'Apagar na 2ª o que já não existe na 1ª
Set db = CurrentDb()
Set rs2 = db.OpenRecordset("select * from tbl_CC_Fornecedores ORDER BY ID ASC")

If rs2.RecordCount = 0 Then Exit Sub

rs2.MoveFirst

Do Until rs2.EOF

Set rs11 = db.OpenRecordset("select * from Tabela_Produtos_Entrada where Id_Entrada=" & rs2!ID)

If rs11.EOF Then
rs2.Delete
Else
rs11.MoveFirst
End If

rs2.MoveNext

Loop

rs11.Close
rs2.Close
db.Close

End Sub

JPaulo, se algum dia você puder dar uma olhadinha com carinho em minha dúvida, a torcida Santista agradece, rs, abraço!!!

Amigão já havia esquecido este tópico.

Olha eu gosto bastante do código do Ricardo por SQL, mais rápido e eficaz, além de muito simples.

Apenas terá de ter atenção às aspas simples para texto, ou cardinal para datas.

tente novamente...

Ok, vou tentar!! Valeu