I have check boxes and a date field for each box. When the box is checked,
I'd like to corresponding date field to automatically enter the current date.
How can I do this?

Tammy,
What happens when the checkbox is unchecked (False)?
I'll assume you want the date field nulled out...

Use the AfterUpdate event of your checkbox (ex. chkExample) to
update the date field (ex. ExampleDate) (you use your own object names)

Private Sub chkExample_AfterUpdate()
If chkExample = True
ExampleDate = Date()
Else
ExampleDate = Null
End If
End Sub

Note: If you need the Date and Time in ExampleDate, use...
ExampleDate = Now()
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

"Tammy S." <(E-Mail Removed)> wrote in message
news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
>I have check boxes and a date field for each box. When the box is checked,
> I'd like to corresponding date field to automatically enter the current
> date.
> How can I do this?

"Tammy S." <(E-Mail Removed)> wrote in message
news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
> I have check boxes and a date field for each box. When the box is
> checked,
> I'd like to corresponding date field to automatically enter the current
> date.
> How can I do this?

I'm getting an compile error: Expected: Then or GoTo. I have used the
underscore key between filed names that have more than one word. Could this
be causing the problem?

Example: EFIT_Confirmed is the check box and the corresponding date is
Date_Confirmed

"Al Campagna" wrote:

> Tammy,
> What happens when the checkbox is unchecked (False)?
> I'll assume you want the date field nulled out...
>
> Use the AfterUpdate event of your checkbox (ex. chkExample) to
> update the date field (ex. ExampleDate) (you use your own object names)
>
> Private Sub chkExample_AfterUpdate()
> If chkExample = True
> ExampleDate = Date()
> Else
> ExampleDate = Null
> End If
> End Sub
>
> Note: If you need the Date and Time in ExampleDate, use...
> ExampleDate = Now()
> --
> hth
> Al Campagna
> Microsoft Access MVP
> http://home.comcast.net/~cccsolutions/index.html
>
> "Find a job that you love... and you'll never work a day in your life."
>
> "Tammy S." <(E-Mail Removed)> wrote in message
> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
> >I have check boxes and a date field for each box. When the box is checked,
> > I'd like to corresponding date field to automatically enter the current
> > date.
> > How can I do this?
>
>
> .
>

Tammy,
Re: using "_" instead of spaces in object names is just fine.
I think it's just my typo... mea culpa.
Try this... (notice the added Then)

Private Sub chkExample_AfterUpdate()
If chkExample = True Then
ExampleDate = Date()
Else
ExampleDate = Null
End If
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."


"Tammy S." <(E-Mail Removed)> wrote in message
news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
> I'm getting an compile error: Expected: Then or GoTo. I have used the
> underscore key between filed names that have more than one word. Could
> this
> be causing the problem?
>
> Example: EFIT_Confirmed is the check box and the corresponding date is
> Date_Confirmed
>
> "Al Campagna" wrote:
>
>> Tammy,
>> What happens when the checkbox is unchecked (False)?
>> I'll assume you want the date field nulled out...
>>
>> Use the AfterUpdate event of your checkbox (ex. chkExample) to
>> update the date field (ex. ExampleDate) (you use your own object names)
>>
>> Private Sub chkExample_AfterUpdate()
>> If chkExample = True
>> ExampleDate = Date()
>> Else
>> ExampleDate = Null
>> End If
>> End Sub
>>
>> Note: If you need the Date and Time in ExampleDate, use...
>> ExampleDate = Now()
>> --
>> hth
>> Al Campagna
>> Microsoft Access MVP
>> http://home.comcast.net/~cccsolutions/index.html
>>
>> "Find a job that you love... and you'll never work a day in your
>> life."
>>
>> "Tammy S." <(E-Mail Removed)> wrote in message
>> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
>> >I have check boxes and a date field for each box. When the box is
>> >checked,
>> > I'd like to corresponding date field to automatically enter the current
>> > date.
>> > How can I do this?
>>
>>
>> .
>>

Okay, got it in, shows up in all corresponding fields (check box and date
box), but the parenthesis after = Date keep disappearing.

"Al Campagna" wrote:

