Teen tietokantaa Accessilla.
Olen katsonut ohjeesta F1 sekä etsinyt kirjoista ja googlettanut ja lisäksi kokeillut SQL, VB, makroja, linkitystä jne… mutta alla olevaan ongelmaan en ole löytänyt ratkaisua.
Lomakkeella on tiedot osassa taulukkomuotoinen lomake, jossa on sotu, asiakkaan suku- ja etunimi.
Lomakkeella on alatunnisteessa muokkaa painike, joka avaa uuden lomakkeen (muokkaa asiakas), jossa voi muokata kaikkia asiakkaan tietoja.
Nyt pitäisi saada taulukkomuotoisessa lomakkeessa valitun asiakaan tiedot näkymään muokkaa asiakas lomakkeella, kun painetaan muokkaa painiketta.
Tällä hetkellä näkyy aina ensimmäisen asiakkaan tiedot ei siis taulukkomuotoisella lomakkeella valitun asiakkaan. Voidaan tietysti tietue valitsimella mennä halutun asiakkaan kohdalle tai etsi kohtaan kirjoittaa asiakkaan nimi, jolloin halutun asiakkaan tiedot avautuvat lomakkeelle mutta nyt haluaisin niin, että avautuisi heti painiketta painettaessa ja lomakkeen avautuessa valitun asiakkaan tiedot esille.
Onkohan tämä yleensä mahdollista lomakkeiden välillä ja jos on, niin miten se tulisi tehdä?
Lomake ongelma
5
681
Vastaukset
Tuossa esimerkki omasta laskutussovelluksestani, jossa päävalikosta voi avata tilauslomakkeen, samalla päävalikko sulkeutuu. Laita painikkeeseen tapahtumatoimintosarja soveltaen seuraavaa tekstiä:
Private Sub Komento2_Click()
DoCmd.Close
DoCmd.OpenForm "Tilauslomake"
End Sub
Ja tässä esimerkki jossa tilauslomakkeella olevalla painikkeella voi avata ko. tilausta koskevan laskun:
Private Sub ShowInv_Click()
Dim strDocName As String
Dim strwhere As String
strDocName = "Lasku"
strwhere = "TilausNo=" & Me!TilausNo
If Laskutettu = False Then
msgbox "Tilausta ei ole laskutettu, toiminto keskeytetty."
Exit Sub
End If
DoCmd.OpenReport strDocName, acViewReport, , strwhere
End Sub- Lomake ongelma
Kiitos vastauksestasi.
Yritin soveltaa ehdottamastasi koodista mutten saanut mitään uutta aikaiseksi.
Laitan tähän vielä hieman tietoa ongelmastani, jos viitsit vielä hieman pohtia.
Rakenne:
”Päälomakkeeseen” on liitetty alilomake, josta valitaan asiakas.
”Päälomakkeella” on muokkaa painike, josta avautuu asiakaslomake,
jossa pystyy muokkaamaan asiakkaan tietoja.
Muokkaa painiketta painettaessa asiakaslomakkeelle avautuu aina
alilomakkeella ensimmäisenä olevan asiakkaan tiedot ei siis sen asiakkaan
tiedot, jonka olin valinnut (aktivoinut) alilomakkeella.
Kaikkien asiakkaiden tiedot kyllä löytyvät asiakaslomakkeelta haku tai eteen/taakse toiminnolla.
Luulisitko, että ongelma liittyisi siihen, kun päälomakkeella on muokkaa painike ja kuitenkin päälomakkeella olevalta alilomakkeelta halutaan tietoa vielä uuteen lomakkeeseen eli lomakkeelta lomakkeelle hyppimistä? Lomake ongelma kirjoitti:
Kiitos vastauksestasi.
Yritin soveltaa ehdottamastasi koodista mutten saanut mitään uutta aikaiseksi.
Laitan tähän vielä hieman tietoa ongelmastani, jos viitsit vielä hieman pohtia.
Rakenne:
”Päälomakkeeseen” on liitetty alilomake, josta valitaan asiakas.
”Päälomakkeella” on muokkaa painike, josta avautuu asiakaslomake,
jossa pystyy muokkaamaan asiakkaan tietoja.
Muokkaa painiketta painettaessa asiakaslomakkeelle avautuu aina
alilomakkeella ensimmäisenä olevan asiakkaan tiedot ei siis sen asiakkaan
tiedot, jonka olin valinnut (aktivoinut) alilomakkeella.
Kaikkien asiakkaiden tiedot kyllä löytyvät asiakaslomakkeelta haku tai eteen/taakse toiminnolla.
Luulisitko, että ongelma liittyisi siihen, kun päälomakkeella on muokkaa painike ja kuitenkin päälomakkeella olevalta alilomakkeelta halutaan tietoa vielä uuteen lomakkeeseen eli lomakkeelta lomakkeelle hyppimistä?"Muokkaa painiketta painettaessa asiakaslomakkeelle avautuu aina
alilomakkeella ensimmäisenä olevan asiakkaan tiedot ei siis sen asiakkaan
tiedot, jonka olin valinnut (aktivoinut) alilomakkeella."
Tuo esimerkkikoodi toimii vain siinä tapauksessa että ohjausobjektien nimet ovat samat. Siitä soveltaen voit saada jotakin tapahtumaan kun:
* Nimeät omat ohjausobjektisi ja käytät samoja nimiä sitten koodissasi.
* Ratkaiseva on tuo StrWhere-lauseke, siinä määritellään mikä tietue tulee näyttöön kun alilomake avataan. Ja kun on lomake kysymyksessä niin tietenkin muotoa "OpenForm"
* Tuossa esimerkissä ei tarvitse välittää tuosta If-lausekkeesta sitä ei tässä tarvita
Itse ostin aikanaan tuollaisen kirjan, se on Acces 2003:lle tehty mutta Acces 2007 ymmärtää ihan samaa tekstiä. Suosittelen. Samasta kaupasta löytyy nyt näköjään Acces 2007:lle kirjoitettuja kirjoja:
http://www.amazon.co.uk/Access-Programmers-Reference-Press-Programmer/dp/0764559036/ref=sr_1_8?ie=UTF8&s=books&qid=1269958047&sr...
BTW. Ettet joutuisi lomakkeiden sekamelskaan, laita uuden lomakkeen avauskoodiin lauseke joka sulkee lomakkeen jolta olet poistumassa.Kassara kirjoitti:
"Muokkaa painiketta painettaessa asiakaslomakkeelle avautuu aina
alilomakkeella ensimmäisenä olevan asiakkaan tiedot ei siis sen asiakkaan
tiedot, jonka olin valinnut (aktivoinut) alilomakkeella."
Tuo esimerkkikoodi toimii vain siinä tapauksessa että ohjausobjektien nimet ovat samat. Siitä soveltaen voit saada jotakin tapahtumaan kun:
* Nimeät omat ohjausobjektisi ja käytät samoja nimiä sitten koodissasi.
* Ratkaiseva on tuo StrWhere-lauseke, siinä määritellään mikä tietue tulee näyttöön kun alilomake avataan. Ja kun on lomake kysymyksessä niin tietenkin muotoa "OpenForm"
* Tuossa esimerkissä ei tarvitse välittää tuosta If-lausekkeesta sitä ei tässä tarvita
Itse ostin aikanaan tuollaisen kirjan, se on Acces 2003:lle tehty mutta Acces 2007 ymmärtää ihan samaa tekstiä. Suosittelen. Samasta kaupasta löytyy nyt näköjään Acces 2007:lle kirjoitettuja kirjoja:
http://www.amazon.co.uk/Access-Programmers-Reference-Press-Programmer/dp/0764559036/ref=sr_1_8?ie=UTF8&s=books&qid=1269958047&sr...
BTW. Ettet joutuisi lomakkeiden sekamelskaan, laita uuden lomakkeen avauskoodiin lauseke joka sulkee lomakkeen jolta olet poistumassa.Kävin toiselta koneelta kopsaamassa oman vastaavan koodini, toimii ainakin minulla:
Private Sub ShowCustomer_Click()
Dim strDocName As String
Dim strwhere As String
strDocName = "Asiakas"
strwhere = "AsiakasNo=" & Me!AsNo
DoCmd.OpenForm strDocName, acViewNormal, , strwhere
End Sub- Lomake ongelma
Kassara kirjoitti:
Kävin toiselta koneelta kopsaamassa oman vastaavan koodini, toimii ainakin minulla:
Private Sub ShowCustomer_Click()
Dim strDocName As String
Dim strwhere As String
strDocName = "Asiakas"
strwhere = "AsiakasNo=" & Me!AsNo
DoCmd.OpenForm strDocName, acViewNormal, , strwhere
End SubSuuret kiitokset!
Sain koodin toimimaan haluamallani tavalla.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kristillinen kaste annetaa upotuskasteena
Kristillinen upotuskaste perustuu juutalaiseen mikve-kasteeseen, jossa upottaudutaan veden alle kokonaan. Paavali vertas1621107Koko kansan kaste Punaisen meren ylityksen aikana
Koko Israelin 2,5 milj.kansa sai kasteen ja Pyhän Hengen lahjan ylittäessän Punaisen meren. 1.Kor.10 1 Sillä minä en ta3661077Sijaiskasteet kuolleitten puolesta
Paavali teki Korintossa sijaiskasteita kuolletten puolesta eli ns. Mormoninkasteita. 1. Kor. 15:29 Mitä muutoin ne, j373989- 47983
Kristillinen kaste toimitetaan upottamalla veteen - pään valelukaste ei kelpaa
Kristillinen upotuskaste perustuu juutalaiseen puhdistautumiseen, jossa upottaudutaan veden alle kokonaan. Paavali verta153872Martina ja jalkapalloilija2
Seiska: Martina iski nuoren jalkapalloilijan vuosia sitten. Könysikö milf teinin kanssa?180774- 81757
Oikea kaste on syntisten kaste
Oikea kaste on syntisten kaste. Vain syntisiä tulee kastaa. Itsensä uskoviksi ja vanhurskaiksi julistaneita ei tule ka46673Nainen, nyt esitän muutaman skenaarion
Asumme yhdessä ja seurustelemme. 1. On ilta ja olet sohvalla makoilemassa ja räpläät kännykkääsi. Makuuhuoneesta kuulu105669Perussuomalaisten kansanedustajalta erittäin raju puheenvuoro eduskunnassa massamaahanmuuttoa vastaa
https://www.is.fi/politiikka/art-2000012019924.html Hyvä, että perussuomalaiset tuo Suomen kansalle tätä vihervasemmisto212664