Het maken van een Word-keuzelijst met invoervak meer dan 25 items uit een Microsoft Access-Database heeft

In Microsoft Office Word 2003 en eerdere versies, wijst u Macro aan in het menu Extra en klik op Visual Basic Editor.

In Word 2007, klikt u op het tabblad ontwikkelaars en klik op Visual Basic Editor

Selecteer de TemplateProject in het venster Project .

Opmerking: als het Project -venster niet wordt weergegeven, klikt u op Projectverkenner in het menu Beeld .

Klik in het menu Invoegen op UserForm. Een nieuwe UserForm en de Werkset besturingselementen moeten worden weergegeven. Klik met de rechtermuisknop in het gebruikersformulier en klik vervolgens op Programmacode weergeven in het snelmenu. De volgende code toevoegen aan de gebeurtenis initialiseren :

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

Klik op verwijzingenin het menu Extra .

Klik op de objectbibliotheek van Microsoft DAO 3,6.

Klik op OK om het dialoogvenster verwijzingen te sluiten.

Sluit het codevenster.

Klik met de rechtermuisknop op het UserFormen klik vervolgens op Eigenschappen in het snelmenu. Op het tabblad alfabetisch (naam) in frmcomboen wijzig de naam van bijschrift naar Microsoft Word. Sluit het venster UserForm eigenschappen .

Klik op het tabblad besturingselementen van de werkset ComboBox te selecteren en plaats deze op het gebruikersformulier. Klik met de rechtermuisknop op de keuzelijst met invoervak en klik vervolgens op Programmacode weergeven in het snelmenu. De code van de ComboBox te wijzigen:

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

Opmerking: Tekst1 is de bladwijzernaam van het formulierveld voor tekst die u in uw sjabloon in de procedure in stap 2 van de "maken het formulierveld voor tekst' van dit artikel invoegt.

Sluit het codevenster.

Klik op het tabblad besturingselementen van de werkset CommandButton selecteren en plaats deze op uw formulier de gebruiker als de knop sluiten . CommandButtonmet de rechtermuisknop en klik vervolgens op Programmacode weergeven in het snelmenu. De CommandButton-code te wijzigen:

Private Sub Cmdclose_Click()
   End
End Sub

Sluit het codevenster.

CommandButtonmet de rechtermuisknop en klik vervolgens op Eigenschappen in het snelmenu. Op het tabblad alfabetisch (naam) in Cmdcloseen wijzig de naam van bijschrift te sluiten. Sluit het venster Eigenschappen van de CommandButton .

Selecteer de TemplateProject in het venster Project.

Klik op Module in het menu Invoegen. Er verschijnt een lege code modulewerkblad.

Typ in de volgende code:

Sub gocombobox()
   frmcombo.Show
End Sub

In de sjabloon in het menu Beeld , wijs werkbalkenaan en klik op formulieren.

Plaats de invoegpositie waar u het resultaat van de vervolgkeuzelijst ingevoegd. Klik op de werkbalk formulieren Formulierveld voor tekst (de eerste knop aan de linkerkant). Het Formulierveld voor tekst wordt ingevoegd in de sjabloon als de grijze arcering.

Opmerking: als u het veld {} FORMTEXT ziet, drukt u op ALT + F9 om de veldcodes uitschakelen.

Klik met de rechtermuisknop op het Formulierveld voor teksten klik vervolgens op Eigenschappen in het snelmenu.

Selecteer in het dialoogvenster Opties voor tekstvak in de sectie macro uitvoeren als in de macro gocombobox uit de post: keuzelijst met invoervak met de naam.


Opmerking: Controleer of de bladwijzernaam van het formulierveld voor tekst is hetzelfde als die u hebt opgegeven in stap 9 van de procedure ' Maken het UserForm keuzelijst met invoervak' eerder in dit artikel.

Klik op de werkbalk formulieren op Formulier beveiligen.

Opslaan en sluiten van uw sjabloon.