Into the print view the end date will be show
but if I print the report the end date will be blanc
Do any now why the end date not be print??
I use for selection :
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'There are a few ways to do this. You could use the On...
All is almost work now
I did make Into Query a field "Expr2"
Expr2: (([Eind datum]-60)<Date())=True
And into the sup form
a field with name "shpRectangle"
Private Sub Form_Current()
If Me.Text23 = -1 Then
Me.shpRectangle.BackColor = RGB(255, 0, 0)
Else...
Thanks for all off your help I have solve the problem with:
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
'There are a few ways to do this. You could use the On Print of the Details section of your report to read:
If [Eind datum] > Date + 60 Then [Eind datum].ForeColor =...
I have some samples only I do not understand how it work.
Where do I put it :
In the form or in a module :
And how do I make it to work into my sub form??
The input field is Me.tekst21 . This field containing the end date from the cliënt.
All wat I want to do is if the (end date -30) is past...
I have look into conditonal formatting but I don't now how it works.
Can you give me an example of it??
And sory for the Dutch my Englisch is not so well.
Greets from Friesland
Hoe kan ik de achtergrond kleur van een invoer veld automatisch laten veranderen als de ingevoerde datum verstreken is??
Heb al het een en ander geprobeerd met rgb.
If me.veldnaam <= date then Me.veldnaam.BackColor = RGB(255, 0, 0)
Echter doet acces hier niets mee.:confused: