How to copy data from a field on a form to same field in new form?

[Jeff Karli]

What I am trying to do is to , while in the current form, copy data from a field in the current record and paste it into the same field on the same form of a new record. This code below works in one database but it does not work in my current Db. I get the following error running the code below.

Run time error '438':
"Object doesn't support this property or method"

Private Sub Template_Click()
 
Const cQuote = """"
 
Me!Project_Record_ID.DefaultValue = cQuote & Me!Project_Record_ID & cQuote
 
DoCmd.GoToRecord , , acNewRec
 
DoCmd.RunCommand acCmdSaveRecord       
 
End Sub
 

[ADezii]

Const cQuote = """"
Dim ctl As Control
 
Set ctl = Me![Project_Record_ID]
 
ctl.DefaultValue = cQuote & Me![Project_Record_ID] & cQuote
 
DoCmd.RunCommand acCmdSaveRecord
 
DoCmd.GoToRecord , , acNewRec

[Jeff Karli]

Thanks again ADezii!

I changed to your suggested code and I now get the following error:
error 13 - Type mismatch

...on line 'Set ctl = Me![Project_Record_ID]'

Any idea why?

[ADezii]

No idea, since the Code is perfectly valid. Try Plan B:

Const cQuote = """"
 
Me![Project_Record_ID].DefaultValue = cQuote & Me![Project_Record_ID] & cQuote
 
DoCmd.RunCommand acCmdSaveRecord
 
DoCmd.GoToRecord , , acNewRec