[Resolvido]Do while que não atualiza a tabela...

Caros colegas, esta instrução Do While deveria inserir 4 registros novos no Rs2. Só que não executa!
Onde está o erro?

Private Sub Comando0_Click()
Dim dbbanco, dbbanco2, dbbanco3 As Database
Dim Rs, Rs2, rssoc As DAO.Recordset

Set dbbanco = CurrentDb()
'Acha os faturados no penúltimo mês.
Set Rs = dbbanco.OpenRecordset("SELECT * FROM [movimentacao] WHERE faturado > 0 and data = DateSerial(Year(Date()), Month(Date())-2,1)")

Set dbbanco2 = CurrentDb()
Set Rs2 = dbbanco2.OpenRecordset("movimentacao", dbOpentable)

Set dbbanco3 = CurrentDb()
Set rssoc = dbbanco3.OpenRecordset("SELECT top 1 * FROM [backupexcel] WHERE bup = 'faturado' order by databup desc")

If rssoc!databup = DateSerial(Year(Date), Month(Date) - 1, 1) Then
Exit Sub
Else
Do While Not Rs.EOF
With Rs2
.AddNew
!CodConta2 = Rs!CodConta2
!Data = DateSerial(Year(Date), Month(Date), 0)
!MesReferencia = DateSerial(Year(Date), Month(Date) - 1, 1)
!Faturado = Rs!Faturado
.Update
Rs2.Close
End With
Rs.MoveNext
Loop

With rssoc
.AddNew
!BUP = "faturado"
!databup = DateSerial(Year(Date), Month(Date) - 1, 1)
!usuariobup = UsuárioAtual()
.Update
rssoc.Close
End With

End If
End Sub

Agradeço desde já!
At
MPS

Ola;

Não testei nadica de nada, mas pelo que vejo você está a fechar o RecordSet antes do tempo.

Os .Close devem ficar sempre no final dos códigos.

Penso que a instrução correta será:



Private Sub Comando0_Click()
Dim dbbanco, dbbanco2, dbbanco3 As Database
Dim Rs, Rs2, rssoc As DAO.Recordset

Set dbbanco = CurrentDb()
'Acha os faturados no penúltimo mês.
Set Rs = dbbanco.OpenRecordset("SELECT * FROM [movimentacao] WHERE faturado > 0 and data = DateSerial(Year(Date()), Month(Date())-2,1)")

Set dbbanco2 = CurrentDb()
Set Rs2 = dbbanco2.OpenRecordset("movimentacao", dbOpenTable)

Set dbbanco3 = CurrentDb()
Set rssoc = dbbanco3.OpenRecordset("SELECT top 1 * FROM [backupexcel] WHERE bup = 'faturado' order by databup desc")

If rssoc!databup = DateSerial(Year(Date), Month(Date) - 1, 1) Then Exit Sub

Do While Not Rs.EOF
With Rs2
.AddNew
!CodConta2 = Rs!CodConta2
!Data = DateSerial(Year(Date), Month(Date), 0)
!MesReferencia = DateSerial(Year(Date), Month(Date) - 1, 1)
!Faturado = Rs!Faturado
.Update
End With
Rs.MoveNext
Loop

Do While Not rssoc
With rssoc
.AddNew
!BUP = "faturado"
!databup = DateSerial(Year(Date), Month(Date) - 1, 1)
!usuariobup = UsuárioAtual()
.Update
rssoc.MoveNext
End With
Loop


Rs.Close
Rs2.Close
rssoc.Close

Set Rs = Nothing
Set Rs2 = Nothing
Set rssoc = Nothing

Set dbbanco = Nothing
Set dbbanco2 = Nothing
Set dbbanco3 = Nothing
End Sub

JPaulo, tudo bem?
Obrigado pela pronta resposta!
Fiz as correções sugeridas, mas ainda não funcionou!
Será que eu identifiquei corretamente a Tabela Movimentacao em Rs2 para que receba novos registros baseados em Rs?
MPS

Amigão, não tenho como testar, só replicando aqui todas as suas tabelas.

Pode anexar aqui parte do seu banco ?

JPaulo, com certeza!
Segue:

JPaulo, não tente, por favor!
Está com a Senha!
Vou enviar outro!

JPaulo, agora sim!

JPaulo, exclua o registro com data de 01/11/2012 na Tabela BackupExcel, por favor!

Não entendi direito, mas veja se é isto;

JPaulo, obrigado pelo arquivo!
Esta instrução é que não foi executada, pois na Tabela Movimentacao não foram inseridos 4 novos registros:
Do While Not Rs.EOF
With Rs2
.AddNew
!CodConta2 = Rs!CodConta2
!Data = DateSerial(Year(Date), Month(Date), 0)
!MesReferencia = DateSerial(Year(Date), Month(Date) - 1, 1)
!Faturado = Rs!Faturado
!Historico = Rs!Historico
.Update
End With
Rs.MoveNext
Loop

Acho que está havendo conflito porquê o Rs e o Rs2 são derivados da mesma Tabela Movimentacao.
Será?

Veja;

JPaulo, que força tem estas duas instruções!
.MoveLast
.MoveFirst
Bastou acrescentá-las no local certo!
Obrigado e parabéns!
MPS

Obrigado pelo retorno o forum agradece.