Hvis en Microsoft Word 97-versjon av denne artikkelen, kan du se 253552.

Sammendrag

Denne artikkelen beskriver hvordan du oppretter og bruker en UserForm kombinasjonsboks som en oppføring-makro for et tekstfelt i skjemaet til å vise informasjon fra en Microsoft Access-database. Denne makroen kan brukes som en midlertidig løsning for begrensningene som 25-elementet i rullegardinlisten skjemafelt.

Hvis du vil ha mer informasjon om hvordan du gjør dette når du ikke bruker en Microsoft Access-database, klikker du artikkelnumrene nedenfor for å vise artiklene i Microsoft Knowledge Base:

198561 hvordan du oppretter en kombinasjonsboks som inneholder mer enn 25 elementer

306258 hvordan du oppretter en kombinasjonsboks som inneholder mer enn 25 elementer i Word 2002

Hvis du vil ha mer informasjon

Microsoft bruker ment som eksempler, uten garanti, verken direkte eller indirekte. Dette inkluderer, men er ikke begrenset til, eventuelle stilltiende garantier om salgbarhet eller anvendelighet for særskilte formål. Denne artikkelen forutsetter at du er kjent med programmeringsspråket som anvendes, og verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsofts kundestøtteteknikere kan hjelpe deg med å forklare funksjonaliteten til en bestemt prosedyre, men de endrer ikke disse eksemplene for å lage forbedret funksjonalitet eller lage prosedyrer som dekker dine spesifikke behov.
Hvis du vil ha mer informasjon, kan du klikke følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:

212536 hvordan du kan kjøre eksempelkode fra Knowledge Base-artikler i Office 2000

Bruk følgende fremgangsmåte i malen.

Merk: Å lukke et vindu (for eksempel en kode-vinduet eller vinduet Egenskaper ), klikker du X øverst i høyre hjørne av vinduet.

Opprette UserForm kombinasjonsboksen

  1. I Microsoft Office Word 2003 og tidligere versjoner, velger du makro på Verktøy -menyen, og klikker deretter Visual Basic Editor.

    I Word 2007, klikker du kategorien utvikler , og klikk deretter Visual Basic-redigering

  2. Velg din TemplateProject i prosjekt -vinduet.

    Merk: Hvis vinduet ikke vises, klikker du Prosjektutforsker på Vis -menyen.

  3. Klikk Brukerskjemapå Sett inn -menyen. En ny UserForm og Kontroller verktøykassen skal vises. Høyreklikk inne i Brukerskjema, og klikk deretter Visingskode på hurtigmenyen. Legg til følgende kode til å initialisere hendelsen:

    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. Velg referanserpå Verktøy -menyen.

  5. Klikk 3,6 objektbiblioteket for Microsoft DAO.

  6. Klikk OK for å lukke dialogboksen referanser .

  7. Lukk kodevinduet.

  8. Høyreklikk UserForm, og klikk deretter Egenskaper på hurtigmenyen. Gi nytt navn (navn) til frmcomboi kategorien alfabetisk , og deretter gi nytt navn til overskriften til Microsoft Word. Lukk UserForm egenskaper -vinduet.

  9. Kategorien Kontroller i verktøykassen, velg ComboBox og plassere den på din brukerskjema. Høyreklikk ComboBox -kontroll, og klikk deretter Visingskode på hurtigmenyen. Endre ComboBox-kode for å:

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

    Merknad: Tekst1 er navnet på bokmerket i skjemafelt for tekst som du setter inn i malen for i trinn 2 i "Oppretter i skjemaet tekstfeltet" fremgangsmåten i denne artikkelen.

  10. Lukk kodevinduet.

  11. Kategorien Kontroller i verktøykassen, velg CommandButton og plassere den på bruker-skjemaet som en lukkeknapp . Høyreklikk CommandButton, og klikk deretter Visingskode på hurtigmenyen. Endre CommandButton koden til:

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. Lukk kodevinduet.

  13. Høyreklikk CommandButton, og klikk deretter Egenskaper på hurtigmenyen. I kategorien alfabetisk gi (navn) til Cmdclose, og deretter endrer tittelen til Lukk. Lukk CommandButton egenskaper -vinduet.

UserForm kombinasjonsboksen er nå fullført. Fortsett med prosedyren "Opprett i posten makro".

Opprette makroen oppføring

  1. Velg din TemplateProject i prosjekt-vinduet.

  2. Klikk Modul på Sett inn-menyen. Det vises en tom kode modularket.

  3. Skriv inn følgende kode:

    Sub gocombobox()
    frmcombo.Show
    End Sub

Makroen oppføring er fullført. På fil -menyen, klikker du Lukk og gå tilbake til Microsoft Word.

Opprette skjemafelt for tekst

  1. Velg Verktøylinjeri malen, på Vis -menyen, og klikk deretter skjemaer.

  2. Plasser innsettingspunktet der du vil at resultatet av rullegardinlisten som er satt inn. På skjemaverktøylinjen klikker du Tekst (den første knappen på venstre side). Skjemafelt for tekst settes inn i malen som grå farge.

    Merk: Hvis du ser {FORMTEXT} feltet, trykker du ALT + F9 for å deaktivere feltkodene.

  3. Høyreklikk Skjemafelt for tekst, og klikk deretter Egenskaper på hurtigmenyen.

  4. Merk makroen gocombobox fra i dialogboksen Alternativer for tekst under delen kjøre makroen på den post: kalt kombinasjonsboks.


    Merknad: Kontroller at bokmerkenavn for skjemafelt i tekst er den samme som du angav i trinn 9 i prosedyren "Opprett the UserForm kombinasjonsboksen" tidligere i denne artikkelen.

  5. På skjemaverktøylinjen klikker du Beskytt skjema.

  6. Lagre og lukk malen.

Hvis du vil bruke malen i Word 2003 og tidligere versjoner, klikker du Ny på fil -menyen. Velg malen, og klikk deretter OK.

Hvis du vil bruke malen i Word 2007, klikker du Microsoft Office-knappen, klikker du Ny, velg malen, og klikk deretter Opprett.

Det vises et nytt dokument basert på malen. UserForm som inneholder kombinasjonsboksen med elementene vises når du bruker TAB-tasten til å flytte inn i skjemafelt for tekst.

Trenger du mer hjelp?

Utvid ferdighetene dine
Utforsk opplæring
Vær først ute med de nye funksjonene
Bli med i Microsoft Insiders

Var denne informasjonen nyttig?

Hvor fornøyd er du med språkkvaliteten?
Hva påvirket opplevelsen din?

Takk for tilbakemeldingen!

×