Osobine can grow, can shrink kontrola na reportu

Pozdrav svima,
Imam mali problem koji se sastoji u sledecem:
Na primer, imam tabelu sa tri kolone

ID
Naziv
Opis

sada od te tabele zelim da kreiram report kao tabelarni prikaz.
Podesim propery za text kontrole na can grow=yes i za can shrink=yes.
E sada dolazi do problema. Naime polju Opis (memo) sadrzi veliku kolicinu podataka tako da kada se otvori report svi podaci se vide super ali mi se siri samo to polje, ostala polja ostaju istih dimenzija. Kako da, iz koda, "izmerim" visinu (height) polja Opis, te potom tu vrednost dodelim visinama za ostale kontrole tako da mi sva polja zauzimaju iste dimenzije?
Probao sam ovako>

Dim i as integer
i=Me.Opis.Height
Me.ID.Height=i
Me.Naziv.Height=i


ali nije dalo rezultata. Molim za neku ideju.

Nadam se da sam lepo formulisao pitanje

Hvala

Evo mog predloga rešenja, što mora lako kad može i komplikovano... U principu, ovaj kod broji koliko text u kontroli ima redova, pa na osnovu tog broja menja i visinu ostalih kontrola.

Potpis

Ozbiljan i odgovoran mladić

evo i moj primjer

Potpis

zxz

^ @izonic: Još samo da radi...





PS
Ali zato primer urađen u Access 2007 (sačuvan u formatu Access 2002-2003) to automatski radi bez i jedne linije koda (!??!)

Potpis

The 11th Hour: The forces blocking change

evo tvoj primjer

Potpis

zxz

^ Čim pređe na jekavski linije okvira postanu nevidljive!???!!


Kod mene to izgleda ovako

Potpis

The 11th Hour: The forces blocking change

A isti taj fajl otvoren u Access 2002 gubi formatiranje (!!!!????)

Potpis

The 11th Hour: The forces blocking change

A moj primerčić ste tek tako odbacili

Potpis

Ozbiljan i odgovoran mladić

^ Naprotiv!
Samo eto zanimljive konstatacije da se isti fajl (bez ikakvog koda) razlicito ponasa u zavisnosti od verzije Accessa, kojom se otvara.
Verzija Access 2007 ima dodatne opcije prilikom dizajniranja reporta, koje na ranijim verzijama ne postoje...
Klik na simbol u gornjem levom uglu, skoro sakriven, koji izgleda nešto kao [+] - daje dodatne opcije u padajućem meniju (Layout / Tabular), kojih mislim da nema u ranijim verzijama Accessa.

Potpis

The 11th Hour: The forces blocking change

OK. Hvala vam svima na odgovorima, zaista ste bili mastoviti i iscrpni.
No da muka bude veca, meni i dalje ne polazi za rukom da ovo primenim.
Mada, posto imam na vistu na laptopu, predlazem, da ukoliko vam nije problem, mi neko objasni u par recenica kako da iskombinujem razlicite verzije accessa i primenim ovaj efekat.
Hvala jos jednom

Kod crtaj prebaci u modul tvog izvjestaja.
Polja koja hoces uokviravati preimenuj tako sto ces na postojece ime dodati 1 na kraju.
Primjer:
staro ime novo ime
ime ime1
prezime prezime1


Na on print grupe napr. Detail ako se tako zove pozovi funkciju crtaj (call crtaj)
Ukoliko ti je okvir tvojih polja vidljiv stavi ga transparent.

Potpis

zxz

domaci_a_nas pogledao sam tvoj primjer i dobar je stim sto je pristup drugaciji.

Rjesavanje ovoga je moguce na 3 nacina.
1-Da u svakm polju prebrojimo broj karaktera te izracunamo kada ce biti prelom u novi red
te da ostale kontrole prosirimo na isto.
Ovo je i dobro ako je samo jedna kontrola ta koja bi se mogla prosiriti.
2. Drugi nacin je da podignemo izvjestaj te da na on print napravimo proceduru koja ce na
iscitati za svaki rekord najsiru kontrolu. Ovdje nastaje problem sto na on print nemozemo
formatirati polja. Sada bi znaci ove sve podatke morali negdje zapisati izvjestaj zatvoriti
te ponovo otvoriti i onda na on format formatirati sirine polja prema iscitanim vrijednostima.
3. Mozemo na on print iscitati najsiru kontrolu u trenutnom trekordu i na osnovu te sirine
iscrtati okvire oko kontrola.

Eto meni je ovo zadnje biolo nekako naj jednostavnije

Potpis

zxz

Zonicev metod se moze uprostiti, tako da nije potrebno poznavati visinu niti jedne kontrole, niti koja je 'najveca'.

Ako iznad svih kontrola postavimo jednu horizontalnu fiksnu liniju, moze i na nivou TOP za sve kontrole, ona ce uvek ostati gde jeste, jer su kontrole ispod nje. Time fiksiramo pocetak svih vertiklanih linija koje cemo crtati.

Isto tako stavimo ispod svih kontrola jednu horizontalnu liniju. Nju ce kontrole da 'odguraju' na dole kako rastu. Eto nam donje koordinate za sve linije koje cemo crtati.

Na reportu se crtaju linije u X,Y sistemu gde je nula sistema gornji levi ugao. X raste u dexo, Y raste na dole. Sad za svaku kontrolu mozete da nacrtate vertikalnu liniju koja sadrzi vertikalne stranice te kontrole. For Each Ctl.. iz Zonicevog koda je jako korisno u tom slucaju. Koordinate izracunate ovako:

leva stranica kontrole A ce biti na liniji me.line (A.left, GornjaLinija.Top) - (A.Left, DonjaLinija.Top)
desna stranica kontrola A ce biti na liniji: me.line (A.left + A.width, GornjaLinija.Top) - (A.left + A.width,, DonjaLinija.Top)

Vidimo da se menjau samo X koordinate za dve tacke koje odredjuju liniju. Y koordinate su uvek iste, odredjene Gornjom i Donjom horizontalnom linijom.

Evo primer zakace (bez For Each Ctl) ali se moze preraditi da radi za proizvoljan broj kontrola. Sve kontrole treba da su CAnGrow = Yes i da im je BorderType = transaprent. Linije koje se crtaju crtam crvenom bojom, a takve su i horizontalne linije gore i dole, jer se tako lkse vide u dizajnu.

Nisam znao da Access 2007 ovo ima kao opciju bez programiranja. Ima nesto dobro i u novom Accessu, samo treba iskopati ;;;

:-)

Ja sam probao to sa horizontalnim linijama da textbox pogura kontrole ispod, al' mi nešto nije išlo Svejedno, važno je da je problem rešiv, pa nek čovek lepo izabere koje rešenje hoće.

Potpis

Ozbiljan i odgovoran mladić