Microsoft Access 掲示板

　残念ながら禁止は出来ませんでした。禁止選択するんだけどやっぱり駄目だから直ぐにセルに移動しました、という感じです。

データシートビュー

フォームのイベント:マウスボタン解放時。

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X<= 270 Then
SendKeys “{LEFT}”
End If
If X > 270 And Y<= 240 Then
SendKeys “^ “
End If

データシートの利点を禁止したいなら帳票フォームで作ればいいのでは？

私も帳票フォームにすることを推奨しますが、データシートでということなら、下記でどうでしょう。

禁止自体は難しそうなので、マウスアップ時に複数行選択していたら、すぐに1行選択にするというコードです。

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Me.SelHeight > 1 Then
        DoCmd.RunCommand acCmdSelectRecord
    End If
End Sub

まことにありがとうございます。
マウスアップによる対応でうまくいけました。

再度申し訳ありません。
もう１点助言いただけないでしょうか。
「Shitft＋矢印キーでの範囲選択も防止しさせたい」のですが、これはどこのどの条件とすればよいのでしょうか

データシートはサブフォームになっているため、
アドバイス頂いたマウスアップ同様、サブフォームのキークリック時を追加し、
シフトを入力対象から除外すれば行けるのではとも考えたのですが、
そもそもキークリックイベントが発生してくれず、頓挫しました。

どうかよろしくお願いいたします。

サブフォームのフィールドそれぞれに、キー解放時

Private Sub ほにゃらら_KeyUp(KeyCode As Integer, Shift As Integer)
If (Shift And acShiftMask) > p Then
Me.ActiveControl.SetFocus
End If
End Sub

>> 5
もしくは、サブフォームのプロパティシートでフォームを選択して、イベントタブのキーボードイベント取得を「いいえ」から「はい」に変更すれば、(サブ)フォームのキー解放時イベントであれこれできるのかも。試してないけど。

フォームの「キーボードイベント取得」を「はい」に設定。
フォームのキークリック時のイベントプロシージャに下記を記述。

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If (Shift And acShiftMask) > 0 Then
        Select Case KeyCode
        Case vbKeyLeft To vbKeyDown
            KeyCode = 0
        End Select
    End If
End Sub