The difficult I do immediately, the impossible takes a little bit longer.
You can use this Function to lock/unlock all the *bound* controls on a form. Copy/paste this function into a Module. Remember, do not name the Module the same as the Function.
Lock / Unlock Bound Controls...
Public Function fncLockUnlockControls(frm As Form, LockIt As Boolean)
Private Sub Form_Current()
To call this Function you need a trigger, in the example txtStatusID is used, and then place something like the below in the On_Current event of your form...