> Tammy,
> Re: using "_" instead of spaces in object names is just fine.
> I think it's just my typo... mea culpa.
> Try this... (notice the added Then)
>
> Private Sub chkExample_AfterUpdate()
> If chkExample = True Then
> ExampleDate = Date()
> Else
> ExampleDate = Null
> End If
> End Sub
> --
> hth
> Al Campagna
> Microsoft Access MVP
> http://home.comcast.net/~cccsolutions/index.html
>
> "Find a job that you love... and you'll never work a day in your life."
>
>
> "Tammy S." <(E-Mail Removed)> wrote in message
> news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
> > I'm getting an compile error: Expected: Then or GoTo. I have used the
> > underscore key between filed names that have more than one word. Could
> > this
> > be causing the problem?
> >
> > Example: EFIT_Confirmed is the check box and the corresponding date is
> > Date_Confirmed
> >
> > "Al Campagna" wrote:
> >
> >> Tammy,
> >> What happens when the checkbox is unchecked (False)?
> >> I'll assume you want the date field nulled out...
> >>
> >> Use the AfterUpdate event of your checkbox (ex. chkExample) to
> >> update the date field (ex. ExampleDate) (you use your own object names)
> >>
> >> Private Sub chkExample_AfterUpdate()
> >> If chkExample = True
> >> ExampleDate = Date()
> >> Else
> >> ExampleDate = Null
> >> End If
> >> End Sub
> >>
> >> Note: If you need the Date and Time in ExampleDate, use...
> >> ExampleDate = Now()
> >> --
> >> hth
> >> Al Campagna
> >> Microsoft Access MVP
> >> http://home.comcast.net/~cccsolutions/index.html
> >>
> >> "Find a job that you love... and you'll never work a day in your
> >> life."
> >>
> >> "Tammy S." <(E-Mail Removed)> wrote in message
> >> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
> >> >I have check boxes and a date field for each box. When the box is
> >> >checked,
> >> > I'd like to corresponding date field to automatically enter the current
> >> > date.
> >> > How can I do this?
> >>
> >>
> >> .
> >>
>
>
> .
>

Yeah, that happens. As long as it continues to work, don't worry about it.

John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

Tammy S. wrote:
> Okay, got it in, shows up in all corresponding fields (check box and date
> box), but the parenthesis after = Date keep disappearing.
>
> "Al Campagna" wrote:
>
>> Tammy,
>> Re: using "_" instead of spaces in object names is just fine.
>> I think it's just my typo... mea culpa.
>> Try this... (notice the added Then)
>>
>> Private Sub chkExample_AfterUpdate()
>> If chkExample = True Then
>> ExampleDate = Date()
>> Else
>> ExampleDate = Null
>> End If
>> End Sub
>> --
>> hth
>> Al Campagna
>> Microsoft Access MVP
>> http://home.comcast.net/~cccsolutions/index.html
>>
>> "Find a job that you love... and you'll never work a day in your life."
>>
>>
>> "Tammy S." <(E-Mail Removed)> wrote in message
>> news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
>>> I'm getting an compile error: Expected: Then or GoTo. I have used the
>>> underscore key between filed names that have more than one word. Could
>>> this
>>> be causing the problem?
>>>
>>> Example: EFIT_Confirmed is the check box and the corresponding date is
>>> Date_Confirmed
>>>
>>> "Al Campagna" wrote:
>>>
>>>> Tammy,
>>>> What happens when the checkbox is unchecked (False)?
>>>> I'll assume you want the date field nulled out...
>>>>
>>>> Use the AfterUpdate event of your checkbox (ex. chkExample) to
>>>> update the date field (ex. ExampleDate) (you use your own object names)
>>>>
>>>> Private Sub chkExample_AfterUpdate()
>>>> If chkExample = True
>>>> ExampleDate = Date()
>>>> Else
>>>> ExampleDate = Null
>>>> End If
>>>> End Sub
>>>>
>>>> Note: If you need the Date and Time in ExampleDate, use...
>>>> ExampleDate = Now()
>>>> --
>>>> hth
>>>> Al Campagna
>>>> Microsoft Access MVP
>>>> http://home.comcast.net/~cccsolutions/index.html
>>>>
>>>> "Find a job that you love... and you'll never work a day in your
>>>> life."
>>>>
>>>> "Tammy S." <(E-Mail Removed)> wrote in message
>>>> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
>>>>> I have check boxes and a date field for each box. When the box is
>>>>> checked,
>>>>> I'd like to corresponding date field to automatically enter the current
>>>>> date.
>>>>> How can I do this?
>>>>
>>>> .
>>>>
>>
>> .
>>

The () disappearance in a module is normal. Don't worry about it. This is one
of the reasons you should never name a field or control "Date".
--
Duane Hookom
Microsoft Access MVP


"Tammy S." wrote:

