Tekst verkleuren indien einddatum nadert.

  • Onderwerp starter Onderwerp starter kuyt1
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

kuyt1

Gebruiker
Lid geworden
8 mrt 2012
Berichten
24
Hallo allemaal,

Ik zit met het volgende. In mijn access 2007 database heb ik een bepaald onderdeel.
Op het moment dat er aan gewerkt wordt, dan wordt de aanvangsdatum ingevuld, echter is er ook nog een 'gewenste datum' wanneer het onderdeel af moet zijn.
Om dit nu te laten opvallen als deze datum nadert, wil ik deze rood laten verkleuren.
Dit moet gebeuren indien de gewenste datum nog 2 weken (14dagen) te gaan heeft. Het is vandaag 8 maart, dus als het onderdeel op 22 maart af zou moeten zijn, dan moet hij per vandaag rood verkleuren. Hij moet dan ook rood blijven, totdat het 'ja/nee' vakje is aangevinkt dat het onderdeel klaar is. Dan moet de kleur weer terug naar normaal of groen, maakt niet uit.

Mijn vraag is of iemand hiervoor de code weet om dit mogelijk te maken. Het gaat hier dan vooral om dat als het rapport wordt geladen (overzicht van alles in geheel) de datums verkleurd zijn. Dus op moment van laden rapport wordt het actief.
Ik weet niet of het ook mogelijk is gewoon in de tabel vorm??

Hierbij bijgevoegd een test van de database. Ik heb een soort van code, maar die functioneert niet, want die kleurt alle datums rood.

Hopelijk kan iemand mij hiermee verder helpen. Bij voorbaat dank.
Bekijk bijlage test.zip
 
Je kunt dat doen met Voorwaardelijke opmaak. Gebruik daarbij de voorwaarde <Expressie is>, en niet <Veldwaarde is>.
 
Heeft er iemand ook de code om dit in het VBA in te stellen voor het rapport??
 
Het was even puzzelen met ; , en "

Code:
Private Sub Report_Load()
Call FC
End Sub

Private Sub FC()
'http://www.microsofttraining.net/post-25653-vba-conditional-formatting.html
'http://msdn.microsoft.com/en-us/library/aa139965(v=office.10).aspx
'http://www.office-loesung.de/ftopic95187_0_0_asc.php
Dim objFrc As FormatCondition
Me.[Datumgewenst].FormatConditions.Delete
'create three format objects and add them to the FormatConditions collection
Set objFrc = Me![Datumgewenst].FormatConditions.Add(acExpression, , " [Klaar]= -1 ")
Set objFrc = Me![Datumgewenst].FormatConditions.Add(acExpression, , " ([klaar]= 0 ) AND (DateDiff(""d"",Date(),[datumgewenst]) >= 14 ) ")
Set objFrc = Me![Datumgewenst].FormatConditions.Add(acExpression, , " ([Klaar] = 0 ) AND (DateDiff(""d"",Date(),[datumgewenst]) < 14 ) ")
With Me.[Datumgewenst].FormatConditions(0)
.BackColor = vbGreen
End With
With Me.[Datumgewenst].FormatConditions(1) '
.BackColor = vbYellow
End With
With Me.[Datumgewenst].FormatConditions(2)
.BackColor = vbRed
End With

End Sub

Grt.  Jan

en de aangepaste test file: Bekijk bijlage CFtest.zip
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan