Kaip sukurti Word pasirinktinio įvedimo lauką, kuriame yra daugiau nei 25 elementus iš Microsoft Access duomenų bazės

"Microsoft Office Word 2003" ir ankstesnėse verions, meniu Įrankiai pasirinkite makrokomanda ir spustelėkite Visual Basic rengyklę.

Programoje "Word 2007" spustelėkite skirtuką programų kūrėjas ir spustelėkite Visual Basic rengyklė

Projekto lange pasirinkite savo TemplateProject.

Pastaba: jei projekto langas nepasirodo, spustelėkite Projekto "Internet Explorer" meniu .

Meniu Įterpti spustelėkite UserForm. Naujas UserForm ir Valdikliai įrankių komplektas bus rodomi. Dešiniuoju pelės mygtuku spustelėkite UserFormviduje, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pridėti inicijuoti įvykio šį kodą:

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

Meniu Įrankiai spustelėkite nuorodos.

Spustelėkite Microsoft DAO 3,6 objektų bibliotekos.

Spustelėkite gerai , kad uždarytumėte dialogo lange .

Uždarykite langą kodas.

Dešiniuoju pelės mygtuku spustelėkite UserForm, ir tada kontekstiniame meniu spustelėkite Ypatybės . Skirtuko abėcėlinis pervardyti (pavadinimas) ir frmcomboir pervardykite į Microsoft Wordantraštės. Uždarykite langą UserForm ypatybės .

Valdikliai skirtuke įrankių juosta, pasirinkite pasirinktinio įvedimo lauko ir padėkite jį ant jūsų UserForm. Dešiniuoju pelės mygtuku spustelėkite pasirinktinio įvedimo lauko valdiklis, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pakeisti pasirinktinio įvedimo lauko kodą:

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

Pastaba: Tekst1 yra žymelę teksto formos laukus, įterpiate į šabloną "Sukurti the teksto formos lauką" 2 veiksmas procedūros šio straipsnio pavadinimas.

Uždarykite langą kodas.

Valdikliai skirtuke įrankių juosta, pasirinkite CommandButton ir padėkite jį ant jūsų vartotojo formoje, kaip uždaryti mygtuką. Dešiniuoju pelės mygtuku spustelėkite CommandButton, ir tada kontekstiniame meniu spustelėkite Rodyti kodą . Pakeisti CommandButton į:

Private Sub Cmdclose_Click()
   End
End Sub

Uždarykite langą kodas.

Dešiniuoju pelės mygtuku spustelėkite CommandButton, ir tada kontekstiniame meniu spustelėkite Ypatybės . Skirtuko abėcėlinis pervardykite į kmdUzdaryti(pavadinimas) ir pervardykite antraštės ir uždaryti. Uždarykite langą CommandButton ypatybės .

Projekto lange pasirinkite savo TemplateProject.

Meniu Įterpti spustelėkite modulis. Rodomas tuščias modulio kodas lape.

Įveskite šį kodą:

Sub gocombobox()
   frmcombo.Show
End Sub

Šablone, meniu, perkelkite pelės žymiklį ant įrankių juostosir spustelėkite formos.

Nustatykite savo įterpimo vietą, kurioje norite įtraukti išplečiamojo sąrašo dėl. Formos įrankių juostoje spustelėkite Teksto formos lauką (mygtuką kairėje). Teksto formos lauko įterpiamas į šabloną kaip pilka spalvinimas.

Pastaba: jei {} FORMTEXT laukas, paspauskite ALT + F9 išjungti lauko kodai.

Dešiniuoju pelės mygtuku spustelėkite Teksto formos lauką, ir tada kontekstiniame meniu spustelėkite Ypatybės .

Dialogo lange Teksto formos lauko parinktys sekcijoje paleisti makrokomandą pažymėkite gocombobox makrokomandą iš toliau įrašas: pavadintas pasirinktinio įvedimo laukas.


Pastaba: įsitikinkite, kad jūsų teksto formos lauko Žymelės pavadinimas yra tas pats kaip ir jūsų "Sukurti UserForm pasirinktinio įvedimo lauką" procedūros šio straipsnio 9 veiksme nurodytą.

Formos įrankių juostoje spustelėkite Apsaugoti formą.

Įrašykite ir uždarykite šablone.