Создание поля со списком Word, которое содержит более 25 элементов, в базе данных Microsoft Access

В Microsoft Office Word 2003 и более ранних версиях выберите Макрос в меню Сервис, затем щелкните Редактор Visual Basic.

В Word 2007 щелкните вкладку Разработчик и выберите Редактор Visual Basic

В окне Проект выберите TemplateProject.

Примечание. Если окно Проект не появляется, щелкните Обозреватель проектов в меню Вид.

В меню Вставка выберите UserForm. Появятся пользовательская форма и Панель элементов. Щелкните правой кнопкой мыши в Пользовательской форме, а затем выберите Просмотреть код в контекстном меню. Добавьте в событие Initialize следующий код:

Option Explicit
'Define Variables

Private Sub UserForm_Initialize()

Dim dbDatabase As Database
Dim rsNorthwind As Recordset
Dim i As Integer
Dim aResults()

' This code activates the Database connection. Change 
' the path to reflect your database.
Set dbDatabase = OpenDatabase("C:\My Documents\NorthWind.mdb")

' This code opens the Customers table.  Change the Table 
' to reflect the desired table.
Set rsNorthwind = dbDatabase.OpenRecordset("Customers", dbOpenSnapshot)

i = 0

   With rsNorthwind
   ' This code populates the combo box with the values 
   ' in the CompanyName field.

      Do Until .EOF
         ComboBox1.AddItem (i)
         ComboBox1.Column(0, i) = .Fields("CompanyName")
         .MoveNext
         i = i + 1
      Loop

   End With
End Sub

Выберите в меню Сервис команду Ссылки.

Щелкните Microsoft DAO 3.6 Object Library.

Нажмите кнопку OK, чтобы закрыть диалоговое окно Ссылки.

Закройте окно программы.

Щелкните правой кнопкой мыши Пользовательская форма, затем выберите Свойства в контекстном меню. На вкладке По алфавиту переименуйте (Имя) на frmcombo, затем переименуйте Заголовок на Microsoft Word. Закройте окно Свойства пользовательской формы.

На вкладке Элементы управления панели инструментов выберите Поле со списком и поместите его в пользовательскую форму. Щелкните правой кнопкой мыши элемент управления Пользовательская форма, а затем выберите Просмотреть код в контекстном меню. Измените код поля со списком на следующий.

Private Sub ComboBox1_Change()
   ActiveDocument.FormFields("Text1").Result = ComboBox1.Value
End Sub

Примечание. Text1 –– это название закладки в текстовом поле, вставленной в шаблон на этапе 2, описанном в разделе "Создание текстового поля" данной статьи.

Закройте окно программы.

На вкладке Элементы управления панели инструментов выберите CommandButton и поместите его в пользовательскую как кнопку Закрыть. Щелкните правой кнопкой мыши CommandButton, а затем выберите Просмотреть код в контекстном меню. Измените код CommandButton на следующий.

Private Sub Cmdclose_Click()
   End
End Sub

Закройте окно программы.

Щелкните правой кнопкой мыши CommandButton, затем выберите Свойства в контекстном меню. На вкладке По алфавиту переименуйте (Имя) на Cmdclose, затем переименуйте Заголовок на Закрыть. Закройте окно Свойства CommandButton.

В окне "Проект" выберите TemplateProject.

В меню Insert выберите команду Module. Появится список кодов пустого модуля.

Введите следующий код:

Sub gocombobox()
   frmcombo.Show
End Sub

в шаблоне, в меню Вид выберите Панели инструментов и щелкните Формы.

Поместите курсор в то местоположение, в которое необходимо ставить результат раскрывающегося списка. На панели инструментов Формы щелкните Текстовое поле (первая кнопка слева). Текстовое поле вставлено в шаблон с серым затенением.

Примечание. Если вы видите поле {FORMTEXT}, нажмите сочетание клавиш ALT+F9, чтобы отключить коды поля.

Щелкните правой кнопкой мыши Текстовое поле, затем выберите Свойства в контекстном меню.

В диалоговом окне Параметры текстового поля в разделе Выполнить макрос выберите макрос gocombobox в текстовом поле Ввод: .


Примечание. Убедитесь в том, что имя закладки текстового поля совпадает с указанным на этапе 9 раздела "Создание поля со списком UserForm" этой статьи.

На панели Формы щелкните Защита формы.

Сохраните и закройте шаблон.