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

Тема в разделе "Другие", создана пользователем GhostProgram, 28 фев 2007.

Статус темы:
Закрыта.
  1. GhostProgram

    GhostProgram Гость

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

    Barmutik Гость

    Ну так и запрос то где ?
     
  3. GhostProgram

    GhostProgram Гость

    :) Ура!!! Ответили!!!
    Вот вроде набросал, а он не работает в таком виде...
    Есть столбец:
    Месяц продажи
    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
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей