Private Sub Nama_KeyDown(KeyCode As Integer, Shift As Integer)
'If the field is not flagged for editing, prompt the user
'for confirmation about unlocking the control.
If fEditNama = False Then
If MsgBox("Do you want to change the Nama for this property?", _
vbYesNo + vbQuestion + vbDefaultButton2, _
"Please Confirm:") = vbYes Then

'If the response is Yes, unlock the field
'and flag it as being edited.
Me!Nama.Locked = False
fEditPropertyNama = True
End If
End If
End Sub