Holding/Keeping fields after record added

[ShennyP]

I have tried a few things I have found going through Google but have not found a solution that has worked.

I have a form which has 5 values and then 2 sub forms. When it is all filled in and the "Add Record" button is hit I want to be able to keep the previous entry for 4 of the fields. These fields are a date, a combo box and 2 times. Basically when this form is being used there are multiple entries with the same 4 values for these fields and it would be a large time saver to leave them as the previous record.

What is the easiest way to do this? I would like to try and avoid using another button to retrieve the old values if possible.

Cheers

[June7]

Use code in each control's AfterUpdate event to set its DefaultValue property.

http://access.mvps.org/access/forms/frm0012.htm

[ShennyP]

Use code in each control's AfterUpdate event to set its DefaultValue property.

http://access.mvps.org/access/forms/frm0012.htm

I am not too familiar with access, would I use that code in the AfterUpdate and that is it?

I may need a bit more detail.

[June7]

Yes, as I said, just each control AfterUpdate event.

Or behind the button you already have. Your choice.

[ShennyP]

I managed to get it to work with this

Private Sub Production_Date_AfterUpdate()


If Not IsNull(Me.Production_Date.Value) Then
Production_Date.DefaultValue = "#" & Me.Production_Date & "#"
End If


End Sub

However for some reason the month and day switch on me when it loads the default value. So ive put in 1st of march and hit next record and it goes to the 3rd of Jan. Any thoughts?

[June7]

Where are you located?

Review http://allenbrowne.com/ser-36.html

Non-U.S. style date is not an issue I have to deal with so not quite sure how you need to manage this.

[ShennyP]

Where are you located?

Review http://allenbrowne.com/ser-36.html

Non-U.S. style date is not an issue I have to deal with so not quite sure how you need to manage this.

Australia. I may start a thread as I am sure I am not the first to come across this issue

[June7]

It is a very common topic.

[accesstos]

I managed to get it to work with this

Private Sub Production_Date_AfterUpdate()


If Not IsNull(Me.Production_Date.Value) Then
Production_Date.DefaultValue = "#" & Me.Production_Date & "#"
End If


End Sub

However for some reason the month and day switch on me when it loads the default value. So ive put in 1st of march and hit next record and it goes to the 3rd of Jan. Any thoughts?

You have to use US format (m/d/yyyy) when you insert a date through VBA code.
Give it a try as below:

If Not IsNull(Me.Production_Date.Value) Then
  Production_Date.DefaultValue = "#" & month(Me.Production_Date) & "/" & day(Me.Production_Date) & "/" & year(Me.Production_Date) & "#"
End If

[ShennyP]

You have to use US format (m/d/yyyy) when you insert a date through VBA code.
Give it a try as below:

If Not IsNull(Me.Production_Date.Value) Then
  Production_Date.DefaultValue = "#" & month(Me.Production_Date) & "/" & day(Me.Production_Date) & "/" & year(Me.Production_Date) & "#"
End If

Seems to have worked! Thanks