Çàïóñê çàïðîñà è âûâîä ðåçóëüòàòà. |
| + |
| 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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |