Sub UpDownPress(Optional KeyCode, Optional nShift)
'должны быть VARIANT чтобы IsMissing правильно возвращало'
'не_передачу параметра'
'Вызов из полей без передачи Shift , из полей со списком - с передачей'
'первый вызов из поля со списком - по входу'
Dim intAltDown As Long
'Dim intShiftDown As Long, intCtrlDown As Long'
Static NotOpened As Boolean
On Error Resume Next
    If IsMissing(KeyCode) Then
        'инициализация из On_ENTER в поле со списком'
        NotOpened = True
        Exit Sub
    End If
    ' Определяет нажатую клавишу с помощью поразрядной маски.'
    intAltDown = (nShift And acAltMask) >  0       'acAltMask =4'
    If Not IsMissing(nShift) Then
        If intAltDown Then
            If KeyCode =  40  Then NotOpened = Not NotOpened
            'нажат Alt +вниз - в выпадающих списках список выпадает'
            'нажат Alt +вниз - или закрывается'
            'при первом нажатии - фальш'
        Else
        End If
        If NotOpened Then 'что нить еще?'
        Else
            'открыт, - свою обработку отключаем'
            Exit Sub
        End If
    End If
    'своя обработка'
    If KeyCode =  38  Then DoCmd.GoToRecord , , A_PREVIOUS
    If KeyCode =  40  Then DoCmd.GoToRecord , , A_NEXT
    
End Sub

Private Sub ORNAM_KeyDown(KeyCode As Integer, Shift As Integer)
    UpDownPress KeyCode
End Sub

Private Sub ORPRI_Enter()
    'ORPRI.Dropdown'
    UpDownPress
End Sub

Private Sub ORPRI_KeyDown(KeyCode As Integer, Shift As Integer)
    UpDownPress KeyCode, Shift
End Sub

Sub UpDownPress(Optional KeyCode, Optional nShift)
'должны быть VARIANT чтобы IsMissing правильно возвращало
'не_передачу параметра
'Вызов из полей без передачи Shift , из полей со списком - с передачей
Dim intShiftDown As Long, intAltDown As Long
Dim intCtrlDown As Long
Static NotOpened As Boolean
On Error Resume Next
    If IsMissing(KeyCode) Then
        'инициализация из On_ENTER в поле со списком
        NotOpened = True
        Exit Sub
    End If  
    intAltDown = (nShift And acAltMask) >  0       'acAltMask =4
    If Not IsMissing(nShift) Then
        If intAltDown Then
            If KeyCode = 40 Then NotOpened = Not NotOpened
            'нажат Alt +вниз - в выпадающих списках список выпадает
            'нажат Alt +вниз - или закрывается
            'при первом нажатии - фальш
        Else
            'F4
            If (KeyCode = 115 And nShift = 0) Then NotOpened = Not NotOpened
        End If
        If NotOpened Then 'что нить еще?
        Else
            'открыт, свою обработку отключаем
            If (KeyCode = 27 And nShift = 0) Then
                'эскейп без альт, список раскрыт
                NotOpened = Not NotOpened
            End If
            Exit Sub
        End If
    End If
    'своя обработка
    If KeyCode =  38  Then DoCmd.GoToRecord , , A_PREVIOUS
    If KeyCode =  40  Then DoCmd.GoToRecord , , A_NEXT
    
End Sub