Tekstvakken vullen met keuzelijsten met invoervak met meerdere kolommen

Gemiddeld: vereist basisvaardigheden voor macro's, codering en interoperabiliteit.

Dit artikel is van toepassing op een Microsoft Access-database (.mdb) en op een Microsoft Access-project (.adp).

Samenvatting

In dit artikel wordt uitgelegd hoe u verschillende tekstvakken vult met de selecties die zijn gemaakt in een keuzelijst met invoervak met meerdere kolommen en vervolgens de inhoud van de tekstvakken opslaat als één record in een tabel.

Meer informatie

Microsoft verstrekt programmeervoorbeelden alleen ter illustratie, zonder expliciete of impliciete garantie. daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen. Voer de volgende stappen uit om tekstvakken bij te werken met selecties die zijn gemaakt in een keuzelijst met invoervak met meerdere kolommen:

1. Open de voorbeelddatabase Northwind.mdb.

2. Maak een nieuwe tabel in Northwind.mdb die de volgende velden bevat:

   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. Maak een nieuw formulier in Northwind.mdb met de volgende besturingselementen:

   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. Voeg een keuzelijst met invoervak toe aan Form1. Voer in de wizard Keuzelijst met invoervak de volgende stappen uit:

   1. Klik op Ik wil dat de keuzelijst met invoervak de waarden in een tabel of query opzoekt en klik vervolgens op Volgende.
   2. Klik op Tabel: Werknemers en klik vervolgens op Volgende.
   3. Verplaats de velden LastName, FirstName en Title van de lijst Beschikbare velden naar de lijst Geselecteerde velden door elk veld te selecteren en vervolgens op de > knop te klikken. Klik op Volgende.
   4. Klik op Volgende, klik op De waarde onthouden voor later gebruik en klik vervolgens op Volgende.
   5. Typ selectie maken in de keuzelijst Welk label wilt u voor uw keuzelijst met invoervak en klik vervolgens op Voltooien.

5. Klik met de rechtermuisknop op de keuzelijst met invoervak die u in stap 4 hebt gemaakt en klik vervolgens op Eigenschappen.

6. Klik op het tabblad Overige en typ cboNames in het vak Naam.

7. Klik op het tabblad Gebeurtenis, klik op het vak Gebeurtenis na update en klik vervolgens op de knop Build (...) .

8. Klik op Code Builder en klik vervolgens op OK.

9. Typ in de Visual Basic-Editor de volgende code:

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. Sluit de Visual Basic-Editor en open het formulier Formulier1 in de formulierweergave.
11. Klik op een item in de keuzelijst met invoervak en klik vervolgens op Volgende record. Herhaal deze stap voor elke record die u wilt opslaan.
12. Open Tabel1 in de tabelweergave om te bevestigen dat nieuwe records zijn opgeslagen. Nadat u op een item in de keuzelijst met invoervak hebt geklikt, wordt met de eigenschap AfterUpdate de gebeurtenisprocedure uitgevoerd waarmee de drie tekstvakken in het formulier worden ingevuld en wordt er een nieuwe record toegevoegd aan Tabel1.