Okay vbaInet here is the code for what you have been suggesting (I think)...I created three separate queries to randomize all records in each table.
qryRandAnimalsStep1
SELECT Animals.AnimalID, Animals.AnimalName, Rnd([AnimalID]) AS Expr1
FROM Animals
ORDER BY Rnd([AnimalID]) DESC...