kleurverandering na updaten waarde

[plenarts]

Goedemorgen,

Ik heb 2 formulieren, 1 overzichtsformulier met 95 labels (tafels) en een 2e formulier waarin de reserveringen voor de tafels worden bijgehouden. In dit formulier staat oa een tekstvak waar het tafelnr wordt ingevoerd en een selectievakje voor gearriveerd ja/nee.

Via het reserveringsformulier wordt het tafelnr ingevoerd en nadat gearriveerd is aangevinkt dient het overeenkomstige label in het overzichtsformulier van kleur te veranderen.

hoe kan ik dit voor elkaar krijgen. ik heb een gedeelte van de oplossing hieronder bijgezet maar ik zit nog met het probleem hoe ik het tafelnummer in het reserveringsform en het juiste label op mijn overzichtsformulier gelinkt krijg.

In reserveringsform wordt nu na het aanvinken gearriveerd (dus after update) voor bv tafel 1 het volgende gedaan:

PrivateSub PlanToTable_AfterUpdate()
if Me.Table = 1 Then
Forms![TableOverview]![1.CT].Backcolor = 65280
( [1.CT] is labelnaam die tafel 1 vertegenwoordigd, [2.CT] is voor tafel 2 etc en Me.Table loopt van 1 t/m 95).
LabelTag is resp 1, 2, 3 etc)

Hoe kan ik dit variabele krijgen.

Ik werk met office 2000

Paul

 

[Guus2005]

Maak i.p.v. 95 labels een array aan van labels. Je kan dan met label(tafelnummer).backcolor=RGB(255,255,255) de kleur veranderen

Een array van labels maak je eenvoudig aan door een label te selecteren en vervolgens ^C ^V in te tikken. Je krijgt dan de vraag of je een control array aan wil maken. Als dit gebeurt is geef je nog eens 93 keer ^V je hebt dan 95 labels met dezelfde naam en een verschillende index. Selecteer ze allemaal en lijn ze uit ze staan dan niet meer overelkaarheen maar naastelkaar.

Weest gegroet,
Guus

 

[plenarts]

ik heb mijn 4 regels lange code voor labels gevonden.
Bedankt

 

[joost verdaasdo]

Geplaatst door plenarts
ik heb mijn 4 regels lange code voor labels gevonden.

En hoe ziet die code eruit? :thumb: