column data not found message keeps poping up in Access

Question

Hello I got work around for Micrsoft Hotkey CTRL Apostrophe which Insert the data from the same field in the previous record CTRL+' . I put this code in the AfterUpdate of the text boxes and combo boxes of a subform.

for String

Private Sub Event_Name_AfterUpdate()
If Not IsNull(Me.Event_Name.Value) Then
Event_Name.DefaultValue = """" & Me.Event_Name.Value & """"
End If
End Sub


for datetime


Private Sub YourDateControlName_AfterUpdate()
If Not IsNull(Me.YourDateControlName.Value) Then
YourDateControlName.DefaultValue ="#" & Me.YourDateControlName & "#"
End If
End Sub


I put this on the second subform but when add a record, I get a message sayig colum data unavailabe and I'm not sure why. can anyone help pls