Cum se creează o casetă Word Combo care are mai mult de 25 de elemente dintr-o bază de date Microsoft Access

În Microsoft Office Word 2003 și versiuni anterioare, indicați spre macrocomandă în meniul Instrumente și apoi faceți clic pe Visual Basic Editor.

În Word 2007, faceți clic pe fila dezvoltator , și apoi faceți clic pe Visual Basic Editor

În fereastra de proiect , selectați TemplateProject dvs.

Notă: dacă fereastra Project nu apare, faceți clic pe Project Explorer meniul Vizualizare .

În meniul Inserare , faceți clic pe UserForm. Ar trebui să apară un nou UserForm și Controalele de instrumente . Faceți clic dreapta în interiorul UserForm, și apoi faceți clic pe Vizualizare cod meniul de comenzi rapide. Adăugaţi următorul cod la inițializarea eveniment:

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

În meniul Instrumente , faceți clic pe referințe.

Faceți clic pe biblioteca de obiecte 3.6 Microsoft DAO.

Faceți clic pe OK pentru a închide caseta de dialog referințe .

Închideți fereastra de cod.

Faceți clic dreapta pe UserFormși apoi faceți clic pe Proprietăți în meniul de comenzi rapide. În fila alfabetic , redenumiți (nume) pentru a frmcomboși apoi redenumiți legendă pentru Microsoft Word. Închideți fereastra Proprietăți UserForm .

În fila controalele de instrumente, selectați casetă combo şi se plasează pe UserForm dvs. Faceți clic dreapta pe control casetă combo și apoi faceți clic pe Vizualizare cod meniul de comenzi rapide. Modificați codul de casetă combo:

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

Notă: Text1 este numele marcaj câmp de formular text care introduceți în șablonul în pasul 2 din "Creați Text formular câmpul" procedură a acestui articol.

Închideți fereastra de cod.

În fila controalele de instrumente, selectați CommandButton şi se plasează pe formular utilizator ca un buton de Închidere . Faceți clic dreapta pe CommandButton, și apoi faceți clic pe Vizualizare cod meniul de comenzi rapide. Modificați codul CommandButton la:

Private Sub Cmdclose_Click()
   End
End Sub

Închideți fereastra de cod.

Faceți clic dreapta pe CommandButton, și apoi faceți clic pe Proprietăți în meniul de comenzi rapide. În fila alfabetic , redenumiți (nume) pentru a Cmdcloseși apoi redenumiți legendă la Închidere. Închideți fereastra Proprietăți CommandButton .

În fereastra de proiect, selectați TemplateProject dvs.

În meniul Inserare , faceți clic pe Module. Apare o foaie de cod de modul goală.

Tastați în următorul cod:

Sub gocombobox()
   frmcombo.Show
End Sub

În șablonul, în meniul Vizualizare , indicați spre bare de instrumenteși apoi faceți clic pe formulare.

Poziționați punctul de inserare unde doriţi rezultate din lista verticală introdus. În bara de instrumente formulare , faceți clic pe Câmp de formular Text (primul buton din stânga). Câmp de formular Text este introdus în șablonul ca umbrire gri.

Notă: Dacă vedeţi câmpul {FORMTEXT} , apăsați ALT + F9 pentru a dezactiva coduri de câmp.

Faceți clic dreapta pe Câmp de formular Textși apoi faceți clic pe Proprietăți în meniul de comenzi rapide.

În caseta de dialog Opțiuni pentru câmp Text formular , sub secțiunea executați macrocomanda pe , selectați macrocomanda gocombobox din intrare: numit caseta combo.


Notă: Asigurați-vă numele marcaj de câmp de formular text este aceeași cu cea specificată în pasul 9 din procedura "Creați UserForm caseta Combo" anterior în acest articol.

În bara de instrumente formulare , faceți clic pe Protejare machetă.

Salvați și închideți șablonul.