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

Microsoft Word 97 šī raksta versiju par produktu, skatiet 253552.

Kopsavilkums

Šajā rakstā izklāstīts, kā izveidot un izmantot kā ieraksta makro teksta formas lauka UserForm kombinēto lodziņu, lai parādītu informāciju no Microsoft Access datu bāzes. Šo makro var izmantot kā risinājums 25 vienumu nolaižamajā laukus ierobežojums.

Lai iegūtu papildinformāciju par to, kā to izdarīt, ja nelietojat Microsoft Access datu bāzes, noklikšķiniet uz šiem rakstu numuriem un lasiet Microsoft zināšanu bāzes rakstus:

Kā izveidot kombinēto lodziņu, kurā ir vairāk par 25 vienumiem 198561

306258 kā izveidot kombinēto lodziņu, kurā ir vairāk par 25 vienumiem programmā Word 2002

Papildinformācija

Microsoft piedāvā programmēšanas piemērus tikai uzskatāmībai, nesniedzot nekādas tiešas vai netiešas garantijas. Tas ietver, bet neaprobežojas ar netiešām garantijām par piemērotību pārdošanai vai atbilstību noteiktam mērķim. Šajā rakstā tiek pieņemts, ka pārzināt programmēšanas valodu, kas tiek aprakstīta, un rīkus, kas tiek izmantoti, lai izveidotu un atkļūdotu procedūras. Microsoft atbalsta inženieri var palīdzēt izskaidrot kādas noteiktas procedūras funkcionalitāti, taču viņi nemainīs šos piemērus, lai sniegtu skaidrāku funkcionalitāti, un neveidos jaunas procedūras, kas atbilstu īpašām prasībām.
Lai iegūtu papildinformāciju, noklikšķiniet uz šī raksta numura un lasiet Microsoft zināšanu bāzes rakstu:

212536 kā palaist kodu paraugi no zināšanu bāzes rakstiem Office 2000

Veidnē, veiciet tālāk norādītās darbības.

Piezīme: aizvērt logu (piemēram, kodu logu vai rekvizītu logu), noklikšķiniet uz X loga augšējā labajā stūrī.

Izveidojiet UserForm kombinētais lodziņš

  1. 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

  2. Projekta logā atlasiet savu TemplateProject.

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

  3. 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
  4. Izvēlnē Rīki noklikšķiniet uz atsauces.

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

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

  7. Aizveriet logu kodu.

  8. 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 .

  9. 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ā.

  10. Aizveriet logu kodu.

  11. 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
  12. Aizveriet logu kodu.

  13. 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 .

UserForm kombinētais lodziņš ir pabeigta. Turpināt "Izveidot ierakstu makro" procedūru.

Ieraksta makro izveide

  1. Projekta logā atlasiet savu TemplateProject.

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

  3. Ierakstiet šādu kodu:

    Sub gocombobox()
    frmcombo.Show
    End Sub

Makro ieraksts ir pabeigta. Izvēlnē Fails noklikšķiniet uz Aizvērt un atgriezties Microsoft Word.

Izveidojiet veidlapas lauks

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

  2. 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.

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

  4. 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ā.

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

  6. Saglabājiet un aizveriet veidnē.

Lai izmantotu veidni programmā Word 2003 un iepriekšējās verions, New izvēlnē noklikšķiniet uz failu . Atlasiet veidnes un pēc tam noklikšķiniet uz Labi.

Lai izmantotu veidni programmā Word 2007, noklikšķiniet uz Microsoft Office pogas, noklikšķiniet uz izveidot jaunu, atlasiet veidnes un pēc tam noklikšķiniet uz izveidot.

Parādās jaunu dokumentu, izmantojot veidni. UserForm kombinētajā lodziņā ar vienumiem, kurā redzams izmantojot TABULĒŠANAS taustiņu, lai pārvietotu veidlapas lauks.

Vai nepieciešama papildu palīdzība?

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Microsoft Insider

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×