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
vba - access - tulostus
2
402
Vastaukset
- Keihänen
Hei,
kokeile tehdä Raportit kaikista tarvittavista tietokannan tauluista, voit myös yhdistää yhteen raporttiin monen eri taulun rivejä.
Sinun täytyy siis ensiksi luodan Raportti (raportit). Jos haluat painonapista avata formin, se tapahtuu seuravaasti:
DoCmd.OpenReport stDocName, acViewPreview, , strLinkCritieria
stDocName = raportin nimi
acViewPreview = tarkoittaa esikatselua
strLinkCritieria = tekijä, jolla rajataan mitä näytetään. esim. voit luoda valikon jossa kaikki asiakkaat ja kun painetaan nappia niin napin painallus lukee tuon asiakas-valikon arvon ja välittää sen raportille, jolloin raportti osaa rajata näytettävät. strLinkCritieria on oltava SQL:n where ehdon muodossa eli esim. 'Asiakas_ID=1'
Eli lyhyesti:
- tee raportti
- kutsu painonapista raporttia (välitä valikon arvo raportille, joka rajaa tietyn asiakkaan)
- tulosta raportti- Axeli
joo tein lopulta raportin niistä ja en enään työskentele kyseisen projektin parissa mutta kiitos kuitenkin
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Suomi on täysin sekaisin
Jo ties monettako päivää hirveä itku ja poru jostain helvetin nilviäisistä. https://www.is.fi/taloussanomat/art-20000104504859Ensimmäisestä kohtaamisesta saakka
minulla on ollut hämmentynyt olo. Miten voit tuntua siltä, että olisin tuntenut sinut aina? Sinun kanssasi on yhtä aikaa151732Aivan täysin tahallinen teko
Ei mitään puolusteluja, eikä selittelyitä. Kuljettajalle kerrottiin asiasta siinä paikanpäällä, mutta silti hän ajoi ves941478Suomussalmi saatu vihdoin maailmankartalle!
Nyt kun Suomussalmi on vihdoin viimein saatu ennennäkemättömällä tavalla maailman tietoisuuteen niin voitaisiin järjestä531359Olet saanut minut sekoamaan
Tunteiden ristiaallokossa vellominen on ollut melkoinen kokemus. Ei kukaan ole saanut minua niin raiteiltaan kuin sinä.231337Mainehaitta metsäkonefirmalle
Hukkajoen tapahtumista liikkuu paljon huhuja. Eikö kannattaisi julkaista raakkuja tuhonneen metsäkoneyrityksen nimi, kos531228Oho! Maajussi-Kallelta pakit saanut morsioehdokas Miss Suomi -kisoissa! Tunnistaisitko hänet nyt?
Hmm, tunnistaisitko?!? Onnea missihulinoihin! Lue lisää ja katso kuvat: https://www.suomi24.fi/viihde/oho-maajussi-01075Myönnän sinulle nyt
Että olen erittäin mustasukkainen sinusta jo nyt. Ikävä on tämä tunne, kun tietämättömyyden solista nousee myrkkyä miele541010Pysytäänkö nainen
edelleen yhtä viileän tyynenä kun nähdään. Uskotko että tahtoessani saisin murettua tyyneytesi hyvin helposti.57895Olen käyttäytynyt ristiriitaisesti
eikä minusta varmaankaan ota mitään selvää. Se johtuu siitä, kun järki sanoo ei, ei, ei ja sydän sanoo kyllä, kyllä, kyl61879