４章 カスタマイズ ／４-3フォーム

上下矢印キーをレコード移動キーに変更[Access97]

レコードを一覧で表示するフォーム（帳票フォーム）では、上下矢印キーをレコード移動キーに設定されていたほうが便利な場合があります。上下矢印キーをレコード移動キーに変更する方法を述べます。Sora［V0405］以降のバージョンでは標準機能のため、下記設定は不要です。

［キークリック時］イベント

＜操作手順＞
Soraフォームの［キークリック時］イベントに下記の内容を追加します。
    Dim cntAct As Control
    Select Case KeyCode
    Case vbKeyUp    '上矢印：前検索
        On Error Resume Next
        Set cntAct = Screen.ActiveControl
        DoCmd.RunCommand acCmdRecordsGoToPrevious
        cntAct.SetFocus
        Set cntAct = Nothing
        KeyCode = 0  '既存の処理をしない
        Exit Sub
    Case vbKeyDown  '下矢印：次検索
        On Error Resume Next
        If Not Me.NewRecord Then '新規以外
            Set cntAct = Screen.ActiveControl
            DoCmd.RunCommand acCmdRecordsGoToNext
            cntAct.SetFocus
            Set cntAct = Nothing
            KeyCode = 0  '既存の処理をしない
        End If
        Exit Sub
    End Select