Getting last entry of field for default value in form

[David Messner]

Ok I know this is simple but the statement eludes me...

I have a date field where I want the default value on the data entry form's
date field to be the last date entered. I figure I can do this with a query
but don't know what the criteria needs to be.

Any help would be appreciated,

Thanks

[PC Datasheet]

Re: Getting last entry of field for default value in form

David,

Put the following code in the AfterUpdate event of the date field on your data
entry form:

Me!NameOfDateFi eld.Default = Me!NameOfDateFi eld


--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
resource@pcdata sheet.com

https://www.pcdatasheet.com

"David Messner" <dm@thetechtuto r.com> wrote in message
news:EMjUb.302$ PY.282@newssvr2 6.news.prodigy. com...[color=blue]
> Ok I know this is simple but the statement eludes me...
>
> I have a date field where I want the default value on the data entry form's
> date field to be the last date entered. I figure I can do this with a query
> but don't know what the criteria needs to be.
>
> Any help would be appreciated,
>
> Thanks
>
>[/color]

[David Messner]

Re: Getting last entry of field for default value in form

That gives me a error stating...

Run-time error '438':

Object doesn't support this property or method

Code entered is:
Private Sub Date_AfterUpdat e()
Me!Date.Default = Me!Date
End Sub

Thanks again for any help,

"PC Datasheet" <spam@nospam.sp am> wrote in message
news:IBtUb.1109 1$jH6.9495@news read1.news.atl. earthlink.net.. .[color=blue]
> David,
>
> Put the following code in the AfterUpdate event of the date field on your[/color]
data[color=blue]
> entry form:
>
> Me!NameOfDateFi eld.Default = Me!NameOfDateFi eld
>
>
> --
> PC Datasheet
> Your Resource For Help With Access, Excel And Word Applications
> resource@pcdata sheet.com
> www.pcdatasheet.com
>
>
> "David Messner" <dm@thetechtuto r.com> wrote in message
> news:EMjUb.302$ PY.282@newssvr2 6.news.prodigy. com...[color=green]
> > Ok I know this is simple but the statement eludes me...
> >
> > I have a date field where I want the default value on the data entry[/color][/color]
form's[color=blue][color=green]
> > date field to be the last date entered. I figure I can do this with a[/color][/color]
query[color=blue][color=green]
> > but don't know what the criteria needs to be.
> >
> > Any help would be appreciated,
> >
> > Thanks
> >
> >[/color]
>
>[/color]

[Jim Allensworth]

Re: Getting last entry of field for default value in form

You are using a reserved word (Date). You should not use them for
naming objects you create. As you can see Access can get confused.

Look at the MSKB article # 109312

- Jim

On Thu, 05 Feb 2004 22:45:22 GMT, "David Messner"
<dm@thetechtuto r.com> wrote:
[color=blue]
>That gives me a error stating...
>
>Run-time error '438':
>
>Object doesn't support this property or method
>
>Code entered is:
>Private Sub Date_AfterUpdat e()
> Me!Date.Default = Me!Date
>End Sub
>
>Thanks again for any help,
>
>"PC Datasheet" <spam@nospam.sp am> wrote in message
>news:IBtUb.110 91$jH6.9495@new sread1.news.atl .earthlink.net. ..[color=green]
>> David,
>>
>> Put the following code in the AfterUpdate event of the date field on your[/color]
>data[color=green]
>> entry form:
>>
>> Me!NameOfDateFi eld.Default = Me!NameOfDateFi eld
>>
>>
>> --
>> PC Datasheet
>> Your Resource For Help With Access, Excel And Word Applications
>> resource@pcdata sheet.com
>> www.pcdatasheet.com
>>
>>
>> "David Messner" <dm@thetechtuto r.com> wrote in message
>> news:EMjUb.302$ PY.282@newssvr2 6.news.prodigy. com...[color=darkred]
>> > Ok I know this is simple but the statement eludes me...
>> >
>> > I have a date field where I want the default value on the data entry[/color][/color]
>form's[color=green][color=darkred]
>> > date field to be the last date entered. I figure I can do this with a[/color][/color]
>query[color=green][color=darkred]
>> > but don't know what the criteria needs to be.
>> >
>> > Any help would be appreciated,
>> >
>> > Thanks
>> >
>> >[/color]
>>
>>[/color]
>
>[/color]

[David Messner]

Re: Getting last entry of field for default value in form

Thanks, that make great sense and I actually know better than that when
using excel.
Changed the names and the same error still comes up but I still DID need the
reminder...boy do I feel daft.

David

"Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in message
news:4022ca8b.1 93396390@news.w est.earthlink.n et...[color=blue]
> You are using a reserved word (Date). You should not use them for
> naming objects you create. As you can see Access can get confused.
>
> Look at the MSKB article # 109312
>
> - Jim
>
> On Thu, 05 Feb 2004 22:45:22 GMT, "David Messner"
> <dm@thetechtuto r.com> wrote:
>[color=green]
> >That gives me a error stating...
> >
> >Run-time error '438':
> >
> >Object doesn't support this property or method
> >
> >Code entered is:
> >Private Sub Date_AfterUpdat e()
> > Me!Date.Default = Me!Date
> >End Sub
> >
> >Thanks again for any help,
> >
> >"PC Datasheet" <spam@nospam.sp am> wrote in message
> >news:IBtUb.110 91$jH6.9495@new sread1.news.atl .earthlink.net. ..[color=darkred]
> >> David,
> >>
> >> Put the following code in the AfterUpdate event of the date field on[/color][/color][/color]
your[color=blue][color=green]
> >data[color=darkred]
> >> entry form:
> >>
> >> Me!NameOfDateFi eld.Default = Me!NameOfDateFi eld
> >>
> >>
> >> --
> >> PC Datasheet
> >> Your Resource For Help With Access, Excel And Word Applications
> >> resource@pcdata sheet.com
> >> www.pcdatasheet.com
> >>
> >>
> >> "David Messner" <dm@thetechtuto r.com> wrote in message
> >> news:EMjUb.302$ PY.282@newssvr2 6.news.prodigy. com...
> >> > Ok I know this is simple but the statement eludes me...
> >> >
> >> > I have a date field where I want the default value on the data entry[/color]
> >form's[color=darkred]
> >> > date field to be the last date entered. I figure I can do this with[/color][/color][/color]
a[color=blue][color=green]
> >query[color=darkred]
> >> > but don't know what the criteria needs to be.
> >> >
> >> > Any help would be appreciated,
> >> >
> >> > Thanks
> >> >
> >> >
> >>
> >>[/color]
> >
> >[/color]
>[/color]

[Jim Allensworth]

Re: Getting last entry of field for default value in form

You need to use the DefautlValue property - you are using Default.

Private Sub txtTheDate_Afte rUpdate()
Me.txtTheDate.D efaultValue = Me.txtTheDate
End Sub

I missed that the first time. :-/

- Jim

On Thu, 05 Feb 2004 23:30:46 GMT, "David Messner"
<dm@thetechtuto r.com> wrote:
[color=blue]
>Thanks, that make great sense and I actually know better than that when
>using excel.
>Changed the names and the same error still comes up but I still DID need the
>reminder...b oy do I feel daft.
>
>David
>
>"Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in message
>news:4022ca8b. 193396390@news. west.earthlink. net...[color=green]
>> You are using a reserved word (Date). You should not use them for
>> naming objects you create. As you can see Access can get confused.
>>
>> Look at the MSKB article # 109312
>>
>> - Jim
>>
>> On Thu, 05 Feb 2004 22:45:22 GMT, "David Messner"
>> <dm@thetechtuto r.com> wrote:
>>[color=darkred]
>> >That gives me a error stating...
>> >
>> >Run-time error '438':
>> >
>> >Object doesn't support this property or method
>> >
>> >Code entered is:
>> >Private Sub Date_AfterUpdat e()
>> > Me!Date.Default = Me!Date
>> >End Sub
>> >
>> >Thanks again for any help,
>> >
>> >"PC Datasheet" <spam@nospam.sp am> wrote in message
>> >news:IBtUb.110 91$jH6.9495@new sread1.news.atl .earthlink.net. ..
>> >> David,
>> >>
>> >> Put the following code in the AfterUpdate event of the date field on[/color][/color]
>your[color=green][color=darkred]
>> >data
>> >> entry form:
>> >>
>> >> Me!NameOfDateFi eld.Default = Me!NameOfDateFi eld
>> >>
>> >>
>> >> --
>> >> PC Datasheet
>> >> Your Resource For Help With Access, Excel And Word Applications
>> >> resource@pcdata sheet.com
>> >> www.pcdatasheet.com
>> >>
>> >>
>> >> "David Messner" <dm@thetechtuto r.com> wrote in message
>> >> news:EMjUb.302$ PY.282@newssvr2 6.news.prodigy. com...
>> >> > Ok I know this is simple but the statement eludes me...
>> >> >
>> >> > I have a date field where I want the default value on the data entry
>> >form's
>> >> > date field to be the last date entered. I figure I can do this with[/color][/color]
>a[color=green][color=darkred]
>> >query
>> >> > but don't know what the criteria needs to be.
>> >> >
>> >> > Any help would be appreciated,
>> >> >
>> >> > Thanks
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >[/color]
>>[/color]
>
>[/color]

