Don't know if you copied your code into the eMail or retyped it.
I think you retyped it due to the lower case on dim, me, and
activeControl.name

Not that this is your problem.

Might try keeping your names the same:

dim mvCtrl as control
mvControl = me.activeControl.name

If mvCtrl.value .....

SHOULD READ:

dim mvCtrl as control
mvCtrl = me.activeControl.name

If mvCtrl.value .....