VBA |
DoCmd.OpenQuery "1"
Dim q As DAO.QueryDef, p As DAO.Parameter Set q = CurrentDb.QueryDefs("1") For Each p In q.Parameters p.Value = Eval(p.Name) Next q.Execute q.Close: Set q = Nothing
http://www.sql.ru/forum/1171365/zapusk-zaprosa-na-dobavlenie-cherez-vba