[源碼]用鍵盤上下方向鍵移動(dòng)連續(xù)窗體記錄

huanghai

'使用鍵盤上下方向鍵來移動(dòng)連續(xù)窗體記錄
'實(shí)現(xiàn)和數(shù)據(jù)表同樣的功能

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

看我的方法.
不過,這兩種方法都有一個(gè)問題,就是不能應(yīng)用于組合框.
因?yàn)?如果組合框的下拉列表已打開,此時(shí)按上下箭頭照理應(yīng)該是在列表中移動(dòng)而不是在記錄間移動(dòng).但此方法沒有判斷列表已打開的語句.
但,如何判斷列表已打開呢?
請(qǐng)教各位高手!

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                                  '取消自動(dòng)添加
                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

道是沒有想到這個(gè)問題，不過可以使用判斷解決吧

Roadbeg

還在的問題是,不知如何判斷列表已打開.
我試了 ComboBox 的所有屬性,結(jié)果是: 無法判斷!!!