Access VBA, copy current value to new record

[stu999]

Hi, I am trying to copy some selected values from the current record to a new record, if it is a numeric field it copies fine, but if it is a text field it gives me an error. I don't want to set up default values in the original table as I am creating a document revision system where they click a button to create the new revision based on the previous one.
Code is

Me.Dieblock.DefaultValue = Me.Dieblock.Value

Trying to copy a text field value gives me this in the new record; #Name?

Thanks

 

[pooratlas]

Stu
What about something like OnEnter SendKeys "^""" '( ctrl + single quote ) - sometimes called 'ditto' ?

 

[stu999]

Hi, Thanks for the suggestion, I will have a look at that option, but i got it working by declaring a variable then passing it to the record after the new record was opened.

strDie = [Dieblock]
DoCmd.GoToRecord , , acNewRec
Me.Dieblock.Value = strDie