Tekstiruutujen täyttäminen monisarakkeisen yhdistelmäruudun valinnoilla

  • Artikkeli
  • Koskee seuraavia::
    Access 2007, Access 2003, Access 2002

Normaali: Edellyttää makrojen perusosaamista, koodausta ja yhteentoimivuustaitoja.

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 valinnoilla ja tallentaa sitten tekstiruutujen sisällön yhtenä taulukon tietueena.

Lisätietoja

Varoitus

Jos noudatat tämän esimerkin ohjeita, muokkaat mallitietokannan Northwind.mdb. Haluat ehkä varmuuskopioida Northwind.mdb -tiedoston ja tehdä nämä toimet tietokannan kopiossa.

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. Voit päivittää tekstiruutuja monisarakkeisessa yhdistelmäruudussa tehdyillä valinnoilla seuraavasti:

  1. Avaa mallitietokannan Northwind.mdb.

  2. Luo Northwind.mdb 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 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 Form1:een. Toimi yhdistelmäruudun ohjatussa toiminnossa seuraavasti:

    1. Valitse Haluan, että yhdistelmäruutu hakee taulukon tai kyselyn arvot, 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 Haluamasi otsikko -yhdistelmäruutuun Tee valinta ja valitse sitten Valmis.

  5. Napsauta hiiren kakkospainikkeella yhdistelmäruutua, jonka loit vaiheessa 4, ja valitse sitten Ominaisuudet.

  6. Valitse Muu-välilehti ja kirjoita sitten 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 -Kirjoitusavustaja 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 -Kirjoitusavustaja ja avaa lomake Form1 lomakenäkymässä.
  2. Napsauta yhdistelmäruudussa olevaa kohdetta ja valitse sitten Seuraava tietue. Toista tämä vaihe jokaisen tallennettavan tietueen kohdalla.
  3. Vahvista uusien tietueiden tallentaminen avaamalla Taulukko1 taulukkonäkymässä. Huomaa, että kun napsautat yhdistelmäruudun kohdetta, AfterUpdate-ominaisuus suorittaa tapahtuman toimintosarjan, joka täyttää lomakkeen kolme tekstiruutua, ja uusi tietue lisätään Taulukko1:een.