Opgelost Expressie bij voorwaardelijke opmaak

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

shpsov

Gebruiker
Lid geworden
19 jan 2018
Berichten
11
Hallo allen.

Ik heb in een doorlopend formulier onder elkaar voor een bepaalde datum allemaal plancodes staan.
Elke code bestaat uit 3 letters gevolgd voor een getal.
Letters zijn een code van lessoort met de locatie en het getal geeft aan hoeveel docenten er nodig zijn.
BV.
ISD3
OOS2
OpH1
etc.

Nu wil ik in de voorwaardelijke opmaak wordt aangegeven mbv kleurtjes of er een tekort is (Rood), Genoeg (Groen) of teveel (Oranje)
een gewoon statische voorwaardelijke opmaak werkt naar behoren.
bv met
Right([Temp_UitvraagCode];1)=3 (Groen)
Right([Temp_UitvraagCode];1)<3 (Rood)
Right([Temp_UitvraagCode];1)>3 (Oranje)
ISD3 kleurt groen en de andere kleuren allemaal rood.
Precies zoals het bedoeld is.
Het getal in de code wil ik gaan vergelijken met een telling voor dezelfde datum in de docentenplantabel met de letters als criteria.

Bv met onderstaande code:
Right([Temp_UitvraagCode];1)= Nz(DCount("Ida_id", "Qry_DocentenAantalInzetbaarSom", "Act_Afkorting=""& (left([Temp_UitvraagCode];1))& "" And dat_datum = # " & Me.lbldag3 & "# ") / 2, 0)

Het delen door twee komt doordat een docent per halve dag wordt gepland. (ochtend en de middag)
Deze code geeft een fout melding. Ik vermoed dat ik teveel, te weinig dan wel de quotes op de verkeerde plaats heb staan.

Kan iemand mij op weg helpen.
Ik hoop dat ik voldoende gegevens in mijn vraag heb gezet.

b.v.d.
Ernie.
 
Ik weet niet wat je aan het doen bent met die code. Ik maak me ook sterk dat je die in een VO kan gebruiken. Misschien met VBA dat je zoiets kan maken. Dan maak je dus een VO op basis van het resultaat van de DCount, niet met de formule.
 
Maak je doorlopend formulier op basis van een query waarin je de code in 2 kolommen splitst: één met de lescode en 1 met het getal. Leg in de query een relatie met de dataset met docenten gegevens. Dan heb je alle gegevens in één set. Deze set is wel niet aanpasbaar.
 
Sorry voor de late reactie.

Ik heb het nu opgelost mbv VBA.
Was wel wat extra zoek werk mbv programmeren, maar is wel gelukt.
Dank voor het in de goede richting sturen.
 
Tijd is je beste vriend :). Mag je de vraag nog op <Opgelost> zetten!
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan