Kuidas luua Wordi liitboksi, millel on rohkem kui 25 kirjet Microsoft Accessi andmebaas

Microsoft Office Word 2003 ja varasemate verions, menüüs Tööriistad käsk makro ja klõpsake siis käsku Visual Basic Editor.

Rakenduses Word 2007 klõpsake vahekaarti arendaja ja klõpsake Visual Basic Editor

Valige aknas projekti oma TemplateProject.

Märkus: kui projekti akent ei kuvata, klõpsake menüü Vaade käsku Project Explorer .

Klõpsake menüü Lisa UserForm. Uus UserForm ja Juhtelemendid tööriistakasti peaks ilmuma. UserFormparemklõpsake ja klõpsake otseteemenüü käsku Kuva kood . Lisage järgmine kood lähtestamine sündmus:

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

Klõpsake menüüs Tööriistad Viited.

Klõpsake Microsoft DAO 3.6 teegi.

Klõpsake nuppu OK , et sulgeda dialoogiboks Viited .

Sulgege aken koodi.

UserFormparemklõpsake ja klõpsake otseteemenüü käsku Atribuudid . Vahekaardi Alphabetic ümber nimetada frmcombo(nimi), ja seejärel pange pealdise Microsoft Wordi. UserForm atribuutide akna sulgemiseks.

Tööriistakasti juhtelemendid jaotises Valige liitboksi ja asetage see oma UserForm. Liitboksi juhtelement, paremklõpsake ja klõpsake otseteemenüü käsku Kuva kood . Muutke liitboksi kood:

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

Märkus: Tekst1 vormi tekstiväli, mis lisada oma malli "Luua the vormi tekstiväli" samm 2 protseduuri käesoleva artikli järjehoidja nimi.

Sulgege aken koodi.

Tööriistakasti juhtelemendid jaotises CommandButton ja asetage see oma kasutaja kujul nuppu Sule . CommandButtonparemklõpsake ja klõpsake otseteemenüü käsku Kuva kood . Muuda CommandButton kood:

Private Sub Cmdclose_Click()
   End
End Sub

Sulgege aken koodi.

CommandButtonparemklõpsake ja klõpsake otseteemenüü käsku Atribuudid . Vahekaardi Alphabetic Nimeta nimeks panna cmdSule(nimi) ja seejärel Nimeta pealdise Sule. CommandButton atribuutide akna sulgemiseks.

Valige aknas projekti oma TemplateProject.

Klõpsake menüü Lisa käsku moodul. Kuvatakse tühi moodulilehele koodi.

Tippige järgmine kood:

Sub gocombobox()
   frmcombo.Show
End Sub

Malli, valige menüü Vaade käsk Tööriistaribadja klõpsake vormid.

Viige järjepunkt, kuhu soovite lisada ripploendi tulemus. Klõpsake tööriistaribal vormid Vormi tekstiväli (esimene nupp vasakul). Vormi tekstiväli lisatakse teie malli halli varjustus.

Märkus: {FORMTEXT} välja kuvamisel klahvikombinatsiooni ALT + F9 väljakoodid välja lülitada.

Paremklõpsake Vormi tekstivälija klõpsake otseteemenüü käsku Atribuudid .

Valige dialoogiboksis Tekstivormivälja suvandid jaotises Käivita makro makro gocombobox on kirje: nimega liitboks.


Märkus: Veenduge, et vormi tekstiväli järjehoidja nimi on sama, mis käesolevas artiklis eespool kirjeldatud protseduuri "Luua UserForm liitboksi kasti" juhises 9 määratud.

Klõpsake tööriistariba vormid nuppu Kaitse vormi.

Salvestage ja sulgege malli.