Это для текущей формы:
If (mytoggle Is Me.ActiveControl) Then
Это для текущего Access.Application:
If (mytoggle Is Screen.ActiveControl) Then
Будьте осторожны, если управление не имеет фокуса, * .ActiveControl может не существует.