0
私はユーザーがレコードを下にカーソルを置くためのキーダウンフォームイベントを持っています。これはうまくいく。Keydownイベントは未使用のキーをコントロールと共有しません
また、そのレコードのフィールドを編集できるようにしたいと思います。それは動作しません。
私はKeyPreviewのフォームプロパティは、フォームが根底にある制御と、未使用のキーを共有することを可能にするだろうと思っていたが、すべてのキーを吸うように見えるが、彼らは任意のコントロールには使用できませんので、入力された
があります私が必要とするものを達成するための方法?キーストロークを渡すために
KeyCode = 0
:ここ
はコード
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift And acAltMask) = 0 And (Shift And acShiftMask) = 0 And (Shift And acCtrlMask) = 0 Then
Select Case KeyCode
Case vbKeyDown
If CurrentRecord <> RecordsetClone.RecordCount Then
DoCmd.GoToRecord , , acNext
Else
'Do nothing
End If
Case vbKeyUp
If CurrentRecord <> 1 Then
DoCmd.GoToRecord , , acPrevious
Else
'Do nothing
End If
End Select
End If
KeyCode = 0
End Sub
私たちがあなたに助けてもらうためにコードを共有してください(あなたが遭遇したエラーも含めて)。 –
ここに私のコードがあります - もし私がそれを有効にしても、私のコントロールは動作しません(つまり、テキストを受け入れます) 'Private Sub Form_KeyDown(KeyCode As Integer、Shift As Integer) ' If(Shift And acAltMask)= 0そして(Shift And acShiftMask )= 0、(ShiftキーとacCtrlMask)= 0次に 'のSelect CaseたKeyCode ' ケースvbKeyDown 'の場合CurrentRecord <> RecordsetClone.RecordCountその後 ' DoCmd.GoToRecord、acNext 'エルス ' '何もしない ' 末端 '終了の場合 '終了を選択 '終了の場合 ' KeyCode = 0 '終了サブ – Charlie
申し訳ありません - 含む方法がわかりません私のコメントのコードは – Charlie