Fylla i textrutor med flerkolumnskombinationsrutor

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Måttlig: Kräver grundläggande makron, kodning och kompatibilitetsfärdigheter.

Den här artikeln gäller en Microsoft Access-databas (.mdb) och ett Microsoft Access-projekt (.adp).

Sammanfattning

I den här artikeln förklaras hur du fyller i flera textrutor med markeringarna i en kombinationsruta i fleralumner och sedan sparar innehållet i textrutorna som en post i en tabell.

Mer information

Varning

Om du följer anvisningarna i det här exemplet ändrar du exempeldatabasen Northwind.mdb. Du kanske vill backa Northwind.mdb-filen och följa de här stegen på en kopia av databasen.

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supportexperter kan hjälpa till att förklara funktionerna i en viss procedur, men de kommer inte att ändra dessa exempel för att tillhandahålla extra funktioner eller konstruera procedurer för att uppfylla dina specifika behov. Så här uppdaterar du textrutor med val som har gjorts i en kombinationsruta med flera kolumner:

  1. Öppna exempeldatabasen Northwind.mdb.

  2. Skapa en ny tabell i Northwind.mdb som innehåller följande fä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. Skapa ett nytt formulär i Northwind.mdb som innehåller följande kontroller:

    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. Lägga till en kombinationsruta i Formulär1. Följ de här stegen i guiden Kombinationsruta:

    1. Klicka på Jag vill att kombinationsrutan ska slå upp värdena i en tabell eller fråga och klicka sedan på Nästa.
    2. Klicka på Tabell: Anställda och klicka sedan på Nästa.
    3. Flytta fälten Efternamn, Förnamn och Rubrik från listan Tillgängliga fält till listan Markerade fält genom att markera varje fält och sedan klicka på > fältknappen. Klicka på Nästa.
    4. Klicka på Nästa, klicka på Spara värdet för senare användning och klicka sedan på Nästa.
    5. I rutan Vilken etikett vill du använda för kombinationsrutan skriver du Gör markering och klickar sedan på Slutför.
  5. Högerklicka på kombinationsrutan som du skapade i steg 4 och klicka sedan på Egenskaper.

  6. Klicka på fliken Annan och skriv cboNames i rutan Namn.

  7. Klicka på fliken Händelse, klicka på rutan Efter uppdatering och klicka sedan på knappen Skapa (...).

  8. Klicka på Kodverktyget och sedan på OK.

  9. I Visual Basic Editor skriver du följande 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. Avsluta Visual Basic Editor och öppna formuläret Formulär1 i formulärvyn.
  2. Klicka på ett objekt i kombinationsrutan och sedan på Nästa post. Upprepa det här steget för varje post som du vill spara.
  3. Öppna Tabell1 i tabellvyn för att bekräfta att nya poster har sparats. Observera att när du har klickat på ett objekt i kombinationsrutan kör egenskapen AfterUpdate händelseproceduren som fyller i de tre textrutorna i formuläret och en ny post läggs till i Tabell1.