Jak naplnit textová pole výběrem pole se seznamem s více sloupci

Střední: Vyžaduje základní dovednosti v makrech, kódování a interoperabilitě.

Tento článek se týká databáze aplikace Microsoft Access (.mdb) a projektu aplikace Microsoft Access (.adp).

Souhrn

Tento článek vysvětluje, jak naplnit několik textových polí s výběry provedenými ve vícesloupcovém poli se seznamem a pak uložit obsah textových polí jako jeden záznam v tabulce.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Pracovníci technické podpory společnosti Microsoft mohou vysvětlit funkce určitého postupu, nemohou však následující příklady rozšířit o další funkce nebo konstrukce podle konkrétních požadavků uživatele. Chcete-li aktualizovat textová pole pomocí výběrů provedených ve vícesloupcovém poli se seznamem, postupujte následovně:

1. Otevřete Northwind.mdb ukázkové databáze.

2. Vytvořte novou tabulku v Northwind.mdb, která obsahuje následující pole:

   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. Vytvořte nový formulář v Northwind.mdb, který obsahuje následující ovládací prvky:

   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. Přidejte pole se seznamem do formuláře Form1. V průvodci Pole se seznamem postupujte takto:

   1. Klikněte na Chci, aby pole se seznamem vyhledaly hodnoty v tabulce nebo dotazu a potom klikněte na Další.
   2. Klikněte na Tabulka: Zaměstnanci a potom klikněte na Další.
   3. Přesuňte pole Příjmení, Jméno a Název ze seznamu Dostupná pole do seznamu Vybraná pole tak, že vyberete jednotlivá pole a kliknete na > tlačítko. Klikněte na Další.
   4. Klikněte na Další, klikněte na Zapamatovat hodnotu pro pozdější použití a potom klikněte na Další.
   5. Do pole What label would you like for your combo (Jaký popisek chcete pro svůj seznam ) zadejte Make Selection (Provést výběr) a potom klikněte na Finish (Dokončit).

5. Klikněte pravým tlačítkem myši na pole se seznamem, které jste vytvořili v kroku 4, a potom klikněte na Vlastnosti.

6. Klikněte na kartu Jiné a do pole Název zadejte cboNames.

7. Klikněte na kartu Událost, klikněte na pole Události Po aktualizaci a potom klikněte na tlačítko Sestavit (...).

8. Klikněte na Tvůrce kódu a potom klikněte na OK.

9. V Editor Jazyka Visual Basic zadejte následující kód:

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

10. Ukončete Editor jazyka Visual Basic a otevřete formulář Form1 ve formulářovém zobrazení.
11. Klikněte na položku v poli se seznamem a potom klikněte na Další záznam. Tento krok opakujte pro každý záznam, který chcete uložit.
12. Otevřete tabulku 1 v zobrazení tabulky a potvrďte, že se uložily nové záznamy. Všimněte si, že po kliknutí na položku v poli se seznamem spustí vlastnost AfterUpdate proceduru události, která naplní tři textová pole ve formuláři a do tabulky Table1 se přidá nový záznam.