Archive Records In Table

[gator9]

Ok I have a table call "Projects" and I have created a table called "Archived Projects". What I need to do is when I click on a command button I want to see a prompt that ask for and ID. When I type in the ID it will archive and move every record associated with that ID to the Archived Projects table. Can anyone help?

Thanks

Charles

 

[danvlas]

Sub YourButton_Click()
Dim IDNo As String
IDNo = InputBox("Enter ID&quot
If IsNumeric(IDNo) Then
DoCmd.SetWarnings False
'Append the records to archive
DoCmd.RunSQL("Insert Into [Archived Projects] Select * From Projects Where [IDFieldName] = " & IDNo & ";&quot

'delete records from Projects
DoCmd.RunSQL("Delete * From Projects Where [IDFieldName] = " & IDNo & ";&quot
DoCmd.SetWarnings True
Else
MsgBox "You have to enter a number"
End If
End Sub

That should do...

Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[gator9]

Had to do a little mod to make it one step but it works great!!!!!!

Thanks
Charles