Kirjautuminen

Haku

Tehtävät

Keskustelu: Ohjelmointikysymykset: VBA: vba - access - tulostus

Axuu [06.03.2006 11:03:23]

#

Pitäsi saada yhdestä napista tulostettua yhden asiakkaan kaikki tiedot monesta lomakkeesta, mutta ongelmanani on se että se tulostaa muista lomakkeista kaikkien asiakkaiden tiedot.

Tuolla käsyllä saa tulostetta sen lomakkeen mikä on auki ja vain tietyn asiakkaan:

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.PrintOut acSelection

Tuo tulostaa noist määrätyistä lomakkeista kaikkien asiakkaiden tiedot, se tarvitsisi muutaa niin että se tulostaa vaan yhden asiakkaan tiedot kaikista noista lomakkeista

Private Sub cmdTulostaKaikki_Click()
On Error GoTo Err_cmdTulostaKaikki_Click



    Dim stDocName As String
    Dim MyForm As Form
    Dim i%
    Dim Nimi(7) As String


    'eka laitetaan taulukkoon nimet ja sen jälkeen sitten tulostelllaan ne lomakkeet silmukal
    Nimi(0) = "ElamanKatsomus"
    Nimi(1) = "HoitoJaPalveluSuunnitelma"
    Nimi(2) = "Lääkitys"
    Nimi(3) = "Sairaudet"
    Nimi(4) = "Toimintakyky"
    Nimi(5) = "Vanhat Lääkkeet"
    Nimi(6) = "Voimassa olevat lääkelistat"

     For i% = 0 To 6


        stDocName = Nimi(i%)
        Set MyForm = Screen.ActiveForm
        DoCmd.SelectObject acForm, stDocName, True
        DoCmd.PrintOut
        DoCmd.SelectObject acForm, MyForm.Name, False
    Next i%
Exit_cmdTulostaKaikki_Click:
    Exit Sub

Err_cmdTulostaKaikki_Click:
    MsgBox Err.Description
    Resume Exit_cmdTulostaKaikki_Click

End Sub

niin ja tosissaan kyse on accessin visual basic for aplicationista

ja jos se ei näin hyvin onnistu niin voin tietenkin tehdä raportin mihin liitän kaikki tiedot, mutta sen tekemisessä menisi hieman aikaa.

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta