Jak utworzyć pole kombi wyraz, który ma więcej niż 25 elementów z bazy danych programu Microsoft Access

W programie Microsoft Office Word 2003 i starszych wersjami wskaż polecenie makro w menu Narzędzia , a następnie kliknij polecenie Edytor Visual Basic.

W programie Word 2007 kliknij kartę Deweloper , a następnie kliknij Edytor Visual Basic

W oknie projektu wybierz swój TemplateProject.

Uwaga: Jeśli okno projektu nie ma na liście, kliknij przycisk Eksplorator projektu w menu Widok .

W menu Wstaw kliknij polecenie UserForm. Nowe UserForm i Przybornik formantów powinny być wyświetlane. Kliknij prawym przyciskiem myszy wewnątrz UserForm, a następnie w menu skrótów kliknij przycisk Widok Kod . Dodaj następujący kod do zainicjowania zdarzenia:

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

W menu Narzędzia kliknij polecenie odwołania.

Kliknij przycisk biblioteki Microsoft DAO 3.6 Object Library.

Kliknij przycisk OK , aby zamknąć okno dialogowe References .

Zamknij okno kodu.

Kliknij prawym przyciskiem myszy UserForm, a następnie w menu skrótów kliknij polecenie Właściwości . Na karcie alfabetycznie Zmień nazwę (nazwisko) frmcombo, a następnie Zmień podpis do Programu Microsoft Word. Zamknij okno Właściwości UserForm .

Na formanty Karta przybornika wybierz składnik ComboBox i umieść go na swój UserForm. Kliknij prawym przyciskiem myszy pola kombi , a następnie w menu skrótów kliknij przycisk Widok Kod . Zmień kod ComboBox:

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

Uwaga: Tekst1 jest nazwa zakładki pole tekstowe formularza, który można wstawić do szablonu w procedurze krok 2 "Utwórz pole tekstowe formularza" tego artykułu.

Zamknij okno kodu.

Na formanty Karta przybornika wybierz formant CommandButton i umieść go w formularzu użytkownika jako przycisk Zamknij . Kliknij prawym przyciskiem myszy formant CommandButton, a następnie w menu skrótów kliknij przycisk Widok Kod . Zmień kod CommandButton do:

Private Sub Cmdclose_Click()
   End
End Sub

Zamknij okno kodu.

Kliknij prawym przyciskiem myszy formant CommandButton, a następnie w menu skrótów kliknij polecenie Właściwości . Na karcie alfabetycznie Zmień nazwę (nazwisko) cmdclose, a następnie Zmień podpis Zamknij. Zamknij okno Właściwości CommandButton .

W oknie projektu wybierz swój TemplateProject.

W menu Wstaw kliknij polecenie Moduł. Zostanie wyświetlony arkusz kod modułu puste.

Wpisz następujący kod:

Sub gocombobox()
   frmcombo.Show
End Sub

W szablonie, w menu Widok wskaż polecenie Paski narzędzi, a następnie kliknij przycisk Formularze.

Umieść punkt wstawiania w miejscu gdzie ma być wynikiem listy rozwijanej wstawione. Na pasku narzędzi Formularze kliknij przycisk Pole tekstowe formularza (pierwszy przycisk po lewej stronie). Pole tekstowe formularza jest wstawiane do szablonu jako szare cieniowanie.

Uwaga: Jeśli widzisz pola {FORMTEXT{ }, naciśnij klawisze ALT + F9, aby wyłączyć kody pól.

Kliknij prawym przyciskiem myszy Pole tekstowe, a następnie w menu skrótów kliknij polecenie Właściwości .

W oknie dialogowym Opcje pola tekstowego formularza w sekcji Uruchamianie makra zaznacz gocombobox makro z wpis: o nazwie pola kombi.


Uwaga: Upewnij się, nazwa zakładki pole tekstowe formularza jest taka sama, jak określona w kroku 9 procedury "Tworzenie pola kombi UserForm" wcześniej w tym artykule.

Na pasku narzędzi Formularze kliknij przycisk Chroń formularz.

Zapisz i Zamknij szablon.