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

Selle artikli Microsoft Word 97 jaoks leiate artiklinumbriga 253552.

Kokkuvõte

Selles artiklis kirjeldatakse, kuidas luua ja kasutada UserForm liitboksi kirje makro vormi tekstiväljale teabe saamiseks Microsoft Accessi andmebaas. See makro saab kasutada lahendusena 25-üksuse piirangu tõttu rippmenüüst vormiväljad.

Kuidas seda teha, kui te ei kasuta Microsoft Accessi andmebaasi kohta lisateabe saamiseks klõpsake Microsofti teabebaasi (Knowledge Base) artiklite kuvamiseks järgmisi artiklinumbreid:

198561 kuidas liitboks, mis sisaldab rohkem kui 25

306258 kuidas luua liitboksi, mis sisaldab rohkem kui 25 kirjet rakenduses Word 2002

Lisateabe saamiseks

Microsoft pakub programmeerimisnäiteid ainult artikli illustreerimiseks ilma igasuguse otsese või kaudse garantiita. See hõlmab, kuid ei piirdu kaudseid garantiisid turustatavuse või kindlaks otstarbeks sobivusega. See artikkel eeldab, et olete demonstreeritava programmeerimiskeelega programmeerimise keel ning luua protseduuride ja silumiseks kasutatavate tööriistadega tuttav. Microsofti tugitehnikud võivad aidata mõne konkreetse protseduuri funktsiooni selgitada, kuid ei muuda nad neid näiteid lisafunktsioonide pakkumiseks ega Koosta vastavaid protseduure teie konkreetsetele nõuetele.
Lisateabe saamiseks klõpsake Microsofti teabebaasi artikli kuvamiseks järgmist artiklinumbrit:

212536 Kuidas käivitada näidiskood teabebaasi artiklitest Office 2000

Malli, toimige järgmiselt.

Märkus: aken (nt akna kood või akna Atribuudid ), klõpsake nuppu X akna ülemises parempoolses nurgas.

Luua UserForm liitboksi

  1. 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

  2. Valige aknas projekti oma TemplateProject.

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

  3. 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
  4. Klõpsake menüüs Tööriistad Viited.

  5. Klõpsake Microsoft DAO 3.6 teegi.

  6. Klõpsake nuppu OK , et sulgeda dialoogiboks Viited .

  7. Sulgege aken koodi.

  8. 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.

  9. 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.

  10. Sulgege aken koodi.

  11. 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
  12. Sulgege aken koodi.

  13. 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.

UserForm Liitboks on lõppenud. Jätkake "Loo kirje makro" protseduuri.

Kirje Makro loomine

  1. Valige aknas projekti oma TemplateProject.

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

  3. Tippige järgmine kood:

    Sub gocombobox()
    frmcombo.Show
    End Sub

Makro kirje on lõppenud. Klõpsake menüü fail sulgeda ja naasta Microsoft Wordi.

Looge vormi tekstiväli

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

  2. 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.

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

  4. 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.

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

  6. Salvestage ja sulgege malli.

Word 2003 ja varasemate verions malli kasutamiseks klõpsake menüü fail Uus . Valige oma malli ja seejärel klõpsake nuppu OK.

Malli kasutamiseks rakenduses Word 2007 klõpsake Microsoft Office'i nuppu, klõpsake Uus, valige malli ja klõpsake nuppu Loo.

Kuvatakse teie mallil põhinev uus dokument. UserForm, mis sisaldab liitboksi oma üksustega kuvatakse siis, kui te kasutada tabeldusklahvi (TAB) liikuda vormi tekstiväli.

Kas vajate veel abi?

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liitu Microsofti Insideri programmis osalejad

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×