. |
| + |
| Public Function makeID() Dim s, db As DAO.Database Set db = CurrentDb db.Execute "delete * from FamUnion" s = "INSERT INTO FamUnion (_) Select DISTINCT _ FROM _" db.Execute s makeID = True End Function |
| + |
| UPDATE _ INNER JOIN (_ INNER JOIN FamUnion ON _._ = FamUnion._) ON _._ = _._ SET FamUnion.Fam = (FamUnion.Fam+", ") & _._ WHERE (((makeID())<>False)); |
http://www.sql.ru/forum/1111308/zapusk-zaprosa-i-vyvod-rezultata