いつもお世話になっております。
質問させてください。m(_ _)m
Accessで、サブフォームのあるフォームを作成すると、同一フォーム内のフィールド移動は「Enter」で動きますが、フォーム間の移動は「Ctrl+tab」になります。
画面に表示されているフィールド間全部を(サブフォームであってもなくても関係なく)「Enter」キーのみで移動していく方法はありますか?
あればその方法を教えてください。
移動順序も変えられたらありがたいです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
> 移動順序も変えられたらありがたいです。
タブ移動順のことでしたら、プロパティシートで指定できます。
1)フォームをデザインビューで開く
(Access2000以降ならフォームビューでも可)
2)右クリックメニューなどでプロパティシートを開く
3)コントロールのどれかを選択
4)「その他」タブの「タブ移動順」にカーソルを移動させ、右端に表示される
「...」をクリック
5)「タブオーダー」ダイアログが表示されるので、クリック&ドラッグで各コント
ロールの移動順序を編集(詳細/ヘッダ/フッタでそれぞれ別なので注意)
6)「OK」をクリックして「タブオーダー」ダイアログを閉じる
7)フォームを保存
・・・以上です。
(上記の方法ではなく、数字自体を編集すると変な結果になることがあるので
注意して下さい)
------------------------------
> 画面に表示されているフィールド間全部を(サブフォームであってもなくても
> 関係なく)「Enter」キーのみで移動していく方法はありますか?
残念ながら、私の知っている範囲では、その方法は用意されていません。
なので、自作するしかありません。
で、自作するにしても、
A)FunctionまたはSubとして用意して使い回し
B)フォーム毎に個別でコード作成
の2通りの対応がありますが、「A」の方法は色々と考えなければならないことが
多すぎて、かなり厳しいです。
(例えば、ヘッダ/フッタの有無、レコード移動の可否(連結/非連結フォームの
切り分け)、新規レコードの表示の有無(メインフォームに戻るのは最後の
レコードの時か新規レコードの時か)・・・等を判定するコードが必要)
なので、当面はフォーム個別で対応されることをお薦めします。
方法の一例としては・・・メインフォーム・サブフォームにフォーカスを飛ばすための
コントロールを設置する、という方法があります。
例えばフォームの構成が
メインフォーム;フォーム名=MF
TB1,TB2(テキストボックス),SF1(サブフォーム),Cmd1,Cmd2(コマンドボタン)
サブフォーム;フォーム名=SF (SF1のソースオブジェクト)
Tx1,Tx2,Tx3(テキストボックス)
だったとします。
メインフォームに「Prv」「Nxt」、サブフォームに「Rtn」「Ext」というコントロール
(例えばオプションボタン等)を設置し、それぞれのタブ移動順を、
メインフォーム ; TB1→TB2→Prv→SF1→Nxt→Cmd1→Cmd2
サブフォーム ; Rtn→Tx1→Tx2→Tx3→Ext
となるように設定します。
そうしたら、メインフォームの「Prv」「Nxt」の「フォーカス取得後」イベントに
以下のコードを記述します;
Private Sub Prv_GotFocus() '「→」「Tab」キー等で移動時
On Error GoTo エラー処理
'サブフォームの先頭レコードに移動
SF1.SetFocus
With SF1.Form
!Tx1.SetFocus
DoCmd.GoToRecord , , acFirst
End With
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Prv"
Resume 終了処理
End Sub
Private Sub Nxt_GotFocus() '「←」「Shift+Tab」等で移動時
On Error GoTo エラー処理
'サブフォームの新規レコードに移動
SF1.SetFocus
With SF1.Form
!Tx3.SetFocus
DoCmd.GoToRecord , , acNewRec
End With
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Nxt"
Resume 終了処理
End Sub
次に、サブフォームの「Rtn」「Ext」の「フォーカス取得後」イベント;
Private Sub Ext_GotFocus() '「→」「Tab」キー等で移動時
On Error GoTo エラー処理
'新規レコードの場合はメインフォームに戻る
If Me.NewRecord Then
Tx3.SetFocus
Me.Parent!Cmd1.SetFocus
Else
Tx1.SetFocus
DoCmd.GoToRecord , , acNext
End If
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Ext"
Resume 終了処理
End Sub
Private Sub Rtn_GotFocus() '「←」「Shift+Tab」等で移動時
On Error GoTo エラー処理
'先頭レコードの場合はメインフォームに戻る
If Me.CurrentRecord = 1 Then
Tx1.SetFocus
Me.Parent!TB2.SetFocus
Else
Tx3.SetFocus
DoCmd.GoToRecord , , acPrevious
End If
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Rtn"
Resume 終了処理
End Sub
さらに、サブフォームの「開くとき」イベント;
Private Sub Form_Open(Cancel As Integer)
On Error GoTo エラー処理
Tx1.SetFocus
終了処理:
Exit Sub
エラー処理:
MsgBox Err & ":" & Error$, , Me.Name & " Open"
Resume 終了処理
End Sub
・・・以上です。
なお、「Rtn」等のコントロールはクリックした場合も同じ動作をするので、
他のコントロールと重ねた上で、メニューで「書式(O)→最背面に移動(K)」
として、ユーザーの目から隠しておくことをお薦めします。
お礼が遅くなりまして、大変失礼致しました。
非常に丁寧なご回答、本当にありがとうございました。
少し難しそうですが、挑戦してみたいと思います。
不明な点がありましたら、補足させていただくかもしれませんので、まだ質問は締め切りませんが・・・
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
Access2010 Enterで次テキストへ移動
その他(Microsoft Office)
-
ACCESSのサブフォームからメインフォームへの移動
Access(アクセス)
-
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
6
Accessフォームのテキストボックス内改行無効の方法
その他(データベース)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
サブフォームの切り替え方を教えてください
その他(データベース)
-
9
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
10
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
11
ACCESSフォーム入力後の確定
Access(アクセス)
-
12
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
-
13
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
14
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
15
どこにもフォーカスを当てたくない
Access(アクセス)
-
16
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
17
商品番号を入力すると、商品名フィールドに自動で名前が出てくるようにしたいのですが・・・
その他(データベース)
-
18
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
19
Accessのサブフォームから値を参照する方法について
その他(データベース)
-
20
Accessのフォームでタブの色
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access サブフォームでの選択行...
-
サブフォームが見えなくなる。
-
Access2000、これはいったい・...
-
access サブフォームにリストを...
-
Access 複数フォームを...
-
Access2000 サブフォームのReco...
-
(ACCESS)条件に応じて、テキ...
-
サブフォームのデータを保存す...
-
アクセスでサブフォームのレコ...
-
Accessで、サブフォームのある...
-
ACCSESS2013VBA フォームのレコ...
-
Access VBA acCmdSelectRec...
-
Access レイアウト変更したサブ...
-
Access 検索フォーム
-
アクセスで サブフォームの表...
-
アクセス2003 - レコード追...
-
【ACCESS2000】 サブフォーム...
-
ACCESS 削除 サブフォーム ta...
-
Accessで、一覧からクリックし...
-
accessについて教えてください。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access サブフォームでの選択行...
-
Access2000、これはいったい・...
-
Access 複数フォームを...
-
ACCSESS2013VBA フォームのレコ...
-
(ACCESS)条件に応じて、テキ...
-
サブフォームが見えなくなる。
-
サブフォームでのダブルクリッ...
-
Access2000 サブフォームのReco...
-
Accessのサブフォームから値を...
-
AccessのFormのみをスクリーン...
-
googleフォームでインストール...
-
access サブフォームにリストを...
-
2回目に画面のレコードセットの...
-
レコードセットで得た結果をサ...
-
サブフォームのデータを保存す...
-
AccessのDoCmd.ApplyFilterの使...
-
Access VBA acCmdSelectRec...
-
アクセスでサブフォームのレコ...
-
アクセスで サブフォームの表...
-
Accessのサブフォーム内で連続...
おすすめ情報