Come creare una casella combinata di Word che include più di 25 elementi da un Database di Microsoft Access

In Microsoft Office Word 2003 e nelle versioni precedenti, scegliere Macro dal menu Strumenti , quindi Visual Basic Editor.

In Word 2007, fare clic sulla scheda sviluppatore e quindi fare clic su Visual Basic Editor

Nella finestra progetto , selezionare il TemplateProject.

Nota: se non è visualizzata la finestra di progetto , scegliere Gestione progetti dal menu Visualizza .

Scegliere UserFormdal menu Inserisci . Dovrebbe essere visualizzato un nuovo UserForm e i Controlli della casella degli strumenti . Pulsante destro del mouse all'interno di UserForme quindi scegliere Visualizza codice dal menu di scelta rapida. Aggiungere il codice seguente all'evento di inizializzazione :

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

Scegliere riferimentidal menu Strumenti .

Fare clic su Microsoft DAO 3.6 Object Library.

Fare clic su OK per chiudere la finestra di dialogo riferimenti .

Chiudere la finestra del codice.

Destro UserForme quindi scegliere proprietà dal menu di scelta rapida. Nella scheda alfabetico , rinominare (nome) in frmcomboe quindi rinominare didascalia in Microsoft Word. Chiudere la finestra Proprietà UserForm .

Nella scheda controlli della casella degli strumenti, selezionare ComboBox e inserirla nella UserForm. Il pulsante destro del controllo ComboBox e quindi scegliere Visualizza codice dal menu di scelta rapida. Modificare il codice di controllo ComboBox in:

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

Nota: Testo1 è il nome del segnalibro del campo modulo testo inseriti nel modello di procedura di passaggio 2 di "Creare il campo modulo testo" di questo articolo.

Chiudere la finestra del codice.

Nella scheda controlli della casella degli strumenti, selezionare controllo CommandButton e inserirlo nel modulo utente come un pulsante Chiudi . Destro del mouse sul pulsante di comandoe quindi scegliere Visualizza codice dal menu di scelta rapida. Modificare il codice di controllo CommandButton in:

Private Sub Cmdclose_Click()
   End
End Sub

Chiudere la finestra del codice.

Destro del mouse sul pulsante di comandoe quindi scegliere proprietà dal menu di scelta rapida. Nella scheda alfabetico , rinominare (nome) in Cmdclosee quindi rinominare didascalia in chiusura. Chiudere la finestra delle Proprietà di CommandButton .

Nella finestra progetto, selezionare il TemplateProject.

Scegliere modulodal menu Inserisci . Verrà visualizzata una finestra di codice di modulo vuoto.

Digitare il seguente codice:

Sub gocombobox()
   frmcombo.Show
End Sub

Nel modello, dal menu Visualizza , scegliere barre degli strumentie quindi fare clic su moduli.

Posizionare il punto di inserimento dove si desidera il risultato dell'elenco a discesa inserito. Sulla barra degli strumenti moduli , fare clic su Campo modulo testo (il primo pulsante a sinistra). Il Campo modulo testo viene inserito nel modello come uno sfondo grigio.

Nota: se viene visualizzato il campo FORMTEXT} {, premere ALT + F9 per disattivare i codici di campo.

Pulsante destro del mouse sul Campo modulo testoe quindi scegliere proprietà dal menu di scelta rapida.

Nella finestra di dialogo Opzioni del campo modulo testo , nella sezione eseguire macro in selezionare la macro gocombobox di voce: denominato casella combinata.


Nota: assicurarsi che il nome del segnalibro del campo modulo testo corrisponde a quello specificato nel passaggio 9 della procedura "Creare la casella combinata UserForm" più indietro in questo articolo.

Sulla barra degli strumenti moduli , fare clic su Proteggi modulo.

Salvare e chiudere il modello.