CurrentProject.Connection.Execute "INSERT INTO [Курсы валют] ( [Код валюты], [Курс ЦБ], Дата ) " _
& "select NumCode , cast(replace(Value,',','.') as money) , cast('" & dateMax & "' as datetime) FROM Valute " _
& "WHERE [NumCode] In (SELECT cast([Код] as char(10)) FROM Валюты)"
|