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

huanghai

'使用键盘上下方向键来移动连续窗体记录
'实现和数据表同样的功能

Private Sub 客户ID_KeyDown(KeyCode As Integer, Shift As Integer)
    Call myMoveRecord(KeyCode, Shift, Me.客户ID)
End Sub

Public Function myMoveRecord(KeyCode As Integer, Shift As Integer, ctl As Control)

On Error GoTo err

Debug.Print KeyCode

Select Case KeyCode
Case 38
    DoCmd.GoToRecord , , acPrevious
Case 40
    DoCmd.GoToRecord , , acNext
End Select

ctl.SetFocus

Exit Function

err:
    If err.Number <> 2105 Then
        MsgBox err.Number & err.Description
    End If
   
End Function

huanghai

WTM1

谢谢！1

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

huanghai

道是没有想到这个问题，不过可以使用判断解决吧

Roadbeg

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