Auto popluate data from one field to another field in the same record

[MHernan1]

Hello all,

Lots of questions today...

I have 2 fields, a "Total' field and a "Submitted" field. The 'Total' field value will never change as it is used for reporting purposes but the 'Submitted' field will be edited as the work is completed but the initial value should be the same as the 'Total' field.

Is there a way to have the data in the 'Total' be set as the default value for the 'Submitted' field?

Thanks!

[JoeM]

How is the data in the "Total" field initially loaded? I am thinking you want some VBA code or Update Query that will copy that value over to the "Submitted" field when it is first populated.
How that is triggered is dependent upon how that Total field is being populated initially (through a Form, import, etc).

[MHernan1]

The 'Total' field will be manually entered via a form...when you say "Update Query", would that be something like a button they could click on the form when initially entering the data in the form that would run the query and update the appropriate field? Sorry, still kind of new to access, just trying to visualize the flow.

[Bob Fitz]

I think that all you need is one line of code in the After Update event of the "Total" textbox. Something like:

Me.OtherTextBox = Me.ActiveControl

[JoeM]

Yep, Bob took this where I was going with it. Only one other thing I would add though. I think you want to check to see if the value in Submitted is Null before you default it. Otherwise, if you enter something so both get populated, and then go back and want to change the Total value, the Submitted amount will change automatically too, even if you do not want it to. To prevent that, your code would look something like:

Private Sub txtTotal_AfterUpdate()
    If IsNull(Me.txtSubmitted) Then
        Me.txtSubmitted = Me.txtTotal
    End If
End Sub

[MHernan1]

You guys rock, thanks so much for the help!

[Bob Fitz]

You guys rock, thanks so much for the help!

You're welcome. Good luck with your project.

[JoeM]

Your welcome, glad we could help!