> Okay, got it in, shows up in all corresponding fields (check box and date
> box), but the parenthesis after = Date keep disappearing.
>
> "Al Campagna" wrote:
>
> > Tammy,
> > Re: using "_" instead of spaces in object names is just fine.
> > I think it's just my typo... mea culpa.
> > Try this... (notice the added Then)
> >
> > Private Sub chkExample_AfterUpdate()
> > If chkExample = True Then
> > ExampleDate = Date()
> > Else
> > ExampleDate = Null
> > End If
> > End Sub
> > --
> > hth
> > Al Campagna
> > Microsoft Access MVP
> > http://home.comcast.net/~cccsolutions/index.html
> >
> > "Find a job that you love... and you'll never work a day in your life."
> >
> >
> > "Tammy S." <(E-Mail Removed)> wrote in message
> > news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
> > > I'm getting an compile error: Expected: Then or GoTo. I have used the
> > > underscore key between filed names that have more than one word. Could
> > > this
> > > be causing the problem?
> > >
> > > Example: EFIT_Confirmed is the check box and the corresponding date is
> > > Date_Confirmed
> > >
> > > "Al Campagna" wrote:
> > >
> > >> Tammy,
> > >> What happens when the checkbox is unchecked (False)?
> > >> I'll assume you want the date field nulled out...
> > >>
> > >> Use the AfterUpdate event of your checkbox (ex. chkExample) to
> > >> update the date field (ex. ExampleDate) (you use your own object names)
> > >>
> > >> Private Sub chkExample_AfterUpdate()
> > >> If chkExample = True
> > >> ExampleDate = Date()
> > >> Else
> > >> ExampleDate = Null
> > >> End If
> > >> End Sub
> > >>
> > >> Note: If you need the Date and Time in ExampleDate, use...
> > >> ExampleDate = Now()
> > >> --
> > >> hth
> > >> Al Campagna
> > >> Microsoft Access MVP
> > >> http://home.comcast.net/~cccsolutions/index.html
> > >>
> > >> "Find a job that you love... and you'll never work a day in your
> > >> life."
> > >>
> > >> "Tammy S." <(E-Mail Removed)> wrote in message
> > >> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
> > >> >I have check boxes and a date field for each box. When the box is
> > >> >checked,
> > >> > I'd like to corresponding date field to automatically enter the current
> > >> > date.
> > >> > How can I do this?
> > >>
> > >>
> > >> .
> > >>
> >
> >
> > .
> >

It doesn't work.

"John Spencer" wrote:

> Yeah, that happens. As long as it continues to work, don't worry about it.
>
> John Spencer
> Access MVP 2002-2005, 2007-2009
> The Hilltop Institute
> University of Maryland Baltimore County
>
> Tammy S. wrote:
> > Okay, got it in, shows up in all corresponding fields (check box and date
> > box), but the parenthesis after = Date keep disappearing.
> >
> > "Al Campagna" wrote:
> >
> >> Tammy,
> >> Re: using "_" instead of spaces in object names is just fine.
> >> I think it's just my typo... mea culpa.
> >> Try this... (notice the added Then)
> >>
> >> Private Sub chkExample_AfterUpdate()
> >> If chkExample = True Then
> >> ExampleDate = Date()
> >> Else
> >> ExampleDate = Null
> >> End If
> >> End Sub
> >> --
> >> hth
> >> Al Campagna
> >> Microsoft Access MVP
> >> http://home.comcast.net/~cccsolutions/index.html
> >>
> >> "Find a job that you love... and you'll never work a day in your life."
> >>
> >>
> >> "Tammy S." <(E-Mail Removed)> wrote in message
> >> news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
> >>> I'm getting an compile error: Expected: Then or GoTo. I have used the
> >>> underscore key between filed names that have more than one word. Could
> >>> this
> >>> be causing the problem?
> >>>
> >>> Example: EFIT_Confirmed is the check box and the corresponding date is
> >>> Date_Confirmed
> >>>
> >>> "Al Campagna" wrote:
> >>>
> >>>> Tammy,
> >>>> What happens when the checkbox is unchecked (False)?
> >>>> I'll assume you want the date field nulled out...
> >>>>
> >>>> Use the AfterUpdate event of your checkbox (ex. chkExample) to
> >>>> update the date field (ex. ExampleDate) (you use your own object names)
> >>>>
> >>>> Private Sub chkExample_AfterUpdate()
> >>>> If chkExample = True
> >>>> ExampleDate = Date()
> >>>> Else
> >>>> ExampleDate = Null
> >>>> End If
> >>>> End Sub
> >>>>
> >>>> Note: If you need the Date and Time in ExampleDate, use...
> >>>> ExampleDate = Now()
> >>>> --
> >>>> hth
> >>>> Al Campagna
> >>>> Microsoft Access MVP
> >>>> http://home.comcast.net/~cccsolutions/index.html
> >>>>
> >>>> "Find a job that you love... and you'll never work a day in your
> >>>> life."
> >>>>
> >>>> "Tammy S." <(E-Mail Removed)> wrote in message
> >>>> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
> >>>>> I have check boxes and a date field for each box. When the box is
> >>>>> checked,
> >>>>> I'd like to corresponding date field to automatically enter the current
> >>>>> date.
> >>>>> How can I do this?
> >>>>
> >>>> .
> >>>>
> >>
> >> .
> >>
> .
>

