Корректировка запроса

  • Автор темы GhostProgram
  • Дата начала
Статус
Закрыто для дальнейших ответов.
G

GhostProgram

#1
:( Добрый день! Я здесь впервые, хотелось бы получить консультацию...У меня есть запрос написанный VBA, возникла необходимость его подкорректировать... :) но к сожалению, я не понимаю синтаксиса самого запроса...Помогоите пожалуйста с написанием запроса!!!!
Очень надо :)
 
G

GhostProgram

#3
:) Ура!!! Ответили!!!
Вот вроде набросал, а он не работает в таком виде...
Есть столбец:
Месяц продажи
01APR2006
01APR2006
01MAR2006
01APR2006
01MAR2006
01MAR2006
01MAR2006
01MAR2006
01APR2006

Моя задача, выбрать из этого столбца значения за один месяц...я написал запрос...
В нем я пытаюсь вычислить количество комплектов за 01MAR2006, но не получается...
вроде условие создал, что [Месяц продажи]=01MAR2006, но не высчитывает... В приведенной таблице кол комплектов=5 люди помогите разобраться!!!

Function Кол_комплектов(Месяц, Год) As Integer
' посчитать количество комплектов
Кол_комплектов = 0
For d = 1 To ID(0)
strSQL = " SELECT DISTINCTROW [Месяц продажи], " & _
" Год, " & _
" Месяц, " & _
" [Дилер ID], " & _
" Count([Месяц продажи]) AS [кол_во] " & _
" FROM вознаграждение " & _
" GROUP BY [Месяц продажи], " & _
" Год, " & _
" Месяц, " & _
" [Дилер ID] " & _
" HAVING ((([Месяц продажи]=01MAR2006)) AND " & _
" ((Год)=" & Chr(34) & CStr(Ãîä) & Chr(34) & ") AND " & _
" ((Месяц)=" & Chr(34) & CStr(Ìåñÿö) & Chr(34) & ") AND " & _
" (([Дилеор ID])=" & Chr(34) & CStr(ID(d)) & Chr(34) & "))"
Set таблица_вознаграждения = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

If таблица_вознаграждения.RecordCount() > 0 Then
таблица_вознаграждения.MoveFirst
While Not таблица_вознаграждения.EOF
Кол_комплектов= Кол_комплектов+ таблица_вознаграждения.Fields(4)
таблица_вознаграждения.MoveNext
Wend
End If
Next d
End Function
 
Статус
Закрыто для дальнейших ответов.