|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.07.2021, 13:46 | #1 |
Новичок
Джуниор
Регистрация: 06.07.2021
Сообщений: 1
|
Работа с данными в word из БД access по запросам
Добрый день!
Бьюсь на такой задачей. По следующему запросу обращаюсь к БД в access On Error GoTo NotOpen Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source= (далее путь к базе) но обращение не происходит, в чем может быть дело? версия офиса 2019 Уточню ситуацию. У меня основной вайл формы в Word. Создал форму с текстовыми полями (тип выбор) и хочу из базы данных по признаку сделать запрос данных (перечень сотрудников) чтобы выпадающий список в форме подтягивал 1 столбец данных из access БД. Также дополнительно сделать автозапись в соседнюю ячейку подписи (картинки PDF или tif) в соответствии с выбранной фамилией. Весь код у меня в word, а вот что должно быть в БД (форма данных) и как их подтянуть - вот тут проблемка. Пример рабочего скрипта у меня есть, но под вновь созданную базу заставить его работать не вышло пока. Расширенная часть кода: Private Sub UserForm_Activate() Dim index As Integer index = 1 On Error GoTo NotOpen Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & "Data Source= C:\Users\saliy\Desktop\VBA\Сотрудни ки.accdb;" 'Выбираем все записи SQLString = "SELECT Сотрудники.* FROM Сотрудники ORDER BY Сотрудники.Сотрудник" RecordSet.Open SQLString, Connection, adOpenForwardOnly, adLockReadOnly, adCmdText RecordSet.MoveFirst ' Очищаем поля ComboBox ComboB_Developed.Clear ComboB_Checked.Clear ComboB_Head.Clear ComboB_Control.Clear ComboB_HeadProject.Clear ComboB_Stage.Clear ComboB_Signature.Clear ComboB_Tom.Clear ComboB_Language.Clear 'Проходим по всем строкам While Not RecordSet.EOF 'Заполняем список сотрудников employee = employee & Format(index, "00") & ":" & RecordSet![Сотрудник] & ";" employeeENG = employeeENG & Format(index, "00") & ":" & RecordSet![employee] & ";" 'Заполняем соответствующие ComboBox If RecordSet![Должность] <> "8" And RecordSet![Должность] <> "9" And RecordSet![Должность] <> "10" Then ComboB_Developed.AddItem RecordSet![Сотрудник] ComboB_Checked.AddItem RecordSet![Сотрудник] End If If RecordSet![Должность] = "8" Then '8 - индекс нач. отдела в подстановочной таблице ComboB_Head.AddItem RecordSet![Сотрудник] End If If RecordSet![Нормоконтролер] Then ComboB_Control.AddItem RecordSet![Сотрудник] End If If RecordSet![Должность] = "10" Then '10 - индекс ГИПа в подстановочной таблице ComboB_HeadProject.AddItem RecordSet![Сотрудник] End If 'Переходим на следующую строку RecordSet.MoveNext index = index + 1 'Проверка окончания строки Wend 'Закрываем соединения RecordSet.Close Connection.Close BaseConnect = True GoTo ClosePiPNR NotOpen: 'Если соединения с БД нет, то значения берутся по умолчанию из документа MsgBox ("Отсутствует подключение к базе данных") BaseConnect = False Прошу специалистов помочь. По запросу могу дать больше данных. Может я не правильно формирую БД под такие запросы или что-то не активировал. Спасибо! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Hаскрывающийся список в Word-2007 c данными из Excel | korantole | Microsoft Office Word | 4 | 14.12.2013 15:45 |
авто заполнение документов данными из Excel в Word | asdfgame | Microsoft Office Word | 8 | 27.03.2013 17:28 |
Автозаполнение таблицы в Word данными из Excel | Medlain | Microsoft Office Word | 1 | 28.03.2012 11:11 |
Заполнение таблицы excel данными из word | Raig | Microsoft Office Excel | 3 | 10.08.2010 14:29 |
Автозаполнение таблицы excel данными из word | Фауст | Microsoft Office Excel | 4 | 23.07.2009 03:07 |