Jak utworzyć pole kombi wyraz, który ma więcej niż 25 elementów z bazy danych programu Microsoft Access

Dla wersji programu Microsoft Word 97 niniejszego artykułu zobacz 253552.

Streszczenie

W tym artykule opisano sposób tworzenia i używania pola kombi UserForm jako makro wejścia dla pola tekstowego formularza, aby pokazywać informacje z bazy danych programu Microsoft Access. To makro może służyć jako obejście dla ograniczenia 25 elementu w rozwijanej pola.

Aby uzyskać więcej informacji na temat jak to zrobić, gdy nie używasz bazy danych Microsoft Access kliknij następujące numery artykułów w celu wyświetlenia tych artykułów z bazy wiedzy Microsoft Knowledge Base:

Jak utworzyć pole kombi zawierające więcej niż 25 pozycji 198561

306258 jak utworzyć pole kombi, które zawiera więcej niż 25 pozycji w programie Word 2002

Więcej informacji

Firma Microsoft podaje przykłady programowania wyłącznie, bez jakichkolwiek gwarancji wyrażonych wprost lub domyślnie. To obejmuje, ale nie jest ograniczona, ustawowej rękojmi co do przydatności handlowej lub przydatności do określonego celu. W tym artykule założono, że użytkownik zna demonstrowany język programowania oraz narzędzia, które są używane do tworzenia i debugowania procedur. Wykwalifikowani pracownicy pomocy technicznej firmy Microsoft mogą pomóc w wyjaśnieniu, jak działa określona procedura, ale nie będą modyfikować tych przykładów ani dodawać funkcjonalności i konstruować procedur w celu zaspokojenia określonych potrzeb użytkownika.
Aby uzyskać więcej informacji, kliknij następujący numer artykułu w celu wyświetlenia tego artykułu z bazy wiedzy Microsoft Knowledge Base:

212536jak uruchamiać kod przykładowy z artykułów bazy wiedzy Knowledge Base w pakiecie Office 2000

Do szablonu wykonaj następujące kroki.

Uwaga: zamknięcie okna (na przykład okno kodu lub w oknie Właściwości ), kliknij przycisk X w prawym górnym rogu okna.

Tworzenie pola kombi UserForm

  1. W programie Microsoft Office Word 2003 i starszych wersjami wskaż polecenie makro w menu Narzędzia , a następnie kliknij polecenie Edytor Visual Basic.

    W programie Word 2007 kliknij kartę Deweloper , a następnie kliknij Edytor Visual Basic

  2. W oknie projektu wybierz swój TemplateProject.

    Uwaga: Jeśli okno projektu nie ma na liście, kliknij przycisk Eksplorator projektu w menu Widok .

  3. W menu Wstaw kliknij polecenie UserForm. Nowe UserForm i Przybornik formantów powinny być wyświetlane. Kliknij prawym przyciskiem myszy wewnątrz UserForm, a następnie w menu skrótów kliknij przycisk Widok Kod . Dodaj następujący kod do zainicjowania zdarzenia:

    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. W menu Narzędzia kliknij polecenie odwołania.

  5. Kliknij przycisk biblioteki Microsoft DAO 3.6 Object Library.

  6. Kliknij przycisk OK , aby zamknąć okno dialogowe References .

  7. Zamknij okno kodu.

  8. Kliknij prawym przyciskiem myszy UserForm, a następnie w menu skrótów kliknij polecenie Właściwości . Na karcie alfabetycznie Zmień nazwę (nazwisko) frmcombo, a następnie Zmień podpis do Programu Microsoft Word. Zamknij okno Właściwości UserForm .

  9. Na formanty Karta przybornika wybierz składnik ComboBox i umieść go na swój UserForm. Kliknij prawym przyciskiem myszy pola kombi , a następnie w menu skrótów kliknij przycisk Widok Kod . Zmień kod ComboBox:

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

    Uwaga: Tekst1 jest nazwa zakładki pole tekstowe formularza, który można wstawić do szablonu w procedurze krok 2 "Utwórz pole tekstowe formularza" tego artykułu.

  10. Zamknij okno kodu.

  11. Na formanty Karta przybornika wybierz formant CommandButton i umieść go w formularzu użytkownika jako przycisk Zamknij . Kliknij prawym przyciskiem myszy formant CommandButton, a następnie w menu skrótów kliknij przycisk Widok Kod . Zmień kod CommandButton do:

    Private Sub Cmdclose_Click()
    End
    End Sub
  12. Zamknij okno kodu.

  13. Kliknij prawym przyciskiem myszy formant CommandButton, a następnie w menu skrótów kliknij polecenie Właściwości . Na karcie alfabetycznie Zmień nazwę (nazwisko) cmdclose, a następnie Zmień podpis Zamknij. Zamknij okno Właściwości CommandButton .

Pole kombi UserForm została ukończona. Przejdź do procedury "Utwórz makro wpis".

Utwórz makro wpisu

  1. W oknie projektu wybierz swój TemplateProject.

  2. W menu Wstaw kliknij polecenie Moduł. Zostanie wyświetlony arkusz kod modułu puste.

  3. Wpisz następujący kod:

    Sub gocombobox()
    frmcombo.Show
    End Sub

Makro wpisu została ukończona. W menu plik kliknij polecenie Zamknij i powróć do programu Microsoft Word.

Utwórz pole tekstowe formularza

  1. W szablonie, w menu Widok wskaż polecenie Paski narzędzi, a następnie kliknij przycisk Formularze.

  2. Umieść punkt wstawiania w miejscu gdzie ma być wynikiem listy rozwijanej wstawione. Na pasku narzędzi Formularze kliknij przycisk Pole tekstowe formularza (pierwszy przycisk po lewej stronie). Pole tekstowe formularza jest wstawiane do szablonu jako szare cieniowanie.

    Uwaga: Jeśli widzisz pola {FORMTEXT{ }, naciśnij klawisze ALT + F9, aby wyłączyć kody pól.

  3. Kliknij prawym przyciskiem myszy Pole tekstowe, a następnie w menu skrótów kliknij polecenie Właściwości .

  4. W oknie dialogowym Opcje pola tekstowego formularza w sekcji Uruchamianie makra zaznacz gocombobox makro z wpis: o nazwie pola kombi.


    Uwaga: Upewnij się, nazwa zakładki pole tekstowe formularza jest taka sama, jak określona w kroku 9 procedury "Tworzenie pola kombi UserForm" wcześniej w tym artykule.

  5. Na pasku narzędzi Formularze kliknij przycisk Chroń formularz.

  6. Zapisz i Zamknij szablon.

Aby użyć szablonu w programie Word 2003 i starszych wersjami, kliknij przycisk Nowy w menu plik . Wybierz szablon, a następnie kliknij przycisk OK.

Aby użyć szablonu w programie Word 2007, kliknij Przycisk Microsoft Office, kliknij przycisk Nowy, wybierz szablon i kliknij przycisk Utwórz.

Pojawi się nowy dokument oparty na szablonie. Run, zawierający składnik ComboBox z elementami pojawia się, gdy klawisz TAB aby przejść do pola tekstowego formularza.

Potrzebna dalsza pomoc?

Rozwijaj swoje umiejętności
Poznaj szkolenia
Uzyskuj nowe funkcje w pierwszej kolejności
Dołącz do niejawnych testerów firmy Microsoft

Czy te informacje były pomocne?

Dziękujemy za opinię!

Dziękujemy za opinię! Wygląda na to, że połączenie Cię z jednym z naszych agentów pomocy technicznej pakietu Office może być pomocne.

×