Экспорт данных из таблицы MS Access в зависимости от выбора пользователя

@komsomol99l · Регистрация: 11.10.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток уважаемые форумчане!!!

Необходима Ваша помощь в осуществлении следующей задачи:
Имеем таблицу tbl_Personal и форму frm_Personal отображающие данные названной таблицы. В примечании формы имеем флажки под каждым из полей и кнопку для экспорта в Excel.

Суть вопроса: как сделать экспорт данных таблицы в зависимости от выбора пользователя, т.е. если пользователь поставил галочки во флажках под полями фамилия, имя и дата рождения, то только эти столбцы таблицы tbl_Personal экспортировались в Excel.

СПАСИБО!!!

@ltv_1953 · 21.01.2015, 16:23

По простому можно сделать, как во вложении.
Другой вариант формирования SQL здесь Поиск по данным разного вида.
И для уменьшения писанины все флажки имеют значение по умолчанию False.

mobile · 21.01.2015, 16:47

Немного иначе, нежели уже предложено

@JohnDrinking · 21.01.2015, 22:36

mobile, подскажите, как расшифровывается следующий код в вашем примере:

Visual Basic

1	If Nz(Me(chk(i)), False)

и для чего Me, немного непонятно..

mobile · 21.01.2015, 22:54

chk(i) это элемент массива названий. Для того, чтобы определить свойства контрола с этим названием, надо его опросить. Вот выражение Me(chk(i)) как раз и определяет контрол формы с названием, содержашимся в элементе массива chk(i). Me в коде формы это синоним самой формы. Не надо вспоминать как называется форма, Me.Name ответит на этот вопрос. А для определения контролов формы есть несколько вариантов написания. Они различаются некоторыми возможностями. Если точно известно название поля, то достаточно написать Me.Поле или Me!Поле. Если имя поля содержится, как в данном случае в переменной, то уместен вариант Me(переменная). В первом случае Me рассматривается как коллекция, во втором как функция. Me обладает всеми этими свойствами. Также как и сама форма. Надо просто знать какое из когда применять.

Функция Nz применена для случая, когда для чекбоксов задано тройное значение, т.е. чекбокс может быть NULL. Чтобы не было ошибок (когда флажок NULL), задаем через NZ умолчательное значение False.

@komsomol99l · 22.01.2015, 18:56 **[ТС]**

ОГРОМНОЕ ВСЕМ СПАСИБО!!!

Добавлено через 12 часов 51 минуту
Уважаемый гуру mobile, используя Ваш вариант пыталась выгружать в Excel ещё и заголовки таблицы, но чёй-то у меня ничего не получилось. Не откажите в помощи в данном вопросе!

СПАСИБО!!!

mobile · 22.01.2015, 19:56

Вот с заголовками. Смотрите процедуру на кнопке в модуле формы. Там даны некоторые комментарии

@komsomol99l · 22.01.2015, 20:00 **[ТС]**

Всё СУПЕР!!! ОГРОМНЕЙШЕЕ СПАСИБО!!!

mobile 26806 / 14485 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	21.01.2015, 22:54	5
	chk(i) это элемент массива названий. Для того, чтобы определить свойства контрола с этим названием, надо его опросить. Вот выражение Me(chk(i)) как раз и определяет контрол формы с названием, содержашимся в элементе массива chk(i). Me в коде формы это синоним самой формы. Не надо вспоминать как называется форма, Me.Name ответит на этот вопрос. А для определения контролов формы есть несколько вариантов написания. Они различаются некоторыми возможностями. Если точно известно название поля, то достаточно написать Me.Поле или Me!Поле. Если имя поля содержится, как в данном случае в переменной, то уместен вариант Me(переменная). В первом случае Me рассматривается как коллекция, во втором как функция. Me обладает всеми этими свойствами. Также как и сама форма. Надо просто знать какое из когда применять. Функция Nz применена для случая, когда для чекбоксов задано тройное значение, т.е. чекбокс может быть NULL. Чтобы не было ошибок (когда флажок NULL), задаем через NZ умолчательное значение False. 1

@komsomol99l 6 / 6 / 2 Регистрация: 11.10.2014 Сообщений: 108
	22.01.2015, 18:56 [ТС]	6
	ОГРОМНОЕ ВСЕМ СПАСИБО!!! Добавлено через 12 часов 51 минуту Уважаемый гуру mobile, используя Ваш вариант пыталась выгружать в Excel ещё и заголовки таблицы, но чёй-то у меня ничего не получилось. Не откажите в помощи в данном вопросе! СПАСИБО!!! 0

@komsomol99l 6 / 6 / 2 Регистрация: 11.10.2014 Сообщений: 108
	22.01.2015, 20:00 [ТС]	8
	Всё СУПЕР!!! ОГРОМНЕЙШЕЕ СПАСИБО!!! 0

Экспорт данных из таблицы MS Access в зависимости от выбора пользователя

Решение