[Resolvido]Código VBA para Consulta Acrescentar

Boa noite a todos
Desde já as minhas desculpas, porque já procurei aqui no fórum encontrei tópico parecido mas não ajudou a munha dúvida e já tentei resolver e está difícil. Via Access funciona só que aparece uma mensagem de aviso é o que pretendo é contornar esta situação.

O qua pretendo é colocar em VBA uma consulta acrescentar, passo a explicar:

Tenho uma "consulta Balanco" entre outros campos, tenho o Valor total Previsto e total Consumido por Natureza da despesa, por Acumulado  e por Mês , esta consulta é uma consulta união e funciona bem.

O que pretendo é fazer um INSERT INTO do Valor Total Previsto  e Total Consumido em outra tabela pois nesta tem um campo que tem que ser manipulado.

Resumindo tentei com a sintaxe do INSERT INTO de uma tabela para outra e não está a funcionar. O código que estou a tentar utilizar é o abaixo:

DoCmd.RunSQL ("INSERT INTO orcFaltaRealizar ( CodProj, Periodo, CodFam, DescFam, CustoPrev, CustoReal ) SELECT cslBalanco.CodProj, cslBalanco.Periodo, cslBalanco.CodFam, cslBalanco.DescFam, Sum(cslBalanco.SomaDePrevitoC) AS SomaDeSomaDePrevitoC, Sum(cslBalanco.TotalAcum) AS SomaDeTotalAcum FROM cslBalanco WHERE CodProj = " & Me.txt_CodProj & " and Periodo = " & Me.cxc_Per.Column(0) & "")

orcFaltaRealizar é a tabela destino
cslBalanco é uma consulta união

Desde já agradeço a ajuda

Obrigado a quem tentou ajudar, porem resolvi com um ciclo for-next no subformulário dentro do formulário em que visualizo a consulta.

Private Sub Form_Timer()

Dim db As Database, rs As Recordset

Dim Contar As Integer


Contar = DCount("CodFam", "cslRptBalanco", "CodProj = " & Me.CodProj & "")

For i = 1 To Contar

On Error GoTo 1:

CurrentDb.Execute " INSERT INTO orcFaltaRealizar ( CodProj, Periodo, CodFam, DescFam, TipoFam)VALUES ( " & Me.CodProj & " , " & Me.Periodo & " , " & Me.CodFam & " , '" & Me.DescFam & "', '" & Me.TipoFam & "')"
CurrentDb.Execute "UPDATE orcFaltaRealizar set CustoPrev= " & Replace(Me.SomaDeSomaDePrevitoC, ",", ".") & " WHERE [CodProj] = " & Me.CodProj & " and CodFam = " & Me.CodFam & ""
CurrentDb.Execute "UPDATE orcFaltaRealizar set CustoReal= " & Replace(Me.SomaDeTotalAcum, ",", ".") & " WHERE [CodProj] = " & Me.CodProj & " and CodFam = " & Me.CodFam & ""
CurrentDb.Execute "UPDATE orcFaltaRealizar set PFO = " & Replace(Me.SomaDeSomaDePrevitoC, ",", ".") & " WHERE [CodProj] = " & Me.CodProj & " and CodFam = " & Me.CodFam & ""
Me.Form.Recordset.MoveNext
Next

1:
If Err.Number = 3021 Then
   Me.TimerInterval = 0
   Else
Exit Sub
End If


End Sub