Kā izveidot Word kombinētais lodziņš, kurā ir vairāk par 25 vienumiem Microsoft Access datu bāze

Programmā Microsoft Office Word 2003 un vecākās verions, izvēlnē Rīki norādiet uz makro un pēc tam noklikšķiniet uz Visual Basic redaktors.

Programmā Word 2007 noklikšķiniet uz cilnes Izstrādātājs un pēc tam noklikšķiniet uz Visual Basic redaktors

Projekta logā atlasiet savu TemplateProject.

Piezīme: Ja projekta logs neparādās, izvēlnē View (skats) noklikšķiniet uz Projekta pārlūks .

Noklikšķiniet uz izvēlnes Ievietot UserForm. Tiek parādīts jauns UserForm un Vadīklu rīklodziņš . Noklikšķiniet ar peles labo pogu UserForm, un pēc tam īsinājumizvēlnē noklikšķiniet uz Skatīt kodu . Inicializēt notikumu pievienojiet šādu kodu:

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

Izvēlnē Rīki noklikšķiniet uz atsauces.

Noklikšķiniet uz Microsoft DAO 3.6 objektu bibliotēka.

Noklikšķiniet uz Labi , lai aizvērtu dialoglodziņu atsauces .

Aizveriet logu kodu.

Ar peles labo pogu noklikšķiniet uz UserFormun pēc tam īsinājumizvēlnē noklikšķiniet uz Rekvizīti . Cilnē Alphabetic pārdēvēt frmcombo(nosaukums) un pēc tam pārdēvējiet parakstu uz Programmu Microsoft Word. Aizveriet logu UserForm rekvizītus .

Rīklodziņā cilnes vadīklas kombinētajā lodziņā atlasiet un novietojiet to uz jūsu UserForm. Ar peles labo pogu noklikšķiniet uz vadīklas kombinētajā lodziņā , un pēc tam īsinājumizvēlnē noklikšķiniet uz Skatīt kodu . Mainiet kombinētajā lodziņā kodu:

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

Piezīme: Text1 sauc grāmatzīmes teksta formas lauka ievietošanas veidnē "izveidot teksta veidlapas lauks" 2. darbību procedūras šajā rakstā.

Aizveriet logu kodu.

Rīklodziņā cilnes vadīklas atlasiet CommandButton un novietot lietotāja veidlapas, kā Aizvērt poga. Ar peles labo pogu noklikšķiniet uz CommandButton, un pēc tam īsinājumizvēlnē noklikšķiniet uz Skatīt kodu . Mainiet CommandButton kodu:

Private Sub Cmdclose_Click()
   End
End Sub

Aizveriet logu kodu.

Ar peles labo pogu noklikšķiniet uz CommandButton, un pēc tam īsinājumizvēlnē noklikšķiniet uz Rekvizīti . Cilnē Alphabetic pārdēvēt par komAizvert(nosaukums) un pēc tam pārdēvējiet parakstu uz Aizvērt. Aizveriet logu CommandButton rekvizītus .

Projekta logā atlasiet savu TemplateProject.

Izvēlnē Ievietot noklikšķiniet uz modulis. Tiek parādīts tukšs moduļa koda lapu.

Ierakstiet šādu kodu:

Sub gocombobox()
   frmcombo.Show
End Sub

Veidnē, izvēlnē View (skats) norādiet uz rīkjoslasun pēc tam noklikšķiniet uz formas.

Novietojiet iespraušanas punktu, kur vēlaties ievietot nolaižamajā sarakstā rezultāts. Veidlapu rīkjoslā noklikšķiniet uz Formas lauku teksts (pirmā poga kreisajā pusē). Teksta veidlapas lauks ir ievietota veidnē kā pelēkas ēnojums.

Piezīme: Ja {} FORMTEXT lauku, nospiediet taustiņu kombināciju ALT + F9 izslēgt lauku kodus.

Ar peles labo pogu noklikšķiniet uz Formas lauku teksts, un pēc tam īsinājumizvēlnē noklikšķiniet uz Rekvizīti .

Dialoglodziņā Teksta formas lauka opcijas sadaļā makro palaišanas atlasiet makro gocombobox ieraksts: nosaukumu kombinētais lodziņš.


Piezīme: pārliecinieties, vai teksts veidlapas lauks grāmatzīmes nosaukums ir tāda pati kā norādīto darbību 9 procedūra "Izveidot UserForm kombinēto lodziņu" iepriekš šajā rakstā.

Veidlapu rīkjoslā noklikšķiniet uz Aizsargāt veidlapu.

Saglabājiet un aizveriet veidnē.