Autopopulate field

[lynnmc26]

I would like to have a field autopopulate (date field) when a checkbox is selected 'true'


Fields are:

FolderBCCheck-In (checkbox field)
Check-InDate (date field)

I need the check-inDate field to populate Date() when the FolderBCCheck-In field is checked.

I assume it is VBA code to the AfterUpdate (Event procedure). Just having trouble getting the right code.

Can someone assist?

Thanks

Lynn

[June7]

You want it to populate with the current date but only when that box is checked, so Default Value not suitable?

You are doing data entry on a form? For a checkbox probably have better luck with the Change event. The date field is included in the form's RecordSource? Try:

If Me.checkbox = vbTrue Then
Me.datetextboxname = Date() '(or Me!datefieldname = Date())
Else
Me.datetextboxname = Null
End If

[lynnmc26]

Hi There
yes , data entry on a form.
OK - I will try the change event
yes - included in the recordsource

I will try - thanks
Lynn

[June7]

If you don't want users changing the date value, better set Locked Yes and TabStop No.

[lynnmc26]

The date doesn't seem to be autopopulating with this? I must be doing something wrong....
I placed the Code

Option Compare Database
Private Sub CheckInDate_Change()
If Me.FolderBCcheckin = vbTrue Then
Me.CheckInDate = Date '(or Me!datefieldname = Date())
Else
Me.CheckInDate = Null
End If
End Sub

[June7]

Should be the Change event of the check box, not the date box.

[lynnmc26]

I must just be tired or don't get this because I don't see the Change event for the check box and the () disappears after the Date and still is not autopopulating

I am struggling - sorry - just an intermediate when it comes to VBA Code

Anything else you can tell me that would get through to me?

[June7]

Sorry, been a while since I used checkbox and relied on memory so had to just now look at one. Right, no Change event. Seems I had issues with AfterUpdate in past but just tested both Click and AfterUpdate events and both worked. So take your pick.

[lynnmc26]

So this would be the one? (before I try this again) - Question - why does the () disappear after = Date?

Private Sub CheckInDate_Click()
If Me.CheckBox = vbTrue Then
Me!FolderBCCheckIn = Date
Else
Me.FolderBCCheckIn = Null
End If
End Sub

[lynnmc26]

I got this to work

I used:

Private Sub FolderBCCheckIn_Click()
If MyFolderBCCheckIn = Yes Then
Me.CheckInDate = Date
End If
End Sub

Thanks - SOLVED!!

[June7]

Date is a reserved word and a function without arguments in Access/VBA, so is Now(). Why they built it so VBA drops the parens from Date and not Now is a mystery.