Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [MS Access] проблема с формой и запросом

Автор: c00per 28.3.2009, 08:31

суть такая, существует таблицы "накладная" и "план", "месяцы" и "цеха".
поля "накладная":
- код
- код месяца
- код цеха
- количество

поля "план":
- код
- код месяца
- код цеха
- количество

в таблице план количество деталей необходимых сделать в указанный месяц. В накладной указываются все поступающие на склад детали от цехов. На форме есть два комбобокса (с месяцами и цехами). Необходимо при выборе цеха и месяца, при нажатии на кнопку в аксесе происходил расчет задолжности цеха по здачи изделия. Т.е. при указании месяца и цеха подсчитываем сколько он уже сдал на склад, а потом долгом будет считаться разность количества по плану и какое количество, которое сдали на склад.

вот запрос построить на подсчет количества в накладной я могу, но как мне в запрос можно вставить значнения в комбобоксе?
т.е. типа SELECT SUM(накладная.количество) AS Сумма FROM ***тут таблицы*** WHERE накладная.месяц = [ПолеСоСписком8](!/.)[Text]
если так не делается, то подскажите как можно. Очень нужно, до вечера надо сдать!

Автор: DenniLa2 28.3.2009, 09:01

Цитата(c00per @ 28.3.2009, 08:31

)

SELECT SUM(накладная.количество) AS Сумма FROM ***тут таблицы*** WHERE накладная.месяц = [ПолеСоСписком8]

SELECT SUM(накладная.количество) AS Сумма FROM ***тут таблицы*** WHERE накладная.месяц = [Forms]![Твоя Форма]![ПолеСоСписком8]

Автор: bopoha 28.3.2009, 14:51

Можно еще использовать функцию DSum для подсчета.

Автор: c00per 28.3.2009, 15:30

вот код на кнопке

Код


    Dim strSQL As String
    strSQL = "SELECT SUM(Накладная.Количество) AS Сумма " & _
                   "FROM Месяца INNER JOIN (Цеха INNER JOIN Накладная ON Цеха.код=Накладная.[код Цеха]) ON Месяца.код=Накладная.Месяц" & _
                   "WHERE (Месяца.Месяц=" & Me.ПолеСоСписком10.Value & ") AND (Цеха.[Наименование цеха]=" & Me.ПолеСоСписком8.Value & ");"
     Me.Поле13.Value = CurrentDb.Execute(strSQL).Fields(0).Value

Хочу для начала удостовериться с работоспособностью, просто отобразить результат запроса в поле13
Но все равно выходит ошибка, материться на объединение таблиц, хотя создаю запрос втыкаю запрос и работает без ошибок :\

что я делаю не так?

Автор: c00per 28.3.2009, 15:55

Так, сделать голый sql запрос на выборку и расчет, получился таким:

Код


SELECT (SELECT SUM(Планы.Количество) FROM Цеха INNER JOIN (Месяца INNER JOIN Планы ON Месяца.код=Планы.Месяц) ON Цеха.код=Планы.[код Цеха]
WHERE (((Месяца.Месяц)=Forms!Главная!ПолеСоСписком10) And ((Цеха.[Наименование цеха])=Forms!Главная!ПолеСоСписком8))) - Sum(Накладная.Количество) AS [Долг цеха]
FROM Цеха INNER JOIN (Месяца INNER JOIN Накладная ON Месяца.код=Накладная.Месяц) ON Цеха.код=Накладная.[код Цеха]
WHERE (((Месяца.Месяц)=Forms!Главная!ПолеСоСписком10) And ((Цеха.[Наименование цеха])=Forms!Главная!ПолеСоСписком8));

ПолеСоСписком10 и ПолеСоСписком8 это комбобоксы на главной форме, сделал по кнопке открытия запроса. Но все равно не работает!
Запрос работает на 100% (проверял несколько раз), но вот получается что данные с формы не подставляются в запрос. Что делать?

Автор: bopoha 31.3.2009, 12:54

Очень рекомендую отказаться от ссылки на поля формы в запросах, лучше заменить их на параметры. При чем в конструкторе запросов эти параметры можно задавать.

Код


PARAMETRS prmK_KLIENT Long;
SELECT ... FROM ... WHERE K_KLIENT = [prmK_KLIENT];

Использовать так:

Код


    Dim qry As DAO.QueryDef
    Dim rst As DAO.Recordset
    
    Set qry = CurrentDb.QueryDefs("z_calc_sum")
    ' Или так создать временный запрос
    ' Set qry = CurrentDb.QueryDefs("")
    ' qry.SQL = stSQL
    qry.Parameters("prmK_KLIENT") = Me.K_KLIENT
    Set rst = qry.OpenRecordset
    qry.Close
    ' ...
    rst.Close

Автор: Akina 31.3.2009, 13:29

Для домашних заданий, курсовых и вопросов типа "Сделайте за меня" существует раздел "Центр Помощи".

Тема перенесена.