[David Messner]

Re: Getting last entry of field for default value in form

Hrmm....

Private Sub Date_AfterUpdat e()
Me!DailyDate.De faultValue = Me!DailyDate
End Sub

Is what I currently have and the same error is still showing up

Now let me retrace for a second as I was reading the VBA help files and
found that the after update happens after the record is updated and that is
NOT what I am wanting to happen. What I am looking for the DailyDate field
in the Form to have the last date entered automatically.

Let me explain;

I have a data entry form to input "scores" each hour from 8am to 10pm. I
feel it would be a time saver as well as error reducer to have the Date
(DailyDate) field autopopulated with the last date that was entered. So
from 9am to 10pm they don't have to type in the date and can go to the next
field automatically.

Now I usually work with VBA in Excel and Word, but I'm still working on
learning the intricacies of Access.

[Jim Allensworth]

Re: Getting last entry of field for default value in form

You might need to coerce the value to a date literal. Try this...

Private Sub Date_AfterUpdat e()
Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
End Sub


Chr(35) returns #, which is used to identify dates.

AfterUpdate is the right place for the code. Then when you go to new
record the Default Values is what you will see.

- Jim

On Thu, 05 Feb 2004 23:58:56 GMT, "David Messner"
<dm@thetechtuto r.com> wrote:
[color=blue]
>Hrmm....
>
>Private Sub Date_AfterUpdat e()
> Me!DailyDate.De faultValue = Me!DailyDate
>End Sub
>
>Is what I currently have and the same error is still showing up
>
>Now let me retrace for a second as I was reading the VBA help files and
>found that the after update happens after the record is updated and that is
>NOT what I am wanting to happen. What I am looking for the DailyDate field
>in the Form to have the last date entered automatically.
>
>Let me explain;
>
>I have a data entry form to input "scores" each hour from 8am to 10pm. I
>feel it would be a time saver as well as error reducer to have the Date
>(DailyDate) field autopopulated with the last date that was entered. So
>from 9am to 10pm they don't have to type in the date and can go to the next
>field automatically.
>
>Now I usually work with VBA in Excel and Word, but I'm still working on
>learning the intricacies of Access.
>
>[/color]

[David Messner]

Re: Getting last entry of field for default value in form

Darn, that one sounded good, but still a no go
I have:
Private Sub Date_AfterUpdat e()
Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
End Sub

I just noticed that I have not explained how I am getting the error.
After putting in the code and going to a new record the DailyDate field of
the form is blank as it was before I started trying this. But when I type a
date into the field (which is short date formated as is the table) I get the
error mentioned:
Run-time error '438':
Object doesn't support this property or method.

Do I have to have a formating command after the equals for some reason?


"Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in message
news:4022e66e.2 00534640@news.w est.earthlink.n et...[color=blue]
> You might need to coerce the value to a date literal. Try this...
>
> Private Sub Date_AfterUpdat e()
> Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
> End Sub
>
>
> Chr(35) returns #, which is used to identify dates.
>
> AfterUpdate is the right place for the code. Then when you go to new
> record the Default Values is what you will see.
>
> - Jim
>
> On Thu, 05 Feb 2004 23:58:56 GMT, "David Messner"
> <dm@thetechtuto r.com> wrote:
>[color=green]
> >Hrmm....
> >
> >Private Sub Date_AfterUpdat e()
> > Me!DailyDate.De faultValue = Me!DailyDate
> >End Sub
> >
> >Is what I currently have and the same error is still showing up
> >
> >Now let me retrace for a second as I was reading the VBA help files and
> >found that the after update happens after the record is updated and that[/color][/color]
is[color=blue][color=green]
> >NOT what I am wanting to happen. What I am looking for the DailyDate[/color][/color]
field[color=blue][color=green]
> >in the Form to have the last date entered automatically.
> >
> >Let me explain;
> >
> >I have a data entry form to input "scores" each hour from 8am to 10pm. I
> >feel it would be a time saver as well as error reducer to have the Date
> >(DailyDate) field autopopulated with the last date that was entered. So
> >from 9am to 10pm they don't have to type in the date and can go to the[/color][/color]
next[color=blue][color=green]
> >field automatically.
> >
> >Now I usually work with VBA in Excel and Word, but I'm still working on
> >learning the intricacies of Access.
> >
> >[/color]
>[/color]

[Roald Oines]

Re: Getting last entry of field for default value in form

