[Resolvido]Cancelar registros, restaurar ao estado anterior e excluir acréscimos do SubFormulario acoplado no Formulario

DoCmd.DeleteObject acTable, "tmpOldValue"
CurrentDb.Execute "SELECT tblSubForm.* INTO tmpOldValue FROM tblSubForm WHERE id_e=" & Me.TXT_id_p

Dim qRS As DAO.Recordset
Dim qSQL As String
Dim qRS2 As DAO.Recordset
Dim qSQL2 As String

qSQL = "SELECT * FROM tmpOldValue"
Set qRS = CurrentDb.OpenRecordset(qSQL)
qSQL2 = "SELECT * FROM tblSubForm WHERE id_e=" & Me.TXT_id_p
Set qRS2 = CurrentDb.OpenRecordset(qSQL2)

If qRS.RecordCount > 0 Then
  qRS.MoveLast
  qRS.MoveFirst
End If
If qRS2.RecordCount > 0 Then
  qRS2.MoveLast
  qRS2.MoveFirst
End If

Do Until qRS2.EOF
  strCriteria = "id_p =" & qRS2("id_p")
  qRS.FindFirst strCriteria
     With qRS
         If .NoMatch = True Then
              qRS2.Delete
         Else
              qRS2.Edit
              qRS2("NomeFornecedor") = qRS("NomeFornecedor")
              qRS2("Endereco") = qRS("Endereco")
              qRS2.Update
         End If
     End With
   qRS.MoveNext
qRS2.MoveNext
Loop

qRS.Close
Set qRS = Nothing
qRS2.Close
Set qRS2 = Nothing
Me.tblSubForm.Requery

DoCmd.DeleteObject acTable, "tmpOldValue"
CurrentDb.Execute "SELECT tblSubForm.* INTO tmpOldValue FROM tblSubForm WHERE id_e=" & Me.TXT_id_p

Dim qRS As DAO.Recordset
Dim qRS2 As DAO.Recordset
Dim qRS3 As DAO.Recordset
Dim qSQL As String
Dim qSQL2 As String
Dim qSQL3 As String
qSQL = "SELECT * FROM tmpOldValue"
Set qRS = CurrentDb.OpenRecordset(qSQL)
qSQL2 = "SELECT * FROM tblSubForm WHERE id_e=" & Me.TXT_id_p
Set qRS2 = CurrentDb.OpenRecordset(qSQL2)
If qRS.RecordCount > 0 Then
   qRS.MoveLast
   qRS.MoveFirst
End If
If qRS2.RecordCount > 0 Then
   qRS2.MoveLast
   qRS2.MoveFirst
End If
Do Until qRS2.EOF
   strCriteria = "id_p =" & qRS2("id_p")
   qRS.FindFirst strCriteria
      With qRS
          If .NoMatch = True Then
               qRS2.Delete
          Else
               qRS2.Edit
               qRS2("id_e") = qRS("id_e")
               qRS2("NomeFornecedor") = qRS("NomeFornecedor")
               qRS2("Endereco") = qRS("Endereco")
               qRS2.Update
          End If
      End With
      qRS.Edit
      qRS("Captura") = -1
      qRS.Update
    qRS.MoveNext
qRS2.MoveNext
Loop
qSQL3 = "SELECT * FROM tmpOldValue WHERE Captura=0"
Set qRS3 = CurrentDb.OpenRecordset(qSQL3)
If qRS3.RecordCount > 0 Then
qRS2.MoveLast
qRS2.MoveFirst
Do While Not qRS3.EOF
   qRS2.AddNew
   qRS2("id_e") = qRS3("id_e")
   qRS2("NomeFornecedor") = qRS3("NomeFornecedor")
   qRS2("Endereco") = qRS3("Endereco")
   qRS2.Update
qRS3.MoveNext
Loop
End If
CurrentDb.Execute "UPDATE tmpOldValue SET Captura=0"
qRS.Close
Set qRS = Nothing
qRS2.Close
Set qRS2 = Nothing
qRS3.Close
Set qRS3 = Nothing
Me.tblSubForm.Requery
'Por Dilson em 05/2016 Fórum MaximoAccess - Blog AccessDoProgramador