"Tammy S." <(E-Mail Removed)> wrote in message
news:5D428741-7593-4234-AB4D-(E-Mail Removed)...
> It doesn't work.
>
> "John Spencer" wrote:
>
>> Yeah, that happens. As long as it continues to work, don't worry about
>> it.
>>
>> John Spencer
>> Access MVP 2002-2005, 2007-2009
>> The Hilltop Institute
>> University of Maryland Baltimore County
>>
>> Tammy S. wrote:
>> > Okay, got it in, shows up in all corresponding fields (check box and
>> > date
>> > box), but the parenthesis after = Date keep disappearing.
>> >
>> > "Al Campagna" wrote:
>> >
>> >> Tammy,
>> >> Re: using "_" instead of spaces in object names is just fine.
>> >> I think it's just my typo... mea culpa.
>> >> Try this... (notice the added Then)
>> >>
>> >> Private Sub chkExample_AfterUpdate()
>> >> If chkExample = True Then
>> >> ExampleDate = Date()
>> >> Else
>> >> ExampleDate = Null
>> >> End If
>> >> End Sub
>> >> --
>> >> hth
>> >> Al Campagna
>> >> Microsoft Access MVP
>> >> http://home.comcast.net/~cccsolutions/index.html
>> >>
>> >> "Find a job that you love... and you'll never work a day in your
>> >> life."
>> >>
>> >>
>> >> "Tammy S." <(E-Mail Removed)> wrote in message
>> >> news:031B4C46-4810-4CDA-AF48-(E-Mail Removed)...
>> >>> I'm getting an compile error: Expected: Then or GoTo. I have used
>> >>> the
>> >>> underscore key between filed names that have more than one word.
>> >>> Could
>> >>> this
>> >>> be causing the problem?
>> >>>
>> >>> Example: EFIT_Confirmed is the check box and the corresponding date
>> >>> is
>> >>> Date_Confirmed
>> >>>
>> >>> "Al Campagna" wrote:
>> >>>
>> >>>> Tammy,
>> >>>> What happens when the checkbox is unchecked (False)?
>> >>>> I'll assume you want the date field nulled out...
>> >>>>
>> >>>> Use the AfterUpdate event of your checkbox (ex. chkExample) to
>> >>>> update the date field (ex. ExampleDate) (you use your own object
>> >>>> names)
>> >>>>
>> >>>> Private Sub chkExample_AfterUpdate()
>> >>>> If chkExample = True
>> >>>> ExampleDate = Date()
>> >>>> Else
>> >>>> ExampleDate = Null
>> >>>> End If
>> >>>> End Sub
>> >>>>
>> >>>> Note: If you need the Date and Time in ExampleDate, use...
>> >>>> ExampleDate = Now()
>> >>>> --
>> >>>> hth
>> >>>> Al Campagna
>> >>>> Microsoft Access MVP
>> >>>> http://home.comcast.net/~cccsolutions/index.html
>> >>>>
>> >>>> "Find a job that you love... and you'll never work a day in your
>> >>>> life."
>> >>>>
>> >>>> "Tammy S." <(E-Mail Removed)> wrote in message
>> >>>> news:F3AE64D4-0068-4B21-A6D5-(E-Mail Removed)...
>> >>>>> I have check boxes and a date field for each box. When the box is
>> >>>>> checked,
>> >>>>> I'd like to corresponding date field to automatically enter the
>> >>>>> current
>> >>>>> date.
>> >>>>> How can I do this?
>> >>>>
>> >>>> .
>> >>>>
>> >>
>> >> .
>> >>
>> .
>>