David Messner <dm@thetechtuto r.com> wrote:
: Darn, that one sounded good, but still a no go
: I have:
: Private Sub Date_AfterUpdat e()
: Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
: End Sub
:
: I just noticed that I have not explained how I am getting the error.
: After putting in the code and going to a new record the DailyDate
: field of the form is blank as it was before I started trying this.
: But when I type a date into the field (which is short date formated
: as is the table) I get the error mentioned:
: Run-time error '438':
: Object doesn't support this property or method.
:
: Do I have to have a formating command after the equals for some
: reason?

I have similar code in a database, except I use

Me!DailyDate.De faultValue = "#" & Me!DailyDate & "#"

in the form's BeforeUpdate event. Works in Access 97 and 2002.

:
:
: "Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in
: message news:4022e66e.2 00534640@news.w est.earthlink.n et...
:> You might need to coerce the value to a date literal. Try this...
:>
:> Private Sub Date_AfterUpdat e()
:> Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
:> End Sub
:>
:>
:> Chr(35) returns #, which is used to identify dates.
:>
:> AfterUpdate is the right place for the code. Then when you go to new
:> record the Default Values is what you will see.
:>
:> - Jim
:>
:> On Thu, 05 Feb 2004 23:58:56 GMT, "David Messner"
:> <dm@thetechtuto r.com> wrote:
:>
:> >Hrmm....
:> >
:> >Private Sub Date_AfterUpdat e()
:> > Me!DailyDate.De faultValue = Me!DailyDate
:> >End Sub
:> >
:> >Is what I currently have and the same error is still showing up
:> >
:> >Now let me retrace for a second as I was reading the VBA help files
:> >and found that the after update happens after the record is updated
:> >and that is NOT what I am wanting to happen. What I am looking for
:> >the DailyDate field in the Form to have the last date entered
:> >automaticall y.
:> >
:> >Let me explain;
:> >
:> >I have a data entry form to input "scores" each hour from 8am to
:> >10pm. I feel it would be a time saver as well as error reducer to
:> >have the Date (DailyDate) field autopopulated with the last date
:> >that was entered. So from 9am to 10pm they don't have to type in
:> >the date and can go to the next field automatically.
:> >
:> >Now I usually work with VBA in Excel and Word, but I'm still
:> >working on learning the intricacies of Access.

--

http://rec-sport-golf.com/?rc=oinesroald

Please remove the under_scores if sending me mail.

[Jim Allensworth]

Re: Getting last entry of field for default value in form

Well, I don't know. I just did a test and it worked fine for me.

Note: You must make an update before the After Update event occurs and
the default value is changed.

As Roald Oines noted in another post it works for him as well.

It's not that difficult, something else must be going on.

- Jim

On Fri, 06 Feb 2004 02:13:50 GMT, "David Messner"
<dm@thetechtuto r.com> wrote:
[color=blue]
>Darn, that one sounded good, but still a no go
>I have:
>Private Sub Date_AfterUpdat e()
> Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
>End Sub
>
>I just noticed that I have not explained how I am getting the error.
>After putting in the code and going to a new record the DailyDate field of
>the form is blank as it was before I started trying this. But when I type a
>date into the field (which is short date formated as is the table) I get the
>error mentioned:
>Run-time error '438':
>Object doesn't support this property or method.
>
>Do I have to have a formating command after the equals for some reason?
>
>
>"Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in message
>news:4022e66e. 200534640@news. west.earthlink. net...[color=green]
>> You might need to coerce the value to a date literal. Try this...
>>
>> Private Sub Date_AfterUpdat e()
>> Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
>> End Sub
>>
>>
>> Chr(35) returns #, which is used to identify dates.
>>
>> AfterUpdate is the right place for the code. Then when you go to new
>> record the Default Values is what you will see.
>>
>> - Jim
>>
>> On Thu, 05 Feb 2004 23:58:56 GMT, "David Messner"
>> <dm@thetechtuto r.com> wrote:
>>[color=darkred]
>> >Hrmm....
>> >
>> >Private Sub Date_AfterUpdat e()
>> > Me!DailyDate.De faultValue = Me!DailyDate
>> >End Sub
>> >
>> >Is what I currently have and the same error is still showing up
>> >
>> >Now let me retrace for a second as I was reading the VBA help files and
>> >found that the after update happens after the record is updated and that[/color][/color]
>is[color=green][color=darkred]
>> >NOT what I am wanting to happen. What I am looking for the DailyDate[/color][/color]
>field[color=green][color=darkred]
>> >in the Form to have the last date entered automatically.
>> >
>> >Let me explain;
>> >
>> >I have a data entry form to input "scores" each hour from 8am to 10pm. I
>> >feel it would be a time saver as well as error reducer to have the Date
>> >(DailyDate) field autopopulated with the last date that was entered. So
>> >from 9am to 10pm they don't have to type in the date and can go to the[/color][/color]
>next[color=green][color=darkred]
>> >field automatically.
>> >
>> >Now I usually work with VBA in Excel and Word, but I'm still working on
>> >learning the intricacies of Access.
>> >
>> >[/color]
>>[/color]
>
>[/color]

