Hei !
Minulla jälleen ongelmia ohjelman teossa. Tämä kyllä sellaisia perusjuttuja, jotka mun PITÄISI osata ihan itsekin, mutta eipä onnistu - toivottavasti löydän apua täältä!
Ohjelmassani tallennan tietokantaan (Access) esim asiakas- ja yritystietoja, molemmat omiin tauluihinsa, yhdistävänä tekijänä näissä kahdessa taulussa Yritysnro (tietotyyppinä teksti).
Lomakkeella, jolla tietoja syötetään, on combobox, jossa avautuvat yritysten nimet, mutta niistä tallennetaan kuitenkin yritysnro.
Ongelmia tuottaa tietojen tuonti takaisin lomakkeelle, millä saan näkyviin yrityksen nimen enkä numeroa???
Ohessa koodia... joka ei siis toimi...
tallennus:
If cmbYritys.Text "" Then
rstAsiakkaat("Yritysnro") = cmbYritys.ItemData(cmbYritys.ListIndex)
Else
rstAsiakkaat("Yritysnro") = Null
End If
tietojen palautus:
If rstAsiakkaat("Yritysnro") "" Then
rstYritykset.Move (cmbYritys.ListIndex)
cmbYritys.Text = rstYritykset("Yritys")
End If
TOIVOTTAVASTI JOKU TAJUAA ONGELMAN JA HALUAA AUTTAA!!!
Minulla jälleen ongelmia ohjelman teossa. Tämä kyllä sellaisia perusjuttuja, jotka mun PITÄISI osata ihan itsekin, mutta eipä onnistu - toivottavasti löydän apua täältä!
Ohjelmassani tallennan tietokantaan (Access) esim asiakas- ja yritystietoja, molemmat omiin tauluihinsa, yhdistävänä tekijänä näissä kahdessa taulussa Yritysnro (tietotyyppinä teksti).
Lomakkeella, jolla tietoja syötetään, on combobox, jossa avautuvat yritysten nimet, mutta niistä tallennetaan kuitenkin yritysnro.
Ongelmia tuottaa tietojen tuonti takaisin lomakkeelle, millä saan näkyviin yrityksen nimen enkä numeroa???
Ohessa koodia... joka ei siis toimi...
tallennus:
If cmbYritys.Text "" Then
rstAsiakkaat("Yritysnro") = cmbYritys.ItemData(cmbYritys.ListIndex)
Else
rstAsiakkaat("Yritysnro") = Null
End If
tietojen palautus:
If rstAsiakkaat("Yritysnro") "" Then
rstYritykset.Move (cmbYritys.ListIndex)
cmbYritys.Text = rstYritykset("Yritys")
End If
TOIVOTTAVASTI JOKU TAJUAA ONGELMAN JA HALUAA AUTTAA!!!
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.