Public Sub MakeBackupCopy() DoCmd.CopyObject , "Employees Backup", acTable, "Employees" DoCmd.SetWarnings False DoCmd.OpenQuery "UpdatePrices" DoCmd.SetWarnings True End Sub