Ako vytvoriť slovo rozbaľovacie pole, ktoré má viac ako 25 položky z databázy Microsoft Access

Microsoft Office Word 2003 a v starších verions, ukážte na položku makro v ponuke Nástroje a kliknite na tlačidlo Editor jazyka Visual Basic.

V programe Word 2007 kliknite na kartu vývojár a kliknite na tlačidlo Editor jazyka Visual Basic

V okne projektu vyberte váš TemplateProject.

Poznámka: Ak projekt okno nezobrazuje, kliknite na tlačidlo Prieskumník projektu v ponuke Zobraziť .

V ponuke Vložiť kliknite na položku UserForm. Nové UserForm a Ovládacie prvky vyskytnú. Kliknite pravým tlačidlom myši UserForma potom kliknite na položku Zobraziť kód v kontextovej ponuke. Inicializácia udalosti, pridajte nasledujúci kód:

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

V ponuke Nástroje kliknite na položku Odkazy.

Kliknite na položku Microsoft DAO 3.6 Objektová knižnica.

Kliknite na tlačidlo OK zatvorte dialógové okno Odkazy .

Zatvorte okno kód.

Kliknite pravým tlačidlom myši UserForm, a potom v kontextovej ponuke kliknite na položku Vlastnosti . Na abecedný kartu, premenujte na frmcombo(názov) a potom premenujte Popis na Program Microsoft Word. Zatvorte okno UserForm vlastnosti .

Na karte Ovládacie prvky panela s nástrojmi, vyberte rozbaľovacie pole a umiestnite na vaše UserForm. Kliknite pravým tlačidlom myši na rozbaľovacie pole ovládací prvok a v kontextovej ponuke kliknite na tlačidlo Zobraziť kód . Zmena kódu rozbaľovacie pole:

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

Poznámka: Text1 je názov záložky textové pole formulára, ktoré vložíte do šablóny v kroku 2 "vytvoriť textové pole formulára" postup v tomto článku.

Zatvorte okno kód.

Na karte Ovládacie prvky panela s nástrojmi, vyberte CommandButton a umiestniť na formulári používateľa ako tlačidlo Zavrieť . Kliknite pravým tlačidlom myši CommandButtona kliknite na položku Zobraziť kód v kontextovej ponuke. Zmena kódu CommandButton:

Private Sub Cmdclose_Click()
   End
End Sub

Zatvorte okno kód.

Kliknite pravým tlačidlom myši CommandButton, a potom v kontextovej ponuke kliknite na položku Vlastnosti . Na abecedný kartu, premenovať (meno) na nazvať przZavrieťa potom premenujte Popis na zatvorte. Zatvorte okno Vlastnosti CommandButton .

V okne projektu vyberte váš TemplateProject.

V ponuke Vložiť kliknite na položku modul. Zobrazí sa kód hárku prázdne modulu.

Zadajte nasledujúci kód:

Sub gocombobox()
   frmcombo.Show
End Sub

Šablóny, v ponuke Zobraziť ukážte na položku Panely s nástrojmia kliknite na tlačidlo Formuláre.

Umiestnite kurzor, ak chcete výsledok rozbaľovací zoznam vložený. Na paneli, kliknite na tlačidlo Textové pole formulára (prvé tlačidlo na ľavej strane). Textové pole formulára je vložený do šablóny ako sivé podfarbenie.

Poznámka: Ak {{ FORMTEXT poľa, stlačte kombináciu klávesov ALT + F9 vypnúť kódy polí.

Kliknite pravým tlačidlom myši Textové pole formuláraa potom v kontextovej ponuke kliknite na položku Vlastnosti .

V dialógovom okne Možnosti textového poľa formulára makro spustiť časti začiarknite gocombobox makro z položka: názov poľa so zoznamom.


Poznámka: Uistite sa, že názov záložky z vášho textové pole formulára je rovnaký ako ten, ktorý ste zadali v kroku 9 "Vytvoriť UserForm zoznamom" vyššie v tomto článku.

Na paneli, kliknite na tlačidlo Zabezpečiť formulár.

Uložte a zatvorte šablónu.