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

[duh_si]

Здравствуйте форумчане, помогите пожалуйста в следующей проблеме..
См.рис При выборе Постовщик из выподающего списка,необходимо чтобы, подсчитывалось количество уже существующих записей по этому поставщику,.. и в Номер у поставщика попадала цифра на один больше... т.е вот сейчас у СОСО номер 8 при следующим создание заказа и выборе СОСО, номер у Пост: будет уже 9, автоматически.

[Myhaylo]

Например, Вам нужно изменить "Источник строк" (RowSource) поля со списком "Поставщик" так, чтобы кроме 2 существующий полей (Код_поставщика и Имя_поставщика) выводилось и третье - количество записей. Тогда в подпрограмме обработки события "После обновления" (AfterUpdate) поля со списком "Поставщик" Вам достаточно будет написать:

Номер_пост=Поставщик.Column(2, Поставщик.ListIndex)+1

[duh_si]

Уточнил еще раз ТЗ
Суть примерно таже, только, также выберается поставщик, только выберается еще и проект и уже в зависимости от того сколько было проектов с таким названием +1 к номеру у пост.

[duh_si]

на картинке источник строк Поставщика,
вот какой запрос

SELECT [Поставщик активный].[Короткое название] FROM [Поставщик активный] ORDER BY [Короткое название];

[Myhaylo]

Нет, если номер завити от нескольких параметров (а не от одного), то тогда нужно в AfterUpdate либо воспользоваться функцией DCount, либо - объект RecordSet.

[duh_si]

Myhaylo а можете посмотреть, по идеи у вас на почте есть мой проект..

[Myhaylo]

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

[duh_si]

Myhaylo спасибо большое..хоть вы откликаетесь
У меня вопросы есть по поводу кода:
я так понял код нужно вставить в LeadMan?(см.рис )

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

если это так, то просто я не совсем понимаю почему сделано так ...
В общем, если использовать этот код то работает все следующем образом:
выбираю Поставщика потом Проект затем выбераю LeadMan и если уже был такой Поставщик и такой Проект с Этой фамилией из LeadMan то все нормально +1 к номеру, но если выбрать другую фамилию, то возникает ошибка "Текущая запись отсутствует" выделяя эту строку НомерЗаказаУпоставщика = Nz(table!НомерЗаказаУпоставщика, 0) + 1..получается что нужно еще угадать и с фамилией которая до этого была...


мне нужно чтобы выбрали Постовщик потом Проект и в Номер у пост: +1 к уже существующей записи, ну а если записи таой еще не было, тогда просто 1 там появится (как бы не нужно чтобы еще и зависить от LeadMan) Такое возможно...?

[Myhaylo]

Простите, я перепутал: замените все LeadMan на Проект. Т. е. SELECT должен оканчиваться так:

& Поставщик & """ AND Заказ.Проект=""" & Проект & """")

[duh_si]

Код я вставил в оба списка подправив соответственно для каждого...

хм... смотрите какая штука получается:
рис.1 я отфильтровал какие записи есть у поставщика Cindy по Ароматизаторам их 2, но смотрите в Заказ Один при выборе Проект в Номер у пост: попадает цифра 1, а теоретически должна быть цифра 3...Но см.рис 2

Дело на рис.2 обстоит иначе:
при выборе Проект в Номер у Пост попадает цифра 1, но если выбрать фамилию которой принадлежат эти 2 записи (в моем случае Пазаныч) то в Номер у пост +1 (т.е 3) как и должно быть (и получается мы все равно зависим от фамилии выбранной в LeadMan) а по идеи этого не должно быть "Зависимости"