Default Date Value Based on another date field

[striker]

I have two date fields in a table DateRaised and ReviewDate.

The ReviewDate field should be filled at data entry, but this date may not be known at the time. What I want to do is add a default value of a review date six months hence in this field.

For information the DateRaised is not neccessarily the date the record was created.

 

[pono1]

Striker,

Experiment by putting code similar to this in the On Current Event of your form -- your form which must include a textbox (hidden or otherwise) for ReviewDate, a field in a table.

If me.newrecord = true then

	Me.txtReviewDate = dateadd("m",6,date)

End if

Regards,
Tim

 

[striker]

I've tried various places for thst code but I cannot get it to work at all. Am I being particularly thick or is the code not right.

 

[IMO]

See if this works, place this code in the OnCurrent event of the form

Private Sub Form_Current()

If Me.DateRaised <> "" Then
Me.ReviewDate = DateAdd("m", 6, [DateRaised])
Else
Me.ReviewDate = ""
End If

End Sub

IMO

 

[striker]

IMO,

Works a treat But, how do I get the change to show up on the form when the change is made and not only when you move between records.

Cheers.

 

[IMO]

You could put the code in the LostFocus event of the Me.DateRaised control, but remember when you need to edit the Me.ReviewDate control, don't let Me.DateRaised getfocus.Have it's settings as Enabled = No, Locked = Yes

IMO

 

[striker]

Now I am completely confused.

Ho do I set that then.

 

[IMO]

Here's a quick example of what I mean.

IMO