поиск данных в mdb файле

Дата: Четверг, 20.10.2016, 13:47 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

Добрый день господа.

надеюсь кому нибудь пригодиться.
файл при открытии проверяет какие есть файлы *.mdb в папке с ним
подключается к выбраному
составляет список таблиц,
выбор таблицы устанавливается opt переключателем, выделенные голубым фоном ячейки
в выделенной желтым фоном ячейке, указываем что искать
по умолчанию в начале и конце этой фразы стоят шаблоны *

по нажатию Ищем
составляется запрос с поиском всех записей, по всем полям выбранной таблицы
результат копируется в лист.

К сообщению приложен файл: Excel-VS-mdb.xlsb (32.8 Kb)

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 20.10.2016, 13:48

Дата: Среда, 02.11.2016, 10:38 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

У меня ошибку выдал. "Can`t find project or library" и сослался на Public ...., RS as Recordset
Это у меня только проблема? Или так задумано? =)
очень хотелось бы посмотреть как работает код. )

Дата: Среда, 02.11.2016, 14:56 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

надо в references подключить библиотеку Microsoft DAO 3.6 Object Library

в меню VBA
Tools/References
поставить галочку напротив Microsoft DAO 3.6 Object Library

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Среда, 02.11.2016, 14:57

Дата: Четверг, 03.11.2016, 08:33 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Цитата K-SerJC, 02.11.2016 в 14:56, в сообщении № 3

Там я проверил сразу почти. Эта библиотека с припиской Missing в начале. Если в VBA я могу кое что писать для своих нужд, то с библиотеками для меня тема темная и я не компетентен в этом вопросе....

Дата: Понедельник, 07.11.2016, 08:30 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

попрубуйте изменить строку
[vba]

Код

RS As Recordset

[/vba]
на
[vba]

Код

RS As DAO.Recordset

[/vba]

если библиотека подключена, не должно быть проблем.

возможно у вас в referens есть похожая библиотека, только другой версии
например
Microsoft DAO 3.5 Object Library

отключите ту, где стоит missing и подключите свою

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Понедельник, 07.11.2016, 08:38

Дата: Понедельник, 07.11.2016, 15:39 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Цитата K-SerJC, 07.11.2016 в 08:30, в сообщении № 5

возможно у вас в referens есть похожая библиотека, только другой версии
например
Microsoft DAO 3.5 Object Library

Странно. Но у меня вообще ни одного похожего названия нет начинающегося с Microsoft DAO

Дата: Понедельник, 07.11.2016, 16:15 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

если не установлен то вот: Microsoft.Support

Благими намерениями выстелена дорога в АД.

Дата: Понедельник, 07.11.2016, 16:44 | Сообщение № 8

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Цитата K-SerJC, 07.11.2016 в 16:15, в сообщении № 7

если не установлен то вот: Microsoft.Support

Что то я ссылки не нашел на скачивание. =( Да и сетевая безопасность не разрешит установить чего лишнего =( Похоже я самоустраняюсь =)) Жаль.

Дата: Среда, 09.11.2016, 07:50 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

delete

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 10.11.2016, 06:47

Дата: Среда, 09.11.2016, 08:32 | Сообщение № 10

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

Цитата K-SerJC, 09.11.2016 в 07:50, в сообщении № 9

надо распаковать

Еще бы пароль на архив знать.... =)))

Сообщение отредактировал Timber_Wolf - Среда, 09.11.2016, 08:33

Дата: Среда, 09.11.2016, 08:39 | Сообщение № 11

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

delete

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 10.11.2016, 06:47

Дата: Среда, 09.11.2016, 09:21 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 107

Репутация: 2 ±

Замечаний: 0% ±

Excel 2010

K-SerJC, И не подходит пароль из ЛС =)))

_Boroda_

Дата: Среда, 09.11.2016, 09:38 | Сообщение № 13

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16674

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата K-SerJC, 09.11.2016 в 08:39, в сообщении № 11

см. личные сообщения

См. Правила форума.

Это юмор такой - для работы файла, выложенного в "Готовых решениях", скинуть запароленную библиотеку? В любом случае - пункт 5о Правил

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Четверг, 10.11.2016, 06:46 | Сообщение № 14

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

Репутация: 86 ±

Замечаний: 0% ±

Excel 2013

ну вот... зря наверное хотел помочь с библиотекой, правила нарушил... извините

для работы файлу нужна установленная на вашем компьютере библиотека Microsoft DAO 3.6 Object Library
лежит у меня она по умолчанию тут
c:\Program Files\Common Files\microsoft shared\DAO\dao360.dll

техподдержка - Microsoft.Support

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 10.11.2016, 06:52