[David Messner]

Re: Getting last entry of field for default value in form

Thanks to both Jim and Roald, I do appreciate the help. Especially all the
patience Jim has shown trying to help me on the 'challenged' night. I do
figure there is something else going on that I'm over looking. I'm going to
start from the beginning and see if I can figure out what I am over looking.
I will post if I do solve it and let you know how I was being a dork this
day.

I do appreciate all the help guys,

David M.

"Jim Allensworth" <JimNOT@NOTdata centricsolution s.com> wrote in message
news:402313bc.4 7561453@netnews .comcast.net...[color=blue]
> Well, I don't know. I just did a test and it worked fine for me.
>
> Note: You must make an update before the After Update event occurs and
> the default value is changed.
>
> As Roald Oines noted in another post it works for him as well.
>
> It's not that difficult, something else must be going on.
>
> - Jim
>
> On Fri, 06 Feb 2004 02:13:50 GMT, "David Messner"
> <dm@thetechtuto r.com> wrote:
>[color=green]
> >Darn, that one sounded good, but still a no go
> >I have:
> >Private Sub Date_AfterUpdat e()
> > Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
> >End Sub
> >
> >I just noticed that I have not explained how I am getting the error.
> >After putting in the code and going to a new record the DailyDate field[/color][/color]
of[color=blue][color=green]
> >the form is blank as it was before I started trying this. But when I[/color][/color]
type a[color=blue][color=green]
> >date into the field (which is short date formated as is the table) I get[/color][/color]
the[color=blue][color=green]
> >error mentioned:
> >Run-time error '438':
> >Object doesn't support this property or method.
> >
> >Do I have to have a formating command after the equals for some reason?
> >
> >
> >"Jim Allensworth" <jimNOT@Notdata centricsolution s.com> wrote in message
> >news:4022e66e. 200534640@news. west.earthlink. net...[color=darkred]
> >> You might need to coerce the value to a date literal. Try this...
> >>
> >> Private Sub Date_AfterUpdat e()
> >> Me!DailyDate.De faultValue = Chr(35) & Me!DailyDate & Chr(35)
> >> End Sub
> >>
> >>
> >> Chr(35) returns #, which is used to identify dates.
> >>
> >> AfterUpdate is the right place for the code. Then when you go to new
> >> record the Default Values is what you will see.
> >>
> >> - Jim
> >>
> >> On Thu, 05 Feb 2004 23:58:56 GMT, "David Messner"
> >> <dm@thetechtuto r.com> wrote:
> >>
> >> >Hrmm....
> >> >
> >> >Private Sub Date_AfterUpdat e()
> >> > Me!DailyDate.De faultValue = Me!DailyDate
> >> >End Sub
> >> >
> >> >Is what I currently have and the same error is still showing up
> >> >
> >> >Now let me retrace for a second as I was reading the VBA help files[/color][/color][/color]
and[color=blue][color=green][color=darkred]
> >> >found that the after update happens after the record is updated and[/color][/color][/color]
that[color=blue][color=green]
> >is[color=darkred]
> >> >NOT what I am wanting to happen. What I am looking for the DailyDate[/color]
> >field[color=darkred]
> >> >in the Form to have the last date entered automatically.
> >> >
> >> >Let me explain;
> >> >
> >> >I have a data entry form to input "scores" each hour from 8am to 10pm.[/color][/color][/color]
I[color=blue][color=green][color=darkred]
> >> >feel it would be a time saver as well as error reducer to have the[/color][/color][/color]
Date[color=blue][color=green][color=darkred]
> >> >(DailyDate) field autopopulated with the last date that was entered.[/color][/color][/color]
So[color=blue][color=green][color=darkred]
> >> >from 9am to 10pm they don't have to type in the date and can go to the[/color]
> >next[color=darkred]
> >> >field automatically.
> >> >
> >> >Now I usually work with VBA in Excel and Word, but I'm still working[/color][/color][/color]
on[color=blue][color=green][color=darkred]
> >> >learning the intricacies of Access.
> >> >
> >> >
> >>[/color]
> >
> >[/color]
>[/color]