Auffüllen von Textfeldern mit mehrspaltigen Kombinationsfeldauswahlen

Moderat: Erfordert grundlegende Makro-, Programmier- und Interoperabilitätskenntnisse.

Dieser Artikel bezieht sich auf eine Microsoft Access-Datenbank (.mdb) und ein Microsoft Access-Projekt (ADP).

Zusammenfassung

In diesem Artikel wird erläutert, wie Sie mehrere Textfelder mit den in einem mehrspaltigen Kombinationsfeld vorgenommenen Auswahlen auffüllen und dann den Inhalt der Textfelder als einen Datensatz in einer Tabelle speichern.

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind. Führen Sie die folgenden Schritte aus, um Textfelder mit Auswahlen in einem mehrspaltigen Kombinationsfeld zu aktualisieren:

1. Öffnen Sie die Beispieldatenbank Northwind.mdb.

2. Erstellen Sie eine neue Tabelle in Northwind.mdb, die die folgenden Felder enthält:

   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. Erstellen Sie ein neues Formular in Northwind.mdb, das die folgenden Steuerelemente enthält:

   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. Fügen Sie Form1 ein Kombinationsfeld hinzu. Führen Sie im Kombinationsfeld-Assistenten die folgenden Schritte aus:

   1. Klicken Sie auf Das Kombinationsfeld soll die Werte in einer Tabelle oder Abfrage nachschlagen, und klicken Sie dann auf Weiter.
   2. Klicken Sie auf Tabelle: Mitarbeiter und dann auf Weiter.
   3. Verschieben Sie die Felder LastName, FirstName und Title aus der Liste Verfügbare Felder in die Liste Ausgewählte Felder, indem Sie jedes Feld auswählen und dann auf die > Schaltfläche klicken. Klicken Sie auf "Weiter".
   4. Klicken Sie auf Weiter, klicken Sie auf Wert zur späteren Verwendung speichern, und klicken Sie dann auf Weiter.
   5. Geben Sie im Feld Welche Bezeichnung möchten Sie für Ihr Kombinationsfeld die Zeichenfolge Auswahl vornehmen ein, und klicken Sie dann auf Fertig stellen.

5. Klicken Sie mit der rechten Maustaste auf das Kombinationsfeld, das Sie in Schritt 4 erstellt haben, und klicken Sie dann auf Eigenschaften.

6. Klicken Sie auf die Registerkarte Andere, und geben Sie dann cboNames in das Feld Name ein.

7. Klicken Sie auf die Registerkarte Ereignis, klicken Sie auf das Ereignisfeld Nach Aktualisierung, und klicken Sie dann auf die Schaltfläche Erstellen (...).

8. Klicken Sie auf Code-Generator, und klicken Sie dann auf OK.

9. Geben Sie im Visual Basic-Editor den folgenden Code ein:

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. Beenden Sie die Visual Basic-Editor, und öffnen Sie dann das Formular Form1 in der Formularansicht.
11. Klicken Sie im Kombinationsfeld auf ein Element, und klicken Sie dann auf Nächster Datensatz. Wiederholen Sie diesen Schritt für jeden Datensatz, den Sie speichern möchten.
12. Öffnen Sie Tabelle1 in der Tabellenansicht, um zu bestätigen, dass neue Datensätze gespeichert wurden. Beachten Sie, dass nach dem Klicken auf ein Element im Kombinationsfeld die AfterUpdate-Eigenschaft die Ereignisprozedur ausführt, die die drei Textfelder im Formular auffüllt, und table1 wird ein neuer Datensatz hinzugefügt.