Copy from one record to next but do not save

[koolwaters]

I am trying to copy certain fields from one record on a continuous form to the next but I do not want it written to the table until the user clicks save.

Here is the code I am currently using, which writes the record to the Claims table.

Private Sub cmdAdditionalClaim_Click()
Dim dbs As DAO.Database, rst As DAO.Recordset
Dim F As Form
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim stDocName As String
Dim i As Integer

Msg = "Are you sure you want to create a new claim?"
Style = vbYesNo + vbInformation
Title = "Duplicate Claim?"
Response = MsgBox(Msg, Style, Title)

    
    If Response = vbYes Then
        Set dbs = CurrentDb
        Set rst = dbs.OpenRecordset("tblClaim")
        'Set rst = DoCmd.GoToRecord , , acNewRec
        Set rst = Me.RecordsetClone

        Me.Tag = Me![ClaimID]

        With rst
        .AddNew
            !ClaimID = Nz(DMax("[ClaimID ]", "tblClaim"), 0) + 1
(I have all of the other fields listed here)
        .Update
        .Move 0, .LastModified
        End With
        
        Me.Bookmark = rst.Bookmark
        
        End If
End Sub

Any suggestions?

Thanks

 

[koolwaters]

Any suggestions????

 

[strive4peace]

Access automatically saves ... not saving can be tricky. You can, however, use the form BeforeUpdate event to cancel saving. Perhaps a boolean control that is not visible ... if the user clicks the SAVE button, code can fill the value with TRUE. If the value is not filled with True, you could prompt to save

   '---------------------------------- make sure user wants to save
   if not me.invisible_controlname then
  
      'give the user a message
      If MsgBox("Do you want to save this record", vbYesNo + vbDefaultButton2, "Save Record?") = vbNo  Then
  
      'don't save the record yet
      Cancel = true

      exit sub
   end if

WHERE
invisible_controlname is the NAME of a boolean (checkbox) control

on the AfterUpdate event of the form, set the control value to FALSE