Private Sub Оценка_KeyDown(KeyCode As Integer, Shift As Integer)
On Error GoTo Err_Оценка_KeyDown
Select Case KeyCode
Case Is = 40
KeyCode = 0
DoCmd.GoToRecord acDataForm, Me.Name, acNext
Case Is = 38
KeyCode = 0
DoCmd.GoToRecord acDataForm, Me.Name, acPrevious
End Select
Exit_Sub:
Exit Sub
Err_Оценка_KeyDown:
Select Case Err.Number
Case 2105
Resume Exit_Sub
Case Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ")", vbInformation, "Оценка_KeyDown"
End Select
End Sub
|