Så här skapar du en kombinationsruta i Word som har mer än 25 element från en Microsoft Access-databas

Peka på makro på Verktyg -menyn och klicka sedan på Visual Basic Editori Microsoft Office Word 2003 och tidigare versioner.

I Word 2007 klickar du på fliken utvecklare och klicka sedan på Visual Basic Editor

Välj din TemplateProject i fönstret projekt .

Anmärkning: om projekt -fönstret inte visas klickar du på Projektutforskaren på Visa -menyn.

UserFormpå Infoga -menyn. En ny UserForm och Verktygslådan Kontroller ska visas. Högerklicka inuti UserFormoch klicka sedan på Visa kod . Lägg till följande kod i händelsen initiera :

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

Klicka på referenserpå Verktyg -menyn.

Klicka på Microsoft DAO 3.6 Object Library.

Klicka på OK för att stänga dialogrutan referenser .

Stäng kodfönstret.

Högerklicka på UserFormoch klicka sedan på Egenskaper på snabbmenyn. Byt namn (namn) till frmcombopå fliken Bokstavsordnat och Byt sedan bildtexten till Microsoft Word. Stäng fönstret UserForm egenskaper .

Välj ComboBox och placera den på din UserForm på fliken kontroller i verktygslådan. Högerklicka på ComboBox -kontrollen och klicka sedan på Visa kod . Ändra koden i ComboBox:

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

Anmärkning: Text1 är namnet på bokmärket i den textruta som du infogar i din mall i steg 2 i ”Skapa i formuläret textfältet” förfarandet i denna artikel.

Stäng kodfönstret.

Välj CommandButton och placera den i användarformuläret som en Stäng -knapp på fliken kontroller i verktygslådan. Högerklicka på CommandButtonoch klicka sedan på Visa kod . Ändra CommandButton-koden till:

Private Sub Cmdclose_Click()
   End
End Sub

Stäng kodfönstret.

Högerklicka på CommandButtonoch klicka sedan på Egenskaper på snabbmenyn. Byt namn (namn) till Cmdclosepå fliken Bokstavsordnat och Byt sedan bildtexten till nära. Stäng fönstret Egenskaper för kommandoknapp .

Välj din TemplateProject i fönstret projekt.

Klicka på modulpå Infoga -menyn. Ett tomt modulblad kod visas.

Skriv följande kod:

Sub gocombobox()
   frmcombo.Show
End Sub

I mallen på Visa -menyn, peka på verktygsfältoch klicka sedan på formulär.

Placera insättningspunkten där du vill att resultatet av den nedrullningsbara listan infogas. Klicka på Textruta (den första knappen till vänster) i verktygsfältet formulär . Textruta infogas i mallen som grå skuggning.

Anmärkning: om FORMTEXT} fältet {visas trycker du på ALT + F9 så att fältkoderna inaktivera.

Högerklicka på Textrutaoch klicka sedan på Egenskaper på snabbmenyn.

I dialogrutan Textrutealternativ under avsnittet Kör makro markerar du makrot gocombobox från den post: heter kombinationsruta.


Obs: Kontrollera att namnet på bokmärket i din textruta är samma som den du angav i steg 9 i proceduren ”skapa den UserForm kombinationsrutan” tidigare i den här artikeln.

Klicka på Skydda formuläri verktygsfältet formulär .

Spara och Stäng mallen.