Dim dtREG, dtSROK As Date ' ' dtREG = Me!dtREG dtSROK = Me!dtSROK DoCmd.RunSQL "INSERT INTO ([ ], [ ]) SELECT .[ ], .[ ] FROM INNER JOIN ON .[ ] = .[ ] WHERE (((.)=Yes));"
http://www.sql.ru/forum/1214844/pomogite-zapros-dlya-dobavleniya-iz-vba-znacheniy-2-h-dat-iz-poley-formy