Выбор поставщика (номер +1)

[duh_si]

Сейчас попробовал при выбранном Поставщике выбрать любой другой проект вылетает ошибка "Текущая запись отсутствует" т.е получается проект нельзя добавить новый((((

[duh_si]

Сейчас попробовал при выбранном Поставщике выбрать любой другой проект вылетает ошибка "Текущая запись отсутствует" т.е получается проект нельзя добавить новый((((

Точнее можно но только если нажать End в ошибке((

[Myhaylo]

Снова виноват: запрос-то ведь должен возвращать не все записи, а с последним номером:

("SELECT Max(Заказ.НомерЗаказаУпоставщика) AS НомерЗаказаУпоставщика FROM Заказ WHERE Заказ.Поставщик=""" & Поставщик & """ AND Заказ.Проект=""" & Проект & """")

[Myhaylo]

А вот по поводу ошибки - пока не совсем понимаю природу её возникновения...

[Myhaylo]

Ну, не знаю, вот так всё работает:

Private Sub Поставщик_AfterUpdate()
Dim table As Recordset
  If Not (IsNull(Поставщик) Or IsNull(Проект)) Then
    Set table = CurrentDb.OpenRecordset("SELECT Max(Заказ.НомерЗаказаУпоставщика) AS НомерЗаказаУпоставщика FROM Заказ WHERE Заказ.Поставщик=""" & Поставщик & """ AND Заказ.Проект=""" & Проект & """")
    НомерЗаказаУпоставщика = Nz(table!НомерЗаказаУпоставщика, 0) + 1
  End If
End Sub

Private Sub Проект_AfterUpdate()
  Поставщик_AfterUpdate
End Sub

[duh_si]

Myhaylo Спасибо огромное...все работает

[duh_si]

Сообщение от Myhaylo

А вот по поводу ошибки - пока не совсем понимаю природу её возникновения...

просто если такая запись уже есть в БД (допустим ароматизаторы), то тогда все нормально, если же ее нет то возникает эта ошибка.

P.S теперь все нормально )))