Slik oppretter du en kombinasjonsboks i Word som har mer enn 25 elementer fra en Microsoft Access-Database

I Microsoft Office Word 2003 og tidligere versjoner, velger du makro på Verktøy -menyen, og klikker deretter Visual Basic Editor.

I Word 2007, klikker du kategorien utvikler , og klikk deretter Visual Basic-redigering

Velg din TemplateProject i prosjekt -vinduet.

Merk: Hvis vinduet ikke vises, klikker du Prosjektutforsker på Vis -menyen.

Klikk Brukerskjemapå Sett inn -menyen. En ny UserForm og Kontroller verktøykassen skal vises. Høyreklikk inne i Brukerskjema, og klikk deretter Visingskode på hurtigmenyen. Legg til følgende kode til å initialisere hendelsen:

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

Velg referanserpå Verktøy -menyen.

Klikk 3,6 objektbiblioteket for Microsoft DAO.

Klikk OK for å lukke dialogboksen referanser .

Lukk kodevinduet.

Høyreklikk UserForm, og klikk deretter Egenskaper på hurtigmenyen. Gi nytt navn (navn) til frmcomboi kategorien alfabetisk , og deretter gi nytt navn til overskriften til Microsoft Word. Lukk UserForm egenskaper -vinduet.

Kategorien Kontroller i verktøykassen, velg ComboBox og plassere den på din brukerskjema. Høyreklikk ComboBox -kontroll, og klikk deretter Visingskode på hurtigmenyen. Endre ComboBox-kode for å:

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

Merknad: Tekst1 er navnet på bokmerket i skjemafelt for tekst som du setter inn i malen for i trinn 2 i "Oppretter i skjemaet tekstfeltet" fremgangsmåten i denne artikkelen.

Lukk kodevinduet.

Kategorien Kontroller i verktøykassen, velg CommandButton og plassere den på bruker-skjemaet som en lukkeknapp . Høyreklikk CommandButton, og klikk deretter Visingskode på hurtigmenyen. Endre CommandButton koden til:

Private Sub Cmdclose_Click()
   End
End Sub

Lukk kodevinduet.

Høyreklikk CommandButton, og klikk deretter Egenskaper på hurtigmenyen. I kategorien alfabetisk gi (navn) til Cmdclose, og deretter endrer tittelen til Lukk. Lukk CommandButton egenskaper -vinduet.

Velg din TemplateProject i prosjekt-vinduet.

Klikk Modul på Sett inn-menyen. Det vises en tom kode modularket.

Skriv inn følgende kode:

Sub gocombobox()
   frmcombo.Show
End Sub

Velg Verktøylinjeri malen, på Vis -menyen, og klikk deretter skjemaer.

Plasser innsettingspunktet der du vil at resultatet av rullegardinlisten som er satt inn. På skjemaverktøylinjen klikker du Tekst (den første knappen på venstre side). Skjemafelt for tekst settes inn i malen som grå farge.

Merk: Hvis du ser {FORMTEXT} feltet, trykker du ALT + F9 for å deaktivere feltkodene.

Høyreklikk Skjemafelt for tekst, og klikk deretter Egenskaper på hurtigmenyen.

Merk makroen gocombobox fra i dialogboksen Alternativer for tekst under delen kjøre makroen på den post: kalt kombinasjonsboks.


Merknad: Kontroller at bokmerkenavn for skjemafelt i tekst er den samme som du angav i trinn 9 i prosedyren "Opprett the UserForm kombinasjonsboksen" tidligere i denne artikkelen.

På skjemaverktøylinjen klikker du Beskytt skjema.

Lagre og lukk malen.