Entering Current date in a field via a form button?

[MHernan1]

Hi all,



I am trying to figure out to have the current date populate in table field by using a button on a form and not having much luck.

I have a table with 2 date fields, a 'created' field and a 'received' field. I already have the date set to auto populate for the 'created' field but I don't want the 'received' field to populate until the employee has gone into the database to receive the work.

I know I could have the employee just enter the date, but i want to avoid any typos or people simply forgetting to do it.

Ideally I would love the button to enter the current date into the 'received' field and save the entry, but I fine it needs to be 2 seperate buttons.

Any help would be greatly appreciated!

[JoeM]

Assuming your command button is named "cmdUpdateRecDate" and your Received Date text box is name "txtRecDate", you would just use the following code in the "Click" event of your command button:

Private Sub cmdUpdateRecDate_Click()
    Me.txtRecDate = Date
End Sub

If your txtRecDate field is bound to the Received Date field in the underlying table, there shouldn't be any reason to save it. Saving happens automatically.

[sklim]

For the button, create an event procedure via the property sheet and when the code window comes up, enter me.whatever_the_field_name_is.value = date()

[MHernan1]

Perfect, thanks very much for the help!