Thanks for that Alan. On somebody else's advice I've used this:
Sub Trial()
DoCmd.SetWarnings False
CurrentDb.Execute "qry_create_table_cable ", dbFailOnError
DoCmd.CopyObject , "tbl_CABLE_" & Format(DATE, "dd/mm/yy"), acTable, "tbl_CABLE"
DoCmd.SetWarnings True
End Sub
It works...