I have a date field in my table, called inductiondate, which is set as short
date. The user will be keying several records in per day, all with the same
date (Not the current day). I want to store the first date they enter and
automatically display it on each add new screen.
I have called the date storedate (dim storedate as date), but when I try to
put storedate into the induction date field on my form, I get the followong
error:-
RunTimeError
-2147352567(800220009) You can't assign a value to this object.
Can anybody help?

TIA

Make the latest entry into InductionDate the Default value.
Use the AfterUpdate event of InductionDate...

Private Sub InductionDate_AfterUpdate()
InductionDate.DefaultValue = "#" & InductionDate & "#"
End Sub

Let's say you enter 2/20/06 in Induction date. When you open a new
record, that date will be entered into InductionDate by default, and will
cointinue to do so until you overwrite InductionDate with a new value.
--
hth
Al Camp
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions


"Number24" <(E-Mail Removed)> wrote in message
news:1DC0FC47-CBE3-416B-A07A-(E-Mail Removed)...
>I have a date field in my table, called inductiondate, which is set as
>short
> date. The user will be keying several records in per day, all with the
> same
> date (Not the current day). I want to store the first date they enter and
> automatically display it on each add new screen.
> I have called the date storedate (dim storedate as date), but when I try
> to
> put storedate into the induction date field on my form, I get the
> followong
> error:-
> RunTimeError
> -2147352567(800220009) You can't assign a value to this object.
> Can anybody help?
>
> TIA