Try this in the AfterUpdate event of the first date:
Private Sub Date1_AfterUpdate()
If Nz(Me!Date1, "") <> "" And Nz(Me!Date2, "") = "" Then
Me!Date2 = Me!Date1
End If
End Sub
-- Dorian
"Give someone a fish and they eat for a day; teach someone to fish and they
eat for a lifetime".
"Tara" wrote:
> I have a form with two date fields on it - Service Date and Posted Date.
> Since in most cases the Service Date will be the same as the Posted Date, I
> have the default value of Posted Date field set to the value of the Service
> Date field by using the following expression in the default value property:
> =[ServiceDate]. It's not working though and I'm not sure why.
|