Коллеги!
При пошаговом выполнении в редакторе-работает
Иначе нет-в чем может быть проблема?
(естессно перехват-ДА)

Private Sub Form_KeyPress(KeyAscii As Integer)
If Me.ActiveControl.Name Like "ctl*" Then
   If KeyAscii = 1085 Or KeyAscii = 1076 Then
        Me.ActiveControl = Chrw(KeyAscii)
    Else
        Me.ActiveControl = ""
    End If
End If
End Sub

http://www.sql.ru/forum/1277219/rabota-procedury