Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос из VBA / 10 сообщений из 10, страница 1 из 1
15.02.2016, 18:53
    #39171713
dormio
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
Уважаемые форумчане!
Прошу вашей помощи! Недолго работаю в Access, умею создавать запросы, отчеты, формы. Недавно попробовала использовать VBA (ранее на VBA писала в Excel и Word).
Для меня оказалось проблемой в VBA вызвать запрос на выборку. Есть запрос в Access, созданный мастером запросов, в программном модуле нужно его запустить. Не могу найти материала для начинающего. Пошлите меня по нужному адресу))))
...
Рейтинг: 0 / 0
15.02.2016, 19:21
    #39171747
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormio,

лучше выложите базу --что бы показать на примере
...
Рейтинг: 0 / 0
15.02.2016, 19:23
    #39171751
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormioУважаемые форумчане!
... Пошлите меня по нужному адресу))))
http://www.sql.ru/faq/faq_topic.aspx?fid=410
...
Рейтинг: 0 / 0
15.02.2016, 19:30
    #39171759
guest_rusimport
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormio,
если это просто запрос на выборку и нужно посмотреть результат его выполнения , то DoCmd.OpenQuery вам в помощь
...
Рейтинг: 0 / 0
16.02.2016, 14:04
    #39172281
dormio
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
ПЕНСИОНЕРКАdormio,

лучше выложите базу --что бы показать на примере

Есть таблица - ТаблицаУчетРабот, в которой есть среди других поля НомерАкт и НеобхДоработки1(это поле логическое), при изменении значения в поле НеобхДоработки1 необходимо либо показать (когда true), либо скрыть (когда false) следующие за ним два столбца.
Для этого мне надо проанализировать все значения НеобхДоработки1 для для заданного НомерАкт(берется из формы).
Вот здесь мне и нужен запрос. Я попыталась создать его мастером запросов ЗапросПроба, но как запустить его и посмотреть значение из VBA - не знаю.
Может быть, лучше написать запрос прямо в VBA? Тоже не знаю, как это делать.
Базу прикладываю.
...
Рейтинг: 0 / 0
16.02.2016, 14:24
    #39172298
ПЕНСИОНЕРКА
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormio,
я посмотрела базу --не ахти

когда я вижу имена полей дата1-дата2-дат3.... я сразу сомневаюсь в правильности схемы базы
проверок у вас может быть любое количество, а значит должна быть не одна таблица на учет работ, а две

1-я таб:наименование работы, дата начала, дата плановой сдачи
2-я таб: переписка по работе, любое количество этапом

может я что и не понимаю в вашей теме, но одно знаю точно -большинство задач основано на подобной парочке таблиц+справочники
...
Рейтинг: 0 / 0
16.02.2016, 14:47
    #39172325
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormioПЕНСИОНЕРКАdormio,

лучше выложите базу --что бы показать на примере

Есть таблица - ТаблицаУчетРабот, в которой есть среди других поля НомерАкт и НеобхДоработки1(это поле логическое), при изменении значения в поле НеобхДоработки1 необходимо либо показать (когда true), либо скрыть (когда false) следующие за ним два столбца.
Для этого мне надо проанализировать все значения НеобхДоработки1 для для заданного НомерАкт(берется из формы).
Вот здесь мне и нужен запрос.
Я попыталась создать его мастером запросов ЗапросПроба, но как запустить его и посмотреть значение из VBA - не знаю.
Может быть, лучше написать запрос прямо в VBA? Тоже не знаю, как это делать.
Базу прикладываю.Не нужен Вам там запрос.
Проверяйте так
Код: vbnet
1.
2.
3.
4.
5.
If DCount("НеобхДоработки1", "ТаблицаУчетРабот", "НеобхДоработки1=True AND НомерАкт=" & НомерАкт_из формы) <> 0 THEN
....скрыть столбцы....
Else
...........................
End If

А еще короче так
Код: vbnet
1.
2.
Столбец1.Visible = DCount("НеобхДоработки1", "ТаблицаУчетРабот", "НеобхДоработки1=True AND НомерАкт=" & НомерАкт_из формы) = 0
Столбец2.Visible = Столбец1.Visible
...
Рейтинг: 0 / 0
16.02.2016, 14:52
    #39172332
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
dormio,

Базу Вашу, кстати, не смотрела.
И особого смысла (для ответа на Ваш вопрос) смотреть ее не вижу (каламбур вышел...).
Все и так очевидно.
...
Рейтинг: 0 / 0
16.02.2016, 15:57
    #39172405
dormio
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
ПЕНСИОНЕРКАdormio,
я посмотрела базу --не ахти

когда я вижу имена полей дата1-дата2-дат3.... я сразу сомневаюсь в правильности схемы базы
проверок у вас может быть любое количество, а значит должна быть не одна таблица на учет работ, а две

1-я таб:наименование работы, дата начала, дата плановой сдачи
2-я таб: переписка по работе, любое количество этапом

может я что и не понимаю в вашей теме, но одно знаю точно -большинство задач основано на подобной парочке таблиц+справочники

Нет, количество проверок фиксировано - именно столько, сколько сейчас в таблице.
...
Рейтинг: 0 / 0
16.02.2016, 16:05
    #39172412
dormio
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Запрос из VBA
__Michelledormioпропущено...


Есть таблица - ТаблицаУчетРабот, в которой есть среди других поля НомерАкт и НеобхДоработки1(это поле логическое), при изменении значения в поле НеобхДоработки1 необходимо либо показать (когда true), либо скрыть (когда false) следующие за ним два столбца.
Для этого мне надо проанализировать все значения НеобхДоработки1 для для заданного НомерАкт(берется из формы).
Вот здесь мне и нужен запрос.
Я попыталась создать его мастером запросов ЗапросПроба, но как запустить его и посмотреть значение из VBA - не знаю.
Может быть, лучше написать запрос прямо в VBA? Тоже не знаю, как это делать.
Базу прикладываю.Не нужен Вам там запрос.
Проверяйте так
Код: vbnet
1.
2.
3.
4.
5.
If DCount("НеобхДоработки1", "ТаблицаУчетРабот", "НеобхДоработки1=True AND НомерАкт=" & НомерАкт_из формы) <> 0 THEN
....скрыть столбцы....
Else
...........................
End If

А еще короче так
Код: vbnet
1.
2.
Столбец1.Visible = DCount("НеобхДоработки1", "ТаблицаУчетРабот", "НеобхДоработки1=True AND НомерАкт=" & НомерАкт_из формы) = 0
Столбец2.Visible = Столбец1.Visible



Спасибо большое! Сейчас буду пробовать.
Но думаю, что все равно придется столкнуться с запросом в VBA в дальнейшей работе.
А базу выложила, потому что просили.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос из VBA / 10 сообщений из 10, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]