Date Record Entered

[MikeDBMan]

I have a field that I wish to store today's date in if the field is empty. If the field has data in it, I wish it to not be changed by users. I believe I need to use the expression builder but have been unsuccessful with creating the right formula. Please help. The field name is 'Date Added'. Thanks.

[boblarson]

You can only limit this by using a form. And putting code in the form's On Current event. You can use:

Me.NameOfTextBoxHere.Locked = (Len(Me.NameOfTextBoxHere & vbNullString) > 0)

[LillMcGill]

create a query that produces records where Date Added is null. Look at the results to check that the correct records were produced. If so, change the query to an Update query. in the Update to field for Date Added, enter the function Date()

Run the query by using the Run button (red exclamation). Check your table... the date added field has been changed.

[MikeDBMan]

I can't seem to locate the On Current Event. I see:
On Click
On Dbl Click
On Mouse Down
On Mouse UP
On Mouse Move
On Paint

Where is On Current?

[boblarson]

Okay, looks like I may have misread the original post a bit. If you want to add the date to the record you can use the form's before update event to add it if empty:

If IsNull(Me!DateFieldNameHere) Then 
   Me!DateFieldNameHere = Date
End If

And Date by the way is typed in there as shown. In a control source or query it is Date() but in VBA it is just Date.

So now you have a couple of different ways depending on how exactly you are wanting it.

[boblarson]

I can't seem to locate the On Current Event. I see:
On Click
On Dbl Click
On Mouse Down
On Mouse UP
On Mouse Move
On Paint

Where is On Current?

You have to select the Form first from the drop down on the left (if you are in the VBA window) or from the object list from the form's properties dialog if looking at the form in design view. You apparently have a control selected and not the form object.

[MikeDBMan]

Thanks, Bob. Your second solution does what I wish to have happen.