Keskustelu: Ohjelmointikysymykset: VB6: Access+Vb ( raportti tietystä tietueesta )

Hello pitkästä aikaa

Nyt tuli tietokanta valmiiksi,ja toimii ihan ok.Sellaista kyselisin,että miten tälläinen olisi helpoin tehdä.
----------------------------------------------------------
Elikkä käyttäjä selaa lomakkeella vaikka tietuetta nimeltä "tuote numero 1".Nyt käyttäjä haluaisi sitten haluaisi tulostaa kaikki tiedot mitä tähän tuote numero 1 liittyy.Siis ihan accessin raportti toiminnolla.

Eli toisin sanoen:lomakkeeseen nappi,mistä voisi printata tietueesta tiedot.

Miten saan raportin avautumaan juuri käytössä olevasta tietueesta,jollain ilveellä pitäis napin painalluksen jälkeen rapotin tajuta,mikä id rivi on menossa?.Nyt saan siis sellaisen raportin aikaan jossa pitää kirjoittaa parametriksi koko tuotenumero ja sitten tulee oikea rapsa.

Kiitoksia jo etukäteen

Mikä versio Accessista?

access versio 2002

Omani on 97, joten menee hieman hankalaksi... Kuitenkin ilmeisesti saat jotenkin laitettua napeille koodia, niin Application.Forms(n).Controls:n takaa löytyy kyseisen formin napit, textboxit, labelit jne.

'Seuraava koodi käy ensimmäisen formin controllit läpi, ja esittää MsgBoxissa ne, joilta löytyy arvo, eli
'kyseiset kentät on luultavasti ne kentät joista löytyy tarvitsemasi tieto
On Error Resume Next 'ne Itemit, joilta ei löydy valueta aiheuttavat virheen (labelit, buttonit jne.)
For i = 0 To Application.Forms(0).Controls.Count - 1
    MsgBox i & ": " & Application.Forms(0).Controls.Item(i).Name & "=" & _
      Application.Forms(0).Controls.Item(i).Value, , Application.Forms(0).Name
Next i
Err.Clear 'putsataan aiheutuneet virheet

'Helpompi on tietysti viita objektiin suoraan, kun luultavasti kuitenkin tunnet formisi objektit ulkoa
MsgBox Application.Forms(0).Controls![Objektin Nimi].Value

Tuolla edellisellä löydät Item:n, jonka value:sta saat haluamasi arvon jonka sitten asetat vaikkapa Select-lauseeseen, jonka sitten asetat raportin RecordSource:ksi tms.

Edit: Järkeä saa käyttää...