Archiving data

[cav]

Projects and hours are entered into a database for up to 200 employee for any given day--I would like to periodically archive these records just in case we had to go back. What is the easiest way to set up for the end user to archive. Thanks for all suggestions. [sig][/sig]

 

[Lightning]

Use a listbox to select the records for archiving, with a command button to run a SQL command to archive the selected records. Something like the following code

Dim Y As Variant
Dim strSQL1 As String, strSQL2 As String, strSQL3 As String
Dim strSource1 As String, strDest1 As String, strDelete As String

strSQL1 = "INSERT INTO "
strSQL2 = " SELECT * FROM "
strSQL3 = " WHERE [RecordID] = "
    
strDest1 = "Destination Table"
strSource1 = "Source table"
strDelete = "Delete [Source Table].* FROM [Source Table] WHERE [Source Table].RecordID = "

For intCurrentRow = 0 To Me!lstSource.ListCount - 1
If Me!lstSource.Selected(intCurrentRow) Then
   Y = Me!lstSource.ItemData(intCurrentRow)

'Turn off the Access warning messages

   DoCmd.SetWarnings False
   DoCmd.RunSQL strSQL1 & strDest1 & strSQL2 & strSource1 & strSQL3 & Y, False

'Delete the record now that it is archived

   DoCmd.RunSQL strDelete & Y, False
End If
Next intCurrentRow

Hope this helps
Lightning
[sig][/sig]