По нажатию кнопки должен открываться запрос.
(sql код приведен ниже)
Чего не хватает в функции?
Function GetPrice(dteStartDate As Date, dteEndDate As Date)
Private Const sqryMarketQuote As String = "HqryMarketQuote"
Private Const sPARStartDate As String = dteStartDate
Private Const sPAREndDate As String = dteEndDate
Dim sSQLMarketQuote As String
sSQLMarketQuote = "SELECT Data.Date, Data.Id, Data.Price " & _
"FROM Data " & _
"WHERE (((Data.Date) Between [StartDate] And " & _
"[EndDate]) AND ((Data.Koef)=1)); "
Dim dbCurent As DAO.Database
Dim rcdMarketQuote As DAO.Recordset
Dim qryBuffer As DAO.QueryDef
Set dbCurrent = CurrentDb()
Set qryBuffer = dbCurrent.QueryDefs(sqryMarketQuote)
qryBuffer.Parameters(sPARStartDate).Value = dteStartDate
qryBuffer.Parameters(sPAREndDate).Value = dteEndDate
'Set rcdMarketQuote = qryBuffer.OpenRecordset
qryBuffer.Execute
' qryBuffer.Close: Set qryBuffer = Nothing
End Function
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.