DataReport Detail po ID-u !

Evo cod-a koji pozivam da bih vidjeo na reportu iz Adodc1. podatke.

Set DataReport1.DataSource = Me.Adodc1
DataReport1.Show vbModal


Treba u detail reporta prikazati podatke iz Adodc1 po ID-u a aktivni ID uzimam s forme. preko Adodc1.

Premesti polja na reportu sa detail sekcije u reportheader sekciju i dobices to sto ti treba. Izgleda ti bas nisu najjasnije razlike izmedju sekcija na reportu (osim razlike u nazivu), tj. cemu koja sluzi?

E hvala sto si se oglasio na moj problem,pa pokusao sam i to odmah ali ja u report header ne mogu dodati niti jedan txtbox vec samo label i image kontrolu.

A kako ti kazes da mi bas sekcije nisu jasne moguce jer sam do sada radio u access reportu i znam sve o njemu,pa sam prepostavio da je isto to.

Pozdrav !

Pa stavi labele i iz koda im podesi Caption, evo ti malo modifikovan primer koji sam vec ranije davao.

Gledao sam ja ovaj tvoj primer i ranije ali nije mi ovo nista pomoglo.

Folder temp kopirati na C disk.

Konkretno evo mog problema.

Pogledaj malo bolje, ili treba mozda da ti crtam?

Ako si na formi pozicioniran na neki record, onda samo u onaj red iz primera

umesto "OVO JE NOV NASLOV" stavis vrednost nekog polja iz tog tvog rekordseta, npr za PREZIME


Znaci, ne treba ti Details sekcija, postavi labele u ReportHeader sekciju kao sto sam ti vec jednom rekao i puni ih kao u ovom kodu sto sam sad stavio - hajde malo truda, pa se javi kad stvarno procitas ono sto ti drugi pisu.

Uh evo me nakon duzeg vremena,odradio sam ovaj primer koji sam postavio nekda,ali imam nekoliko pitanjna,nakon zatvaranja reporta na formi u txtbox-ovima nestane sve kao da ode u -1 record ne znam zasto dali treba staviti ono EOF <> nesto tako
i zasto ovu fintu nisam mogao prikazati u detail,zatim zasto u opce detail sluzi ako ne moze prikazati odredene rocord-e.

Evo cod-a :

Dim tmpRep As New DataReport1

Set tmpRep.DataSource = Me.Adodc1

'Primer kako menjas labele
tmpRep.Sections("Section2").Controls("ID").Caption = Adodc1.Recordset("ID")
tmpRep.Sections("Section2").Controls("IME").Caption = Adodc1.Recordset("Ime")
tmpRep.Sections("Section2").Controls("PREZIME").Caption = Adodc1.Recordset("Prezime")
tmpRep.Sections("Section2").Controls("Adresa").Caption = Adodc1.Recordset("Adresa")
tmpRep.Sections("Section2").Controls("Telefon").Caption = Adodc1.Recordset("Telefon")
tmpRep.Show 1, Me

Set tmpRep = Nothing

Pozdrav !

Ova linija ti ne treba, skloni je i nestace i tvoj problem sa EOF. Uzrok problema je taj da pri vezivanju rekordseta za report, on "protrci" kroz sve redove u rekordsetu i zavrsi na EOF, a posto ne koristis detail sekciju vezivanje ti uopste nije ni potrebno.

Hvala moderatoru sto je se odazvao,koristio sam tvoj primer kojisam malo promijrnio,mislim uzeo sam samo mali dio iz njega za print.

Ovako kada uklonim ovaj dio :
Set tmpRep.DataSource = Me.Adodc1

Onda nezeli da prikaze report i kaze : invalid data source

NE kuzim sta sad nestima.

Da citiram sebe, posto ti ocigledno ne citas sta ti drugi pisu.

Ti si ostavio textboxove koji se pozivaju na DataSource u detail sekciji i nisi ih sklonio kao sto sam ti vec 2 puta rekao, pa ti zato javlja tu gresku. SKLONI SVE IZ DETAIL SEKCIJE!

P.S.

Air Live, Neznalac, Backo, Dinel, Alem ... kako god da se ovde zoves, a imas toliko imena na ovom forumu da ih vise i sam ne znas, uvek si prepoznatljiv ;)

Nije to to,u detailu nema nista i prazan je !

Pa sta ces, kad ne ide - ne ide.

da slazem se !