Napravi tabelu sa nazivima i brojevima boja. Forme imaju za svaku sekciju mogućnost iybora boje. Mogućnosti korišćenja unapred definisanih boja su ogromne.
Evo ti malo prerađen tvoj primer.

Lako i jednostavno baccko
Evo ovako

Stari ovo je poprilično dobro ali nešto ne valja

Nevalja to što ne može da kada izaberem određenu boju i forma se oboji da poslije ponovnog pokretanja te forme ostanje ta boja zašto to ne može ?????

Pozdrav backo!!!

Ne znam na šta misliš. Na moju ili Trtkovu ideju. Evo ja sam još malo promenio primer, pa prilikom ponovnog otvaranja forma zadržava boju koju si odabrao. Međutim prilikom ponovnog otvaranja baze boja će biti, u ovom primeru, crna. Boju sam smestio u Public promenjivu u modulu 1. Kad odabereš drugu boju sa liste promenjiva dobija novu vrednost i "pamti" je dok je baza otvorena.
Ovo je samo ideja kako može da se radi. Trtkova slika, predpostavljam, znači i mogućnost da vrednosti za formatiranja formi i kontrola smestiš u tabelu. Tako obezbeđiješ da i prilikom novog startovanja baze, forme imaju boju koju si ranije odabrao.
Mogućnosti ima, tvoje je da odabereš pravo rešenje.

Pozdrav.

Nidi dobro gledao Baccko
i te kako to valja, vidis da ima dugme "Snimi Postavke",
sto znaci da sva tvoja setiranja snimi u tablicu,
a poslije na form open , procita te postavke i pofarba tvoju formu i objekte.

Znaci , ti mozes ama bas sve pofarbat, povecat , sto god zamislis
ZAPAMTI da mozes vidjeti i dobiti sve objekte koji su ti na formu, naravno i njihova imena.

Evo ti dio koda pa mozda skuzis kako je to sve lako.

' imef= je ime forme


Forms(imef).Detail.BackColor = TDET.BackColor

For Each Control In Forms(imef).Controls

If Control.ControlType = acSubform Then
trtfrm = Control.Name
Forms(imef).Form(trtfrm).Form.DatasheetBackColor = SPODLOGA.BackColor
Forms(imef).Form(trtfrm).Form.DatasheetGridlinesColor = SGRID.BackColor
Forms(imef).Form(trtfrm).Form.DatasheetForeColor = SFONT.BackColor

End If

If Control.ControlType = acTextBox Then ' Svojstva za texbox odabrane forme
imeobj = Control.Name
Forms(imef).Controls(imeobj).BackColor = TBOX.BackColor
Forms(imef).Controls(imeobj).ForeColor = l1t.ForeColor
End If
.....
.....
.....

Pozdrav stari ; Ne trtko ja nisam rekao za tvoj primjer da ne valja nego za ovaj svoj koji mi je doradio "Bilo Koje" i nije baš da i on ne valja nego je imao propusta, kao što i sada ima prilikom ponovnog otvaranja baze.Za ovaj tvoj "JPG" mogu da kažem da ima dobre kontrole za baš sve opcije.Ovo je baš velik posao i sa puno kodaali slučajno možeš da mi pošalješ ovaj primjer ili samo kod na moj e-mail:[[email protected]], bio bih ti puno zahvalan a i onako si pomogao mnogima na forumu pa što ne i meni,ali u suprotnom i ako mi ne pomogneš hvala ti što si imao strpljenja i vremena na ovu temu...

Pozdrav!!!

Dali ima šta od ovog dogovora!!

Ovon ije završeno ...