Form vba allow edit

Question

Hello,

I have a continuous form with the below vba and it helps protect records from accidental modifications and deletions. All is good however I recently added a floating field to the Form header called "SearchField" so that I can use it in a parameter query but because of the below vba it won't let me type anything into the "SearchField". How can I modify the below to allow me to type in the "SearchField" and also keep my records in the continuous form safe?

Private Sub Form_Current()

Me.AllowEdits = IsNull(Me.[Locked On])

Me.AllowDeletions = IsNull(Me.[Locked On])

End Sub

Your help is greatly appreciated.

Iram/mcp

Answer 1

You can use the Enter and Exit events of the textbox:

Private Sub SearchField_Enter()

    Me.AllowEdits = True

End Sub

Private Sub SearchField_Exit(Cancel As Integer)

    Me.AllowEdits = False

End Sub