Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.04.2012, 22:11   #11
raytek
Пользователь
 
Регистрация: 07.11.2011
Сообщений: 67
По умолчанию

Доброго времени суток! Подскажите пожайлуста еще раз:

вставил код в свойства поля [Производитель]

Источник строк: SELECT [Заводы-изготовители].Производитель, [Заводы-изготовители].Продукция FROM [Заводы-изготовители] WHERE (([Заводы-изготовители].Продукция) Like "*" & [Тип] & "*")

работает, но только при загрузке формы, при смене [Тип] список [Производитель] отстается старым, добавил VBA:

Private Sub Тип_AfterUpdate()
Me!Производитель.RowSource = "SELECT [Заводы-изготовители].Производитель, [Заводы-изготовители].Продукция FROM [Заводы-изготовители] WHERE (([Заводы-изготовители].Продукция) Like " * " & [Тип] & " * ")"
End Sub

Ругается.... хотя вот-так рабатает, список обнуляется:

Private Sub Тип_AfterUpdate()
Me!Производитель.RowSource = ""
End Sub

где я ошибаюсь?
raytek вне форума Ответить с цитированием
Старый 27.04.2012, 19:45   #12
R Dmitry
Форумчанин
 
Регистрация: 07.03.2010
Сообщений: 796
По умолчанию

Цитата:
Сообщение от raytek Посмотреть сообщение
Доброго времени суток! Подскажите пожайлуста еще раз:

вставил код в свойства поля [Производитель]

Источник строк: SELECT [Заводы-изготовители].Производитель, [Заводы-изготовители].Продукция FROM [Заводы-изготовители] WHERE (([Заводы-изготовители].Продукция) Like "*" & [Тип] & "*")

работает, но только при загрузке формы, при смене [Тип] список [Производитель] отстается старым, добавил VBA:

Private Sub Тип_AfterUpdate()
Me!Производитель.RowSource = "SELECT [Заводы-изготовители].Производитель, [Заводы-изготовители].Продукция FROM [Заводы-изготовители] WHERE (([Заводы-изготовители].Продукция) Like " * " & [Тип] & " * ")"
End Sub

Ругается.... хотя вот-так рабатает, список обнуляется:

Private Sub Тип_AfterUpdate()
Me!Производитель.RowSource = ""
End Sub

где я ошибаюсь?
Код:
Private Sub Тип_AfterUpdate()
Me!Производитель.RowSource = Me!Производитель.RowSource
End Sub
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
R Dmitry вне форума Ответить с цитированием
Старый 05.05.2012, 21:34   #13
raytek
Пользователь
 
Регистрация: 07.11.2011
Сообщений: 67
По умолчанию

Огромное спасибо, все работает супер!
raytek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Условный оператор,оператор цикла и массив Klark73 Microsoft Office Excel 1 19.12.2011 17:09
Оператор выбора или условный оператор[Перенесено из JavaSE] merhaba1992 Помощь студентам 1 20.01.2011 17:06
Условный оператор. Оператор выбора. Pascal Сержuk Помощь студентам 4 17.11.2010 12:50
Вычислить используя, оператор цикла for и оператор безусловного пе Knubbe Помощь студентам 1 18.12.2009 10:24