Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.93/60: Рейтинг темы: голосов - 60, средняя оценка - 4.93
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199

VBA в Access

12.04.2011, 15:33. Показов 13344. Ответов 68
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят, нужна помощь следующего плана...
На MS Access нужно сделать форму, одну единственную, чтобы из нее можно было делать следующее:
По нажатию на кнопку "Импорт" выбиралась папка, в которой находится множество excel-файлов. Access должен из каждого Лист1 каждого файла excel брал все ячейки столбца B, добавлял их в таблицу access в первый столбец, а во второй столбец(т.е. напротив каждой добавленной ячейки) добавлял имя файла excel, из которого эта ячейка была скопирована...
Я что-то мудрил, мудрил... Не могу понять как это сделать...
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
12.04.2011, 15:33
Ответы с готовыми решениями:

Как заполнить базу данных Access с помощью vba в том же access и считать из нее инфу?
Прошу помочь в азах. Как заполнить базу данных Access с помощью vba в том же access и считать из нее инфу? Спасибо.

Можно ли в VBA скопировать в вставить запрос или таблицу из одного файла Access в другой файл Access
Вопрос такой можно ли скопировать и вставить запрос, таблицу или другой объект базы данных Access в другой файл Access средствами VBA?

Разница в скорости vba word и vba access
Вопрос: из акса идет выгрузка данных в файл ворд, далее эти данные опять же из акса форматно обрабатываются (данные заранее были тегированы...

68
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199
23.05.2011, 20:19  [ТС]
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от Настаев Посмотреть сообщение
DoCmd.SetFilter WhereCondition:="столбец=" & textbox1.text
А WhereCondition:="столбец=" что означает?
0
 Аватар для Настаев
65 / 51 / 2
Регистрация: 15.12.2010
Сообщений: 297
25.05.2011, 18:12
Wherecondition -- это условие отбора. Там можно указать, фильтр. Хотя имеется ещё один вариант:
менять запрос подчинённой формы на ходу.
Code
1
Имя_подчинённой_формы.SourceObject = "Select ... текст запроса"
1
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199
25.05.2011, 21:15  [ТС]
Цитата Сообщение от Настаев Посмотреть сообщение
Wherecondition -- это условие отбора. Там можно указать, фильтр. Хотя имеется ещё один вариант:
менять запрос подчинённой формы на ходу.
Code
1
Имя_подчинённой_формы.SourceObject = "Select ... текст запроса"
прошу прощения, но не понял(
можно на конкретном примере, если не затруднит?
как связать с запросом или таблицей?
0
 Аватар для Настаев
65 / 51 / 2
Регистрация: 15.12.2010
Сообщений: 297
26.05.2011, 18:54
Я сделал не одну подчинённую форму, а две, чтобы показать на примере нового элемента навигации в Access 2010.

Если не секрет, конечно. Что Вы там такое хитрое разрабатываете?
Вложения
Тип файла: rar Пример.rar (27.7 Кб, 74 просмотров)
1
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199
26.05.2011, 20:04  [ТС]
Цитата Сообщение от Настаев Посмотреть сообщение
Я сделал не одну подчинённую форму, а две, чтобы показать на примере нового элемента навигации в Access 2010.

Если не секрет, конечно. Что Вы там такое хитрое разрабатываете?
Ух ты, здОрово! Только с моими полтора миллионами строк в таблице думаю не будет работать так же шустренько
Не секрет, конечно
На работе, делаю базу, в которую добавлены были Вашим методом около 500 Excel файлов(в каждом от 500 до нескольких тысяч строк). Это рабочие базы начиная с 2007 года. Добавляются так же и все новые. Делается чтобы упростить свою учесть ручного поиска во всех этих файлах нужного номера

Если искать через стандартный запрос(тот, что через конструктор запросов делается), работает довольно быстро, только напрягает, что при загрузке формы запрос так же срабатывает и ищется пустая ячейка... Вот как запретить выполнение запроса при загрузке формы...?

А Ваш пример очень крутой, обязательно использую в новой БД, для клиентов
0
 Аватар для Настаев
65 / 51 / 2
Регистрация: 15.12.2010
Сообщений: 297
26.05.2011, 20:32
Я тоже однажды разрабатывал программу для работы с большими объёмами данных (правда всего лишь до 30 тыс. записей) и сталкивался с проблемой быстрой и удобной навигации. И я заметил, что в Access фильтр строк работает немного медленнее, чем в Excel. Но запросы на выбору -- быстрее. Поэтому я использовал Access для хранения данных и выполнения запросов, а Excel в качестве интерфейса.

Если Вы тоже будете использовать Excel, то в нём можно снять галочку "Обновлять при открытии". Там тоже можно написать макросы для изменения фильров. Ещё в Excel можно сделать множество листов, получающих данных из разных запросов. Вообщем возможностей там намного больше. Да и выглядит он красивее. Вот только программного кода нужно писать ооооочень много.

Что касается Access, я подумаю как избавиться от получения данных при открытии формы. Если будут варианты, дам знать.

Ещё мне всегда хотелось проверить работу Access с большими объёмами, вроде Ваших. Но руки не доходили. Скажите, сохраняется ли при этом комфортная скорость работы. И сколько у Вас оперативки?

Добавлено через 11 минут
В коде с примером я нечайно оставил лишние строки. В процессе разработки я времменно их написал и забыл удалить. Они совсем не нужны
Code
1
2
3
    Dim j As Object
    
    Set j = подчиненная_форма_Запрос
0
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199
26.05.2011, 20:32  [ТС]
Цитата Сообщение от Настаев Посмотреть сообщение
Если Вы тоже будете использовать Excel
Excel считаю нецелесообразно использовать для хранени миллионов строк(да он и не поддерживает, или в 2010 убрано ограничение?). Excel у меня используется в другой базе и справляетс на ура! Единственное, так и не смок заставить его скрывать только одну книгу(собственно, саму базу). Т.е.используются юзерформы и искрывается сама книга. Однако, скрываются все книги, даже если выбираешь activebook. Ну,получается они открыты в одной копии excel, а как запустить книгу в отдельной копии(ну в смысле отделным процессом, хз как правильно выразиться) так и не разобрался

Цитата Сообщение от Настаев Посмотреть сообщение
Excel в качестве интерфейса
Ну не знаю, наверное на вкус и цвет Мне нравится, что в Access можно сделать как настоящую программу со всеми контролами. К тому же я скрываю главное окно Акцес и видны только формы, что очень радует
Цитата Сообщение от Настаев Посмотреть сообщение
Что касается Access, я подумаю как избавиться от получения данных при открытии формы. Если будут варианты, дам знать.
Жду Надеюсь, выход есть
0
 Аватар для Настаев
65 / 51 / 2
Регистрация: 15.12.2010
Сообщений: 297
26.05.2011, 20:55
1048576 строк в Excel.

Я вижу много плюсов и минусов в обоих этих приложениях. Access для меня -- шедевр, хотя непревзойдённым называет себя Excel (перевод этого слова). Я не настаиваю на каких либо решениях, называя их лучшими. Просто имею небольшой опыт и предпочтения.
1
11 / 11 / 0
Регистрация: 23.03.2011
Сообщений: 199
26.05.2011, 21:08  [ТС]
Цитата Сообщение от Настаев Посмотреть сообщение
1048576 строк в Excel.

Я вижу много плюсов и минусов в обоих этих приложениях. Access для меня -- шедевр, хотя непревзойдённым называет себя Excel (перевод этого слова). Я не настаиваю на каких либо решениях, называя их лучшими. Просто имею небольшой опыт и предпочтения.
Ну, этих строк все равно не хватает
Я согласен, что плюсы и минусы есть в обоих. Опыта я имею не много, поэтому может быть и такой дилетантский вывод
Естественно, что-то невозможно сделать в Excel но прекрасно с этим справляется Access и наоборот. Иначе был бы один, какой-нибудь Excess
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.05.2011, 21:08

Код VBA в Access 2010 работает, в Access 2007 выдает ошибку
Написала код VBA в Access 2010 - работает, в Access-2007 выдает ошибку. В чем причина - подскажите

Знаки подстановки разные в SQL Access и SQL VBA Access
Приветствую, уважаемые форумчане. Просмотрел множество сообщений о VBA и SQL, но вот так, как у меня вопрос нигде не стоял. Делаю...

VBA в Access
1)добавляет новую запись и заполняет её данными; 2)отыскивает нужную запись и изменяет данные в ней; 3)устанавливает фильтр и...

VBA в MS ACCESS
Дан упорядоченный по неубыванию массив A из N чисел и число X. Получить массив B, вставив X в A так, чтобы B был упорядочен по...

VBA в Access
Может быть данный вопрос покажется глупым, но почему у меня отсутствует функция "User Form"?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
69
Ответ Создать тему
Новые блоги и статьи
Nekobox - outbounds[0].transport: unknown transport type: raw
damix 01.10.2026
Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru