Clear/Replace Default Value On GotFocus/LostFocus

I have a table with three fields that have a default value set ("Please Provide"). I have controls for these fields on a form, and procedures for the GotFocus and LostFocus events.

GotFocus:
Code:Private Sub cpuSerial_GotFocus()If Me.cpuSerial.Value = Me.cpuSerial.DefaultValue ThenMe.cpuSerial.Value = ""End IfEnd Sub

LostFocus:
Code:Private Sub cpuSerial_LostFocus()If IsEmpty(Me.cpuSerial.Value) = True ThenMe.cpuSerial.Value = Me.cpuSerial.DefaultValueEnd IfEnd Sub

The intention here is to clear the default value when the user clicks into the field, but replace the default value if the field is empty when the user leaves - not altering the control contents at all if the user entered his own data. The end result is that there aren't records where this field is empty - it is either a user-entered value, or the default value.

My VB is not great - but this seems like a fairly rudimentary thing to accomplish, and what I have SHOULD work. But if that were the case, I wouldn't be writing this.

I suspect I might be misusing the DefaultValue property, or maybe the "Please Provide" default value property is better set on the form rather than in the table...