Add Now() when a checkbox is clicked

[Guest]

Is it possible to have Now() enter into a field when a yes/no checkbox is
clicked? I have a form with field name InProgress that is a yes/no checkbox.
I have another field named InProgressDate that I would like Now() to show up
when I check the InProgress checkbox. Is this possible?

 

[Carl Rapson]

Is it possible to have Now() enter into a field when a yes/no checkbox is
clicked? I have a form with field name InProgress that is a yes/no
checkbox.
I have another field named InProgressDate that I would like Now() to show
up
when I check the InProgress checkbox. Is this possible?

Yes, create an event handler for the checkbox's Click event (or the
AfterUpdate event, it really doesn't matter which). In that event, add the
code:

InProgressDate = Now

Carl Rapson

 

[Al Campagna]

Ryan,
I assume you want no InProgressDate if InProgress is False
Use the AfterUpdate event of InProgress to update the InProgressDate

Private Sub InProgress_AfterUpdate()
If InProgress = True Then
InProgressDate = Now()
Else
InProgressDate = Null
End If
End Sub
--
hth
Al Campagna . Candia Computer Consulting . Candia, NH USA
Microsoft Access MVP
http://home.comcast.net/~cccsolutions

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

 

[Guest]

You know your code Al, thanks for your help.

Ryan,
I assume you want no InProgressDate if InProgress is False
Use the AfterUpdate event of InProgress to update the InProgressDate

Private Sub InProgress_AfterUpdate()
If InProgress = True Then
InProgressDate = Now()
Else
InProgressDate = Null
End If
End Sub
--
hth
Al Campagna . Candia Computer Consulting . Candia, NH USA
Microsoft Access MVP
http://home.comcast.net/~cccsolutions

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

 

[John W. Vinson]

Is it possible to have Now() enter into a field when a yes/no checkbox is
clicked? I have a form with field name InProgress that is a yes/no checkbox.
I have another field named InProgressDate that I would like Now() to show up
when I check the InProgress checkbox. Is this possible?

Sure. Open the form in design view; view its Properties; and view the
properties of the checkbox. On the Events tab select the AfterUpdate event.
Click the ... icon and choose Code Builder. Access will put you into the VBA
editor with a Sub and End Sub line; edit it to

Private Sub yourcheckboxname_AfterUpdate()
If Me.yourcheckboxname Then ' set the date if the checkbox has
' been set to True
Me.InProgressDate = Now
End If
End Sub

John W. Vinson [MVP]