Membuat duplikat tabel (temporary tabel) dengan cepat

Sub CreateTableDuplicateA()
On Error Resume Next
Dim db As Database
Dim dbr As Recordset
Dim tbldef As TableDef
Dim sKolom As Long
Set db = CurrentDb()
Set dbr = db.OpenRecordset("Select * from [Table_Roster" & Format(Date, "mmmm yyyy") & "]")
Set tbldef = db.CreateTableDef("Temp Table")
For sKolom = 0 To dbr.Fields.Count
With tbldef
.Fields.Append .CreateField(dbr.Fields(sKolom).Name, dbr.Fields(sKolom).Type)
End With
Next sKolom
db.TableDefs.Delete "Temp Table"
db.TableDefs.Append tbldef
End Sub