Application VisualBasic Script

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