Afterupdate DefaultValue not working

[Steven19]

To Save time I have:



Private Sub VatNumber_AfterUpdate()Me.VatNumber.DefaultValue = """" & Me.VatNumber.Value & """"
End Sub

This is in the Afterupdate of the control VatNumber

So when I click the button on the page:
Private Sub btnReviewVat_Click()
DoCmd.GoToRecord , , acNewRec
End Sub

I expect the field VatNumber to have the same value as the previous record so that I may adapt the associated fields accordingly.

This is all my code, but its not working, any ideas of what is stopping the new record from pulling the data through from the old record?

[June7]

Code works for me.

What does 'not working' mean - error message, wrong result, nothing happens?

[orange]

Agree with June -- need some context.

I expect the field VatNumber to have the same value as the previous record

Please explain why you think this.

[Welshgasman]

If you do not update VATnumber, that event does not run I believe?
Have you set a breakpoint and walked though your code?

[Steven19]

Hi June
For me nothing happens.
Regards

[June7]

Respond to gasman's post. Have you actually typed an entry in the control and committed the input with Enter or Tab to trigger the event?

[Missinglinq]

Assuming that the posted code

Private Sub VatNumber_AfterUpdate()Me.VatNumber.DefaultValue = """" & Me.VatNumber.Value & """"
End Sub

is the result of your not formatting your post using the code tags (# on the bar at the top) and actually reads

Private Sub VatNumber_AfterUpdate()
  Me.VatNumber.DefaultValue = """" & Me.VatNumber.Value & """"
End Sub

there's no reason that this shouldn't work...with the caveat that it will only work until you either enter a new VatNumber, or Close the Form.

Entering a VatNumber...then Closing the Form...and then coming back at a later time to go to a New Record, will not bring the desired Default Value from the last Record entered.

You can, however, brings this number forward, after closing then re-opening the Form, by using a standard shortcut of entering the Control then hitting <Ctrl> + <">.

Linq ;0)>