2017-10-16 4 views
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 
+0

私たちがあなたに助けてもらうためにコードを共有してください(あなたが遭遇したエラーも含めて)。 –

+0

ここに私のコードがあります - もし私がそれを有効にしても、私のコントロールは動作しません(つまり、テキストを受け入れます) '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

+0

申し訳ありません - 含む方法がわかりません私のコメントのコードは – Charlie

答えて

1

は、この行を削除しています。

関連する問題