Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 401
от 28.10.2006, 01:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 202, Экспертов: 30
В номере:Вопросов: 1, Ответов: 1


Вопрос № 59784: есть следующая задача на access 2000 1. На форме есть поле со списком "Отдел" с источником строк: SELECT Отдел.КодОтдела, Отдел.Название FROM Отдел; и список "Список сотрудников в отделе" с источником строк S...

Вопрос № 59.784
есть следующая задача на access 2000
1. На форме есть
поле со списком "Отдел" с источником строк:
SELECT Отдел.КодОтдела, Отдел.Название FROM Отдел;
и список "Список сотрудников в отделе" с источником строк
SELECT СписокСотрудниковВОтделе.ФИО, СписокСотрудниковВОтделе.КодОтдела,

СписокСотрудниковВОтделе.КодСотрудника FROM СписокСотрудниковВОтделе;
при выборе Отдела записи в Списке сотрудников должны изменятся соответственно
Почему не работает код в приложении???
2. При каких условиях работают фильтры на форме
Есть форма "Ленточная" с источником строк
Отношение Кредиты:
КодКредита, Наименование, ДатаПолучения,СрокПогашения,СуммаКредита,Выплачено
Ставлю фильтр [СуммаКредита] - [Выплачено] > 0
Или по нажатию на кнопку
Me.Filter = "[СуммаКредита] - [Выплачено] > 0"
Me.FilterOn = TRUE
Вообщем как пользоваться этой штукой и при каких условиях она не работает???

Приложение:

Отправлен: 22.10.2006, 15:58
Вопрос задал: DragonTusk (статус: 2-ой класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, 2!
1. Вы пытаетесь установить фильтр на Recordset, а он не является источником строк для списка.
Источник строк для "Список сотрудников в отделе"
SELECT КодСотрудника, ФИО, КодОтдела
FROM СписокСотрудниковВОтделе
WHERE КодОтдела=[Forms]![Форма1]![Отдел]
Private Sub Отдел_AfterUpdate()
[Список сотрудников в отделе].Requery
End Sub
Можно так:
Private Sub Отдел_AfterUpdate()
[Список сотрудников в отделе].RowSource ="SELECT КодСотрудника, ФИО, КодОтдела FROM СписокСотрудниковВОтделе " & _
"WHERE КодОтдела=" & Отдел
End Sub
2. Фильтр применяется к полю, создайте запрос с полем field0 ([СуммаКредита] - [Выплачено] as field0) и к нему примените фильтр Me.Filter = "ашудв0 > 0

Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 2-ой класс)
Ответ отправлен: 22.10.2006, 22:02
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.37 от 04.10.2006
Яндекс Rambler's Top100

В избранное