Tekstiruutujen lisääminen monisarakkeisen yhdistelmäruudun valinnalla

Huomautus

Office 365 ProPlus nimetään uudelleen Microsoft 365 Apps for enterprise -sovellukseksi. Lisätietoja tästä muutoksesta on tässä blogikirjoituksessa.

Keskitaso: Edellyttää makrojen, koodauksen ja yhteensopivuuden perustaitoja.

Tämä artikkeli koskee Microsoft Access -tietokantaa (.mdb) ja Microsoft Access -projektia (.adp).

Yhteenveto

Tässä artikkelissa kerrotaan, miten voit täyttää useita tekstiruutuja monisarakkeisen yhdistelmäruudun valinnalla ja tallentaa sitten tekstiruutujen sisällön taulukon yhtenä tietueena.

Lisätietoja

Huomautus

Jos noudatat tämän esimerkin ohjeita, muokkaat Northwind.mdb-mallitietokantaa. Voit varmuuskopioida Northwind.mdb-tiedoston ja noudattaa tietokannan kopion ohjeita.

Microsoft esittää ohjelmointiesimerkkejä vain asian havainnollistamiseksi, ilman suoraa tai epäsuoraa vastuuta niiden toimivuudesta. Tämä sisältää muunmuassa epäsuorat vastuut soveltuvuudesta kaupankäyntiin tai soveltuvuuteen yksilöityyn käyttöön. Tässä artikkelissa oletetaan, että olet perehtynyt käytettyyn ohjelmointikieleen, sekä proseduurien luonti- ja virheenkorjaustyökaluihin. Microsoftin tukihenkilöt voivat auttaa selvittämään tietyn proseduurin toiminnallisuutta, mutta he eivät muokkaa näitä esimerkkejä parantamaan yksittäisen tarpeen toiminnallisuutta eivätkä luo siihen proseduureja. Jos haluat päivittää monisarakkeisen yhdistelmäruudun tekstiruudut valituilla, toimi seuraavasti:

  1. Avaa mallitietokanta Northwind.mdb.

  2. Luo Northwind.mdb:ssä uusi taulukko, joka sisältää seuraavat kentät:

    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. Luo Northwind.mdb:ssä uusi lomake, joka sisältää seuraavat ohjausobjektit:

    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. Lisää yhdistelmäruutu Lomake1:lle. Toimi ohjatussa yhdistelmäruudun toiminnossa seuraavasti:

    1. Valitse Haluan, että yhdistelmäruutu etsiä arvoja taulukosta tai kyselystä, ja valitse sitten Seuraava.
    2. Valitse Taulukko: Työntekijät ja valitse sitten Seuraava.
    3. Siirrä Sukunimi-, Etunimi- ja Otsikko-kentät Käytettävissä olevat kentät -luettelosta Valitut kentät -luetteloon valitsemalla kukin kenttä ja napsauttamalla sitten > painiketta. Valitse Seuraava.
    4. Valitse Seuraava, valitse Muista arvo myöhempää käyttöä varten ja valitse sitten Seuraava.
    5. Kirjoita Minkä otsikon haluat lisätä yhdistelmäruutuun Tee valinta ja valitse sitten Valmis.
  5. Napsauta vaiheessa 4 luomaasi yhdistelmäruutua hiiren kakkospainikkeella ja valitse Ominaisuudet .

  6. Valitse Muu-välilehti ja kirjoita cboNames Nimi-ruutuun.

  7. Napsauta Tapahtuma-välilehteä, napsauta Päivityksen jälkeen -tapahtumaruutua ja napsauta sitten Muodosta (...) -painiketta.

  8. Valitse Koodin muodostin ja valitse sitten OK.

  9. Kirjoita Visual Basic Editorissa seuraava koodi:

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. Sulje Visual Basic Editor ja avaa sitten Lomake1-lomake lomakenäkymässä.
  2. Napsauta kohdetta yhdistelmäruudussa ja valitse sitten Seuraava tietue. Toista tämä vaihe jokaiselle tietueelle, jonka haluat tallentaa.
  3. Avaa Taulukko1 taulukkonäkymässä ja varmista, että uudet tietueet on tallennettu. Huomaa, että kun olet napsauttanut kohdetta yhdistelmäruudussa, AfterUpdate-ominaisuus suorittaa tapahtumatoimintosarjan, joka täyttää lomakkeen kolme tekstiruutua ja uusi tietue lisätään Taulukko1:lle.