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 Subniin 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.
Aihe on jo aika vanha, joten et voi enää vastata siihen.