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