Access report

Access report
2016-04-29T08:41:14+02:00
2016-04-30T10:31:24+02:00
2022-10-15T23:30:16+02:00
Tomi8010
Sziasztok! 

Ezzel a témával kapcsolatban több kérdésem is lenne. Valószínűleg a legtöbb része egyszerű lesz csak eddig nem kellett ilyet csinálnom így járatlan az út előttem. 

Készítek egy(igazából több) dinamikus riportot, melyeket nem kell és nem is szeretném elmenteni. 
Összesen 20 táblából kell/kellene adatokat kinyernem így nem is küzdöttem a qryvel hanem a szükséges adatokat szépen összevakarom egy futási időben generált táblába és ezt adom oda forrásnak a riportnak. Na és akkor itt kezdődik az első probléma. 

A sormagasság. Beállítottam a a cangrowt de minden esetben csak az adott hely magassága növekszik meg. 
Valahogyan így néz ki a végeredmény: 
__________________________
|               |                      |
|               |______________ |
|__________|

Bocsa kezdetleges rajzért :D 
És erre nem tudok értelmes megoldást találni, hogy ha valaminek növekszik a magassága akkor abban a sorban mindennek nőjön meg. 

Public Function createreport(strsql as string) dim rpt as Report set rpt = CreateReport Dim txtNew As Access.TextBox with rpt .Printer.PaperSize = acPRPSA3 .Printer.Orientation = acPRORLandscape .FitToPage = True .Width = 20700 .RecordSource = strsql .Caption = "cime" .Section(acDetail).CanGrow = True .Section(acDetail).CanShrink = False .Section(acDetail).BackColor = RGB(255, 255, 255) .Section(acDetail).AlternateBackColor = RGB(255, 255, 255) .Section(acDetail).Height = "300" End with Set txtNew = CreateReportControl(rpt.name, acTextBox, acDetail, , "Fields_name1") with txtNew .left = lngleft .top = lngtop .Height = 300 .Width = 6000 lngleft = lngleft + 6000 .BorderStyle = 1 .BorderWidth = 2 .SizeToFit .CanGrow = True .CanShrink = False .name = "Fields1" end with Set txtNew = CreateReportControl(rpt.name, acTextBox, acDetail, , "Fields_name2") with txtNew .left = lngleft .top = lngtop .Height = 300 .Width = 6000 lngleft = lngleft + 6000 .BorderStyle = 1 .BorderWidth = 2 .SizeToFit .CanGrow = True .CanShrink = false .name = "Fields2" End with DoCmd.OpenReport rpt.name, acViewPreview End function
A második kérdésem hogyan tudom megoldani azt hogy időnként hozzátegyek egy részösszeget. 
Tehát adott egyik tábla amiben van 10 elem és mindhez kapcsolódik 10 sor. 
És nekem ki kell íratni a soronkénti összeget, de ha végig ér az elemhez tartozó sorokon akkor írja ki dőlt vagy vastag betűvel az elem nevét és a hozzá tartozó sorok összegét. 

És így tovább egészen 4 szint mélységig. 

Remélem érthetően sikerült feltennem a kérdéseket és a válaszokat előre is köszönöm. 

Üdv T
U.i.: És bocs hogy ilyen hosszú lett.
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd