[源码]用键盘上下方向键移动连续窗体记录

Roadbeg

看我的方法.
不过,这两种方法都有一个问题,就是不能应用于组合框.
因为:如果组合框的下拉列表已打开,此时按上下箭头照理应该是在列表中移动而不是在记录间移动.但此方法没有判断列表已打开的语句.
但,如何判断列表已打开呢?
请教各位高手!

Private Sub MoveRec(KeyCode As Integer, Optional Shift As Integer = 0)
On Error GoTo Doerr
   
'    AltDown = Shift And acAltMask > 0
   
    If Shift = 0 Then
        Select Case KeyCode
            Case vbKeyUp
                Me.Recordset.MovePrevious
            Case vbKeyDown                                  '取消自动添加
                If Me.Recordset.EOF Then
                    Me.Recordset.AddNew
                    Me.Recordset.MoveNext
                    txtPN.SetFocus
                Else
                    Me.Recordset.MoveNext
                End If
        End Select
    End If
   
    Exit Sub
   
Doerr:
End Sub

Roadbeg

还在的问题是,不知如何判断列表已打开.
我试了 ComboBox 的所有属性,结果是: 无法判断!!!