Jak wypełnić pola tekstowe zaznaczeniami pola kombi wielokolumnowego

Uwaga

Nazwa usługi Office 365 ProPlus została zmieniona na Aplikacje usługi Microsoft 365 dla przedsiębiorstw. Aby uzyskać więcej informacji na temat tej zmiany, przeczytaj ten wpis w blogu.

Umiarkowany. Wymaga podstawowych umiejętności makr, kodowania i współdziałania.

Ten artykuł dotyczy bazy danych programu Microsoft Access (mdb) i projektu programu Microsoft Access (adp).

Podsumowanie

W tym artykule wyjaśniono, jak wypełnić kilka pól tekstowych polami wyboru dokonanym w polu kombi wielokolumnowym, a następnie zapisać zawartość pól tekstowych jako jeden rekord w tabeli.

Więcej informacji

Przestroga

Jeśli wykonajesz czynności opisane w tym przykładzie, zmodyfikuj przykładową bazę danych Northwind.mdb. Możesz wykonać kopię zapasową pliku Northwind.mdb i wykonać te czynności na kopii bazy danych.

Firma Microsoft podaje przykłady programowania tylko dla celów ilustracyjnych, nie udzielając żadnej rękojmi, wyrażonej wprost ani dorozumianej, w tym także, ale nie tylko, dorozumianej rękojmi co do przydatności handlowej lub do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia 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ć żadnych funkcji i konstruować nowych procedur w celu dostosowania ich do określonych potrzeb użytkownika. Aby zaktualizować pola tekstowe przy użyciu opcji wybranych w wielo kolumnowym polu kombi, należy wykonać następujące czynności:

  1. Otwórz przykładową bazę danych Northwind.mdb.

  2. W bazie danych Northwind.mdb można utworzyć nową tabelę z następującymi polami:

    Table: Table1
    ----------------------
    Field Name: ID
    Data Type: Autonumber
    Primary Key
    ---
    Field Name: FirstName
    Data Type: Text
    ---
    Field Name: LastName
    Data Type: Text
    ---
    Field Name: Title
    Data Type: Text
    
  3. W bazie danych Northwind.mdb można utworzyć nowy formularz zawierający następujące kontrolki:

    Form: Form1
    ----------------------
    RecordSource: Table1
    ---
    Control Type: Text Box
    Name: txtFirstName
    ControlSource: FirstName
    ---
    Control Type: Text Box
    Name: txtLastName
    ControlSource: LastName
    ---
    Control Type: Text Box
    Name: txtTitle
    ControlSource: Title
    
  4. Dodaj pole kombi do formularza Form1. W kreatorze pola kombi wykonaj następujące czynności:

    1. Kliknij pozycję Chcę, aby pole kombi przeszukało wartości w tabeli lub zapytaniu, a następnie kliknij przycisk Dalej.
    2. Kliknij pozycję Tabela: Pracownicy, a następnie kliknij przycisk Dalej.
    3. Przenieś pola Nazwisko, Imię i Tytuł z listy Dostępne pola na listę Wybrane pola, zaznaczając poszczególne pola, a następnie klikając > pola. Kliknij przycisk Dalej.
    4. Kliknij przycisk Dalej, kliknij pozycję Zapamiętaj wartość do późniejszego użycia, a następnie kliknij przycisk Dalej.
    5. W polu Jaka etykieta ma być dla pola kombi wpisz Make Selection (Dokonaj wyboru), a następnie kliknij przycisk Finish (Zakończ).
  5. Kliknij prawym przyciskiem myszy pole kombi utworzone w kroku 4, a następnie kliknij polecenie Właściwości.

  6. Kliknij kartę Inne, a następnie wpisz nazwy typu cboNames w polu Nazwa.

  7. Kliknij kartę Zdarzenie, kliknij pole zdarzenia Po aktualizacji, a następnie kliknij przycisk Skompilowanie (...).

  8. Kliknij pozycję Konstruktor kodu, a następnie kliknij przycisk OK.

  9. W Edytorze Visual Basic wpisz następujący kod:

Private Sub cboNames_AfterUpdate()
   Me.txtFirstName = Me![cboNames].column(1)
   Me.txtLastName = Me![cboNames].column(2)
   Me.txtTitle = Me![cboNames].column(3)
End Sub

  1. Zamknij Edytor Visual Basic, a następnie otwórz formularz Form1 w widoku formularza.
  2. Kliknij element w polu kombi, a następnie kliknij pozycję Następny rekord. Powtórz ten krok dla każdego rekordu, który chcesz zapisać.
  3. Otwórz tabelę Tabela1 w widoku tabeli, aby potwierdzić, że zapisano nowe rekordy. Zwróć uwagę, że po kliknięciu elementu w polu kombi właściwość AfterUpdate uruchamia procedurę zdarzenia, która wypełnia trzy pola tekstowe w formularzu i dodaje nowy rekord do tabeli Table1.