[Resolvido]Loop em Tabela para Inserir Dados

Boa Noite Amigos

Preciso inserir dados de uma tabela em outra conforme o código, mas não estou conseguindo fazer: se não houver registro na tblSpedPisCofins inserir todos os registros da tblNotasFiscais, quando novos os registros forem inseridos na tbl NotasFiscais só inserir os novos registros na tblSpedPisCofins, mantendo os já exitentes na tblSpedPisCofins,
Em anexo o exemplo
Obrigado a quem puder me ajudar

Código:

Private Sub cmdInserirDados_Click()

Dim Pesquisa As String
Dim Rs As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("tblSpedPisCofins")

Pesquisa = DLookup("Doc", "tblSpedPisCofins", "doc=" & [Doc] & " and IdCliente=" & [IdCliente] & " ")


Do While Not Rs.EOF

If Rs!Pesquisa = True Then
DoCmd.CancelEvent
Rs.Close
Set Rs = Nothing
Exit Sub

Else
End If
Rs.MoveNext
Loop
strSQL = ("INSERT INTO tblSpedPisCofins (IdNotaFiscal,CNPJ,CLIENTE,EMISSAO,Doc,Receita,BaseCalculoPis,Pis,BaseCalculoCofins,Cofins,Iss,Servicos,Comp,IdComp,IdCliente,CpfCnpj,RazaoSocial,OpcaoSimplesNacional) SELECT IdNotaFiscal,CNPJ,CLIENTE,EMISSAO,Doc,Receita,BaseCalculoPis,Pis,BaseCalculoCofins,Cofins,Iss,Servicos,Comp,IdComp,IdCliente,CpfCnpj,RazaoSocial,OpcaoSimplesNacional FROM tblNotasFiscais ")
DoCmd.RunSQL (strSQL)
Rs.Close
Set Rs = Nothing


End Sub


Olá,

Pelo que entendi, todo o código pode ficar restrito a essas linhas:

Código:

DoCmd.RunCommand acCmdSaveRecord
strSQL = "INSERT INTO tblSpedPisCofins ( IdNotaFiscal,CNPJ,CLIENTE,EMISSAO,Doc,Receita,BaseCalculoPis,Pis,BaseCalculoCofins,Cofins,Iss,Servicos,Comp,IdComp,IdCliente,CpfCnpj,RazaoSocial,OpcaoSimplesNacional) " & _
         "SELECT IdNotaFiscal,CNPJ,CLIENTE,EMISSAO,Doc,Receita,BaseCalculoPis,Pis,BaseCalculoCofins,Cofins,Iss,Servicos,Comp,IdComp,IdCliente,CpfCnpj,RazaoSocial,OpcaoSimplesNacional " & _
         "FROM (SELECT tblNotasFiscais.IdNotaFiscal, tblNotasFiscais.CNPJ, tblNotasFiscais.Cliente, tblNotasFiscais.Emissao, tblNotasFiscais.Doc, tblNotasFiscais.Receita, tblNotasFiscais.BaseCalculoIRPJ, tblNotasFiscais.IRRF, " & _
         "tblNotasFiscais.IRPJRecolher, tblNotasFiscais.BaseCalculoCSLL, tblNotasFiscais.CSLL, tblNotasFiscais.CSLLRecolher, tblNotasFiscais.BaseCalculoPis, tblNotasFiscais.PIS, tblNotasFiscais.PISRecolher, tblNotasFiscais.BaseCalculoCofins, " & _
         "tblNotasFiscais.COFINS, tblNotasFiscais.COFINSRecolher, tblNotasFiscais.ISS, tblNotasFiscais.INSS, tblNotasFiscais.Liquido, tblNotasFiscais.Comp, tblNotasFiscais.IdComp, tblNotasFiscais.IdCliente, tblNotasFiscais.Servicos, tblNotasFiscais.CpfCnpj, tblNotasFiscais.RazaoSocial, tblNotasFiscais.OpcaoSimplesNacional " & _
         "FROM tblNotasFiscais LEFT JOIN tblSpedPisCofins ON tblNotasFiscais.[IdNotaFiscal] = tblSpedPisCofins.[IdNotaFiscal] WHERE (((tblSpedPisCofins.IdNotaFiscal) Is Null))) a"
DoCmd.RunSQL (strSQL)

Cláudio Obrigado pela sua gentileza em me ajudar, mas vou tentar explicar melhor. Estas duas tabelas é parte de um BD onde é importado para tblNotasFiscais  arquivos XML que eu não faço alteração, e a tblSpedPisCofins é onde posso fazer alterações. Eu teria que referenciar não pela idNotaFiscal e sim por pelo menos dois campos, ou seja Doc e IdCliente ou Doc e Cliente.
Mais uma vez, obrigado

Então é só corrigir os relacionamentos conforme você informou:

Código:

strSQL = "INSERT INTO tblSpedPisCofins ( IdNotaFiscal, CNPJ, CLIENTE, EMISSAO, Doc, Receita, BaseCalculoPis, Pis, BaseCalculoCofins, Cofins, Iss, Servicos, [Comp], IdComp, IdCliente, CpfCnpj, RazaoSocial, OpcaoSimplesNacional ) " & _
         "SELECT IdNotaFiscal, CNPJ, CLIENTE, EMISSAO, Doc, Receita, BaseCalculoPis, Pis, BaseCalculoCofins, Cofins, Iss, Servicos, Comp, IdComp, IdCliente, CpfCnpj, RazaoSocial, OpcaoSimplesNacional " & _
         "FROM (SELECT tblNotasFiscais.IdNotaFiscal, tblNotasFiscais.CNPJ, tblNotasFiscais.Cliente, tblNotasFiscais.Emissao, tblNotasFiscais.Doc, tblNotasFiscais.Receita, tblNotasFiscais.BaseCalculoIRPJ, tblNotasFiscais.IRRF, tblNotasFiscais.IRPJRecolher, " & _
         "tblNotasFiscais.BaseCalculoCSLL, tblNotasFiscais.CSLL, tblNotasFiscais.CSLLRecolher, tblNotasFiscais.BaseCalculoPis, tblNotasFiscais.PIS, tblNotasFiscais.PISRecolher, tblNotasFiscais.BaseCalculoCofins, tblNotasFiscais.COFINS, tblNotasFiscais.COFINSRecolher, " & _
         "tblNotasFiscais.ISS, tblNotasFiscais.INSS, tblNotasFiscais.Liquido, tblNotasFiscais.Comp, tblNotasFiscais.IdComp, tblNotasFiscais.IdCliente, tblNotasFiscais.Servicos, tblNotasFiscais.CpfCnpj, tblNotasFiscais.RazaoSocial, tblNotasFiscais.OpcaoSimplesNacional " & _
         "FROM tblNotasFiscais LEFT JOIN tblSpedPisCofins ON (tblNotasFiscais.Doc = tblSpedPisCofins.Doc) AND (tblNotasFiscais.Cliente = tblSpedPisCofins.Cliente) WHERE (((tblSpedPisCofins.Cliente) Is Null) AND ((tblSpedPisCofins.Doc) Is Null)))  AS a"

Claudio, muito obrigado a você e a todos que se interessaram, ficou muito bom, deu certo.