Private Sub InspectionDone_Click() 
If Me.Dirty Then Me.Dirty = False 'This will save the current record

InspectionDone_Click() 
If Me.Dirty Then Me.Dirty = False 'This will save the current record if any changes 
'Select the record now being edited 
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 
'Copy the Record

Private Sub InspectionDone_Click()
If Me.Dirty Then Me.Dirty = False 'This will save the current record if any changes
'Select the record now being edited
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'Copy the Record
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
'Paste append

Private Sub InspectionDone_AfterUpdate()
Dim strSQL As String 
strSQL = "INSERT INTO destinationTable" & _
"(field1, field2, field3,  field4, field5, field6,)" & _
" VALUES (" & value1 &", " & value2 & "Format(DateAdd(""m"",3,[Inspection Date])),"dd/mm/yyy"