Tekst kleuren middels VBA code

[Menno]

Hallo,

Ik heb een formulier waarbij de teksten gekleurd worden afhankelijk van de
waarde van een ander veld. In totaal heb ik hiervoor vijf kleuren (dus vijf
voorwaarden) nodig. Natuurlijk is de voorwaardelijke opmaak hier niet voor
geschikt (max. drie voorwaarden), maar moet ik een VBA code hebben. Kan
iemand zo vriendelijk zijn mij een voorbeeld hiervoor te geven? Ik kan
namelijk nergens op het internet een goed voorbeeld vinden.

Alvast bedankt!

Met vriendelijke groet,

Menno

[Gert]

Menno,

Voor je specifiek probleem heb ik geen voorbeeld, maar ik zou als volgt te
werk gaan:

In een aparte functie of sub wordt de kleur gezet van de nodige controls.
Een kleur kan gezet worden met
Me.Controls("controlnaam").ForeColor = wdColorGray30
De kleur (nummer) kan afhankelijk gemaakt worden van andere velden.

Deze functie of sub wordt aangeroepen in de On_Current() van het formulier
en de Before_Update() van de velden waarvan de kleur afhankelijk is.

Gert

[luct...@gmail.com]

Als het een doorlopend formulier is gaat het volgens mij niet. Als het
een rapport mag zijjn kun je de voorwaarde in de OnPrint zetten. Bij
een niet doorlopend formulier kun je de kleur van het veld aanpassen
in de OnCurrent event

[Menno]

Waarom zou het niet lukken in een doorlopend formulier? Als voorwaardelijke
opmaak het doet in een doorlopend formulier (wat op dit moment prima werkt,
zij het met drie kleuren) dan zou een VBA code dit toch ook moeten kunnen?

"luct...@gmail.com" schreef:

[Maurice]

Uit de help van Access. Heb er ooit eens mee gestoeid, maar is "alleen lezen"
dus vanuit code kun je er niet zo heel veel mee als je condities moet maken.

With Forms("forms1").Controls("Textbox1").FormatConditions(1)
.BackColor = RGB(255, 255, 255)
.FontBold = True
.ForeColor = RGB(255, 0, 0)
End With

--
Maurice Ausum

[luct...@gmail.com]

On 13 mei, 12:51, Menno <Me...@discussions.microsoft.com> wrote:
> Waarom zou het niet lukken in een doorlopend formulier? Als voorwaardelijke
> opmaak het doet in een doorlopend formulier (wat op dit moment prima werkt,
> zij het met drie kleuren) dan zou een VBA code dit toch ook moeten kunnen?
>

> "lucteu...@gmail.com" schreef:
> Voorwardelijke opmaak werkt inderdaad zeer goed, maar zoals je zegt met een max. van 3.

>
>
> > On 13 mei, 11:44, Menno <Me...@discussions.microsoft.com> wrote:
> > > Hallo,
>
> > > Ik heb een formulier waarbij de teksten gekleurd worden afhankelijk van de
> > > waarde van een ander veld. In totaal heb ik hiervoor vijf kleuren (dus vijf
> > > voorwaarden) nodig. Natuurlijk is de voorwaardelijke opmaak hier niet voor
> > > geschikt (max. drie voorwaarden), maar moet ik een VBA code hebben. Kan
> > > iemand zo vriendelijk zijn mij een voorbeeld hiervoor te geven? Ik kan
> > > namelijk nergens op het internet een goed voorbeeld vinden.
>
> > > Alvast bedankt!
>
> > > Met vriendelijke groet,
>
> > > Menno
>
> > Als het een doorlopend formulier is gaat het volgens mij niet. Als het
> > een rapport mag zijjn kun je de voorwaarde in de OnPrint zetten. Bij
> > een niet doorlopend formulier kun je de kleur van het veld aanpassen

> > in de OnCurrent event- Tekst uit oorspronkelijk bericht niet weergeven -
>
> - Tekst uit oorspronkelijk bericht weergeven -