Склад

[Ribun]

Здравствуйте!Делаю бухгалтерско-складскую програмку.Есть проблемка.Не получается сделать форму в которой будет открываться выпадающий список с одной записи в другую.Если подробнее,то есть несколько таблиц.Каждая таблица имеет строку подстановки из предыдущей таблицы.Получается ,что они все связаны между собой цепочкой от одной таблицы к другой.Допустим мне надо найти товар под именем: Саморез3,5х16.Надо в форме открывать и переходить примерно так:Склад-Материалы-Крепежные элементы-Шурупы-Саморез3,5х16.
Прошу не пинайте.Листаю литературу,брожу по темам ,а ответа не нахожу.Две таблицы в форме связываю ,а больше никак.Пожалуйста любой пример,любой базы,ссылка....Или совет.access 2003

[Teslenko_EA]

Здравствуйте Ribun.
надеюсь Вам будет полезен образец.
Евгений.

[Ribun]

Вроде то что надо.СПАСИБО.Начинаю изучать.Хотелось бы видеть это в форме таблицы.Нажимаешь на плюсик и выходит список ,выбирашь строку в списке,кликаешь на плюсик в списе и т.д. Это возможно?

И здесь все реализовано.Возможно!СПАСИБО

[Ribun]

Почти все понятно.Спасибо большое.Все гениальное просто!Не пойму одного зачем таблица setValue? Еще раз спасибо!!!

Все понятно и по этому вопросу :зачем таблица setValue.СПАСИБО

[Ribun]

Еще раз спасибо за помощь.Спасибо ,что как говорится не даете рыбу а даете удочку...
access 2003.
В базе(db3) добавляю таблицу.Дописываю vba - все работает(правда немного не полноценно.Пример: в форме1 выбрать "жигули"-"тормозная система"-"тормозные колодки"-"крепление колодок",а потом поменять "тормозная система ваз" на"двигатель ваз" и видно эту самую неполноценность).Добавляю еще 2 таблицы -не работает.2 дня на поиски-результата нет.Еще раз прошу ПОМОГИТЕ

[Ribun]

Еще раз прошу помощи.

[myprog]

Не знаю зачем строка readLast v

Private Sub ПолесоСписком0_AfterUpdate()
Dim v&(6)
v(0) = Val(ПолесоСписком0 & "")
'readLast v

Но если отключить все в пинципе работает

[Teslenko_EA]

Здравствуйте Ribun.
"..если отключить все в принципе работает .." - наверное это просто очепятка.
Евгений.

[Ribun]

Спасибо myprog!Да все работает.Правда значения в следующем поле появляется после того как мы выбираем предыдущее перед ним и .т.д.В принципе задача технически решена.Но очень красиво выглядит это в варианте формы Teslenko_EA.При выборе значения,меняются все данные в следующих таблицах.Информация как бы уменьшается по ходу.
Teslenko_EA если не составит труда,объясните пожалуйста в чем ошибка.Либо подправьте всю базу (ту где добавлено 4 таблицы).Изучать готовый пример всегда легче.Еще раз спасибо всем за помощ!

[Teslenko_EA]

Здравствуйте Ribun.
"..в чем ошибка.." - если вопрос о Вашей конструкции с применением функции readLast, ошибка в следующем:
в функцию передается массив v&() с форматом Long, у массива vA() формат Variant, при получении данных из рекордсета проверка соответствия данных не производится и потому при отсутствии значения в поле рекордсета, в массив попадает NULL, а т.к. v&() допускает только Длинное Целое, в процессе присвоения происходит ошибка. "Лечить" можно функцией VBA MS Access - Nz:

Function readLast(v&())
...
    vA = cn.Execute(sQ & v(0)).GetRows
    v(1) = Nz(vA(1, 0), 0)
    v(2) = Nz(vA(2, 0), 0)
    v(3) = Nz(vA(3, 0), 0)
    v(4) = Nz(vA(4, 0), 0)
    v(5) = Nz(vA(5, 0), 0)
    v(6) = Nz(vA(6, 0), 0)
...

Евгений.
P.S. все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.