goo blog サービス終了のお知らせ 

Excel Access VBA と スマホに一眼レンズ と 一眼カメラ

ExcelAccessのVBAの覚書とスマホに一眼レンズをつけて写真を撮ってみました 一眼カメラの写真もあります

フォームでキーボードの上下キーでレコードを移動します

2018-06-08 09:28:52 | AccessVbaの備忘録

フォームのプロパティでキーボードイベンの取得を はい にします

キークリック時のイベントプロシージャ―に下記の構文を貼り付けます

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

' 先頭、最後尾のレコードでこれを操作すると、エラー番号2105が発生します この、エラーを無視
On Error GoTo Err001

If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious '前レコードへ
If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext '次レコードへ
Exit Sub
Err001:
'エラー番号2105を無視します
If Err.Number = 2105 Then
Resume Next
Else
MsgBox Err.Number & vbNewLine & _
Err.Description & vbNewLine & _
"予期せぬエラーが発生しました"
End
End If

End Sub


目次へ

別のフォームのレコードを検索 DoCmd.FindRecord

2017-06-23 15:28:18 | AccessVbaの備忘録
Forms!フォーム名1.SetFocus '検索対象フォーム
DoCmd.FindRecord Forms!フォーム名2!フィールド名1, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名
DoCmd.FindRecord Forms!フォーム名2!フィールド名2, acAnywhere, , acSearchAll, , acAll '検索条件があるフォーム名とフィールド名 

フォーム名1とフォーム名2の検索対象のフィールド名は一致していなければなりません

絞り込みではありません

目次へ