Programatically creating a copy of an existing table in the same db

[VBAguy22]

Hello
I need to archive myTable as myTable_old in the same db.
How do I do it in VB?

 

[EastWind]

Here's the code - minus the error handling:

Public Sub (strTable As String)
Dim strNewTable as String, strSQL As String

DoCmd.SetWarnings False

strNewTable = strTable & "_old"
strSQL = "SELECT [" & strTable & "].* INTO [" & strNewTable & "] " _
    & "FROM [" & strTable & "];"
doCmd.RunSQL(strSQL)

DoCmd.SetWarnings True
End Sub