Форумы HiProg.com - MS ACCESS, VBA, VB

ник: User
День добрый. Спасибо за внимание к моей беде. вопрос по оператору "Select case" вместо использованного мною If - Then, а куда можно деть
дополнительные условия "And (d = 1 And w = 2)" насколько я понял,
их в Selekt не засунешь. Возможно я ошибаюсь.
Если не очень трудно, напишите, как должно быть записано моё выражение от и до.
Вопрос по поводу рекордсета.

strSql = _ "SELECT tabZak.id_Prog_zak, tabZak.id_kat_zak, tabZak.Id_Vozr, tabZak.Тип_док, tabZak.Kol " & _ "FROM tabZak " & _ "WHERE tabZak.id_Prog_zak=" & Me.id_Закпрог

и запрос, определяющий данные формы(источник записей)

SELECT tabZak.id_Zak, tabZak.id_Prog_zak, tabZak.Дата, tabZak.Время, tabZak.id_post_zak,  tab_post.Название, tabZak.id_Usl_zak, tab_Uslugi.Услуги_подробно, tabZak.id_kat_zak, tabZak.Id_Vozr, tab_Vozr.Кат_туриста, tabZak.Тип_док, tab_TipDoc.Doc, tabZak.cena, tabZak.Id_seson, tab_sezon.Тип_Сез, tabZak.Kol, tabZak.закр, tabZak.Стоимость,  * FROM tab_Vozr INNER JOIN (tab_Uslugi INNER JOIN (tab_post INNER JOIN ((tabZak INNER JOIN tab_TipDoc ON tabZak.Тип_док=tab_TipDoc.Id_doc) INNER JOIN tab_sezon ON  tabZak.Id_seson=tab_sezon.idSez) ON tab_post.Id_post=tabZak.id_post_zak) ON  tab_Uslugi.id_Usl=tabZak.id_Usl_zak) ON tab_Vozr.idV=tabZak.Id_Vozr ORDER BY tabZak.Дата,  tabZak.Время, tabZak.id_kat_zak;

практически одинаковы. число строк на форме и в рекордсете одинаково. Вот тут и возникает главный вопрос ПОЧЕМУ значение "е" или "rs.Fields(4)" определяется ПРАВИЛЬНО(!) для первой
записи в таблице на которую установлен курсор и этим значением заполняется ВЕСЬ рекордсет.
Более понятно можно убедиться практически, скачав пример из начала поста.