Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Automatska promjena boje slova u formi

[es] :: Access :: Automatska promjena boje slova u formi

[ Pregleda: 5056 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Hamza
Hamza Bajraktarević
Sarajevo

Član broj: 25091
Poruke: 28
217.75.202.*



Profil

icon Automatska promjena boje slova u formi16.02.2005. u 06:54 - pre 232 meseci
Interesuje me da li je neko probao napraviti proceduru za automatsku promjenu boje slova u Formi.

Na primjer: Ukoliko je vrijednost u polju X veća od 1000 da se automatski boja slova promijeni iz Plave u Crvenu.

Pomogla bi i promjena pozadine polja ili nešto slično.
 
Odgovor na temu

vigor

Član broj: 3125
Poruke: 39
*.yu
Via: [es] mailing liste



Profil

icon Re: Automatska promjena boje slova u formi16.02.2005. u 09:59 - pre 232 meseci
odprilike ovako

if X>1000 then
Text.Forecolor= "vrednost" 'vrednost je brojcana oznaka boje koju hoces, mislim da treba bez navodnika
else
Text.Forecolor= "druga vrednost"
end if
 
Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
217.71.52.*

Sajt: www.icentar.ba


+2 Profil

icon Re: Automatska promjena boje slova u formi16.02.2005. u 19:20 - pre 232 meseci
Function Boja()
Dim a
Dim b As Integer

On Error GoTo Greska
Screen.ActiveForm.Refresh
a = Screen.ActiveControl
b = Len(Format$(a))
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Screen.ActiveControl.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Screen.ActiveControl.ForeColor = 0
End If
Screen.ActiveControl.SelStart = b
Kraj:
Exit Function
Greska:
MsgBox "Pogrešan upis"
GoTo Kraj
End Function

Private Sub Form_Current()
Dim a

On Error GoTo Kraj

a = Val(Me.Vrijednost)
If Format$(a) = "" Then GoTo Kraj:
If Val(a) > 1000 Then
Me.Vrijednost.ForeColor = 255
ElseIf Val(a) <= 1000 Then
Me.Vrijednost.ForeColor = 0
End If
Kraj:
End Sub

Private Sub Vrijednost_Change()
Boja
End Sub
Ime Kontrole je: Vrijednost
Sretan rad
zxz
 
Odgovor na temu

DarkMan
Darko Matesic

Član broj: 20445
Poruke: 572
*.metrohive.neobee.net.

Jabber: DarkMan


Profil

icon Re: Automatska promjena boje slova u formi16.02.2005. u 19:23 - pre 232 meseci
http://www.elitesecurity.org/tema/75625
http://www.elitesecurity.org/tema/89270
 
Odgovor na temu

Hamza
Hamza Bajraktarević
Sarajevo

Član broj: 25091
Poruke: 28
217.75.202.*



Profil

icon Re: Automatska promjena boje slova u formi17.02.2005. u 06:19 - pre 232 meseci
Poštovani "izonic".

Probao sam. Radi savršeno.

Hvala.
 
Odgovor na temu

madmax68
Hrvatska

Član broj: 112513
Poruke: 2
*.hep.hr.



Profil

icon Re: Automatska promjena boje slova u formi28.10.2006. u 09:38 - pre 212 meseci
A kako bi izgledao kod da vrijednosti (brojcane) u polju ako su manje od 205 ili vece od 245, promjene boju recimo u crvenu???
Thx
 
Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.



+8 Profil

icon Re: Automatska promjena boje slova u formi30.10.2006. u 07:16 - pre 211 meseci
A imas i conditonal format
 
Odgovor na temu

[es] :: Access :: Automatska promjena boje slova u formi

[ Pregleda: 5056 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.