Accessでスペースキーを使って関連フォームを開く方法
- Accessでデータシートビューのフィールドをスペースキーで押すと関連フォームが開ける方法について質問があります。
- 以前に会社IDフィールドで試した方法が快適に動作しているため、会社名フィールドでも同様にしたいと思っています。
- マクロを設定しているが、スペースキーでフォームを開けるようにする方法がわかりません。お手数ですが、ご教示いただけますと幸いです。
- ベストアンサー
Access スペースキーでフォームを開きたい
いつも、お世話になっております。 window7, Access2013 データシートビューのあるフィールドをスペースキーで押したら、関連したフォームが開けるようにしたいと思っています。 以前に質問させていただいたケースは、[会社ID] と言う解りやすいフィールドをスペースキーで押したら、会社のフォームが現れるものでそれは Private Sub 会社ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Or KeyCode = 32 Then DoCmd.OpenForm "営業会社", , , "会社ID=" & Me.会社ID KeyCode = 0 End If End Sub と、お教えいただき、快適に動作しています。 今回は、[会社ID]の隣にある[会社名]というフィールドをクリックしたら、[営業記録」のフォームが開けるようになることを切望しています。そのフィールドにはマクロを設定していまして、クリックしたらその[営業記録]のフォームがフォームビューで開けるのですが、スペースキーで開けるようになるとずっと快適にストレス無く作業ができるようになると思っています。 色々、やってみましたが、どれも上手く出来ません。お手数ですが、ご回答くださると助かります。よろしくお願いいたします。
- southbreeze
- お礼率54% (45/83)
- オフィス系ソフト
- 回答数1
- ありがとう数0
- みんなの回答 (1)
- 専門家の回答
質問者が選んだベストアンサー
こんにちは どのように上手く行かないのですか? Private Sub 会社名_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Or KeyCode = 32 Then DoCmd.RunMacro "すでに使用しているマクロ名" KeyCode = 0 End If End Sub 試せないのですが、上手く行っているコードと同じ感じではダメでしょうか?
関連するQ&A
- 【Access】サブフォーム間のカーソル移動がわからなくて困っています。
2つのサブフォームがあり、サブフォーム間のカーソル移動を実現したいのですが、 意図した動作にならず、困っております。 その為、下記の条件を満たす動作をご教示いただける方がいらっしゃいましたら、 ご教示の程、よろしくお願いします。 【条件】 1. Form1_SUBのfield2でEnterキー押下時、同じ行のForm2_SUBのIDに移動したいです (Form1_SUBの1行目のfield2でEnterキー押下時、 Form2_SUBの1行目のIDにカーソルを移動したいです。 下記のソースでは Form2_SUBの最後のカーソル位置があった行のIDに遷移してしまいます)。 2. Form2_SUBのfield2でEnterキー押下時、次の行のForm1_SUBのIDに移動したいです (Form2_SUBの1行目のfield2でEnterキー押下時、 Form1_SUBの2行目のIDにカーソルを移動したいです。 下記のソースでは Form1_SUBの最後のカーソル位置があった行のIDに遷移してしまいます)。 【フォーム名】 親:OYAFORM サブ:Form1_SUB(T1テーブルを連結した帳票フォームです。) サブ:Form2_SUB(T2テーブルを連結した帳票フォームです。) 【テーブル名】 T1(ID, field1, field2) T2(ID, field1, field2) 【F1_SUBのソース】 Private Sub field2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Forms!OYAFORM!Form2_SUB.SetFocus Forms!OYAFORM!Form2_SUB.Form!ID.SetFocus End If End Sub 【F2_SUBのソース】 Private Sub field2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Forms!OYAFORM!Form1_SUB.SetFocus Forms!OYAFORM!Form1_SUB.Form!ID.SetFocus End If End Sub 以上、よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- エクセルBVAのフォーム式のKeyCode~の意味がわかりません
エクセルBVAです Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyDown Then KeyCode = 0 End If End Sub ヘルプをみると キーを押したとき、およびキーを離したときに続いて発生します。KeyDown イベントはキーを押すと発生し、KeyUp イベントはキーを離すと発生します。 キーってenterのことですかね? なら、 If KeyCode = vbKeyDown Then KeyCode = 0 End If で、KeyCodeを0ににするってどういうことでしょうか?
- ベストアンサー
- オフィス系ソフト
- ファンクションキーで命令を実行させたい
よろしくお願いします。 ACCESS2000を使用しています。 ファンクションキーで命令を実行したく、下記のコマンドを書いて実行しましたが動作しません。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Me.メインsub.Form.SetFocus Select Case KeyCode Case vbKeyF5 Me.btn帰社.SetFocus Call btn帰社_Click Case Else KeyCode = 0 End Select End Sub Private Sub Form_Load() Me.KeyPreview = True End Sub フォームプロパティのキーボードイベント取得は「はい」で設定してあります。 2週間位、いろいろやってみましたがうまくいきません。はまっています。回答・ヒントをよろしくお願いします。
- 締切済み
- Visual Basic
- access2003 KeyDown の意味
access2003です。 あるフォームのイベントプロシジャーの中に Private sub btn_×_KeyDown(KeyCode As Integer, Shift As Integer) というのがありました。 この「 KeyDown」というのは、どういう操作が行われたときに実行されるのでしょうか。 「btn_×」というボタンにフォーカスがあるときにEnterキーが押されたときと思って いいのでしょうか。 よろしくお願いします。
- ベストアンサー
- その他MS Office製品
- Access フォームでの並べ替え OrderBy
いつもお世話になっています。 フォームで「製品ID」が昇順に並べ替えられるよう下記のイベントを 設定しましたが、上手くいきません。 Private Sub Form_Open(Cancel As Integer) Me.OrderBy = "製品ID" End Sub お力添えよろしくお願いいたします。
- 締切済み
- その他(データベース)
- 特定のキーを入力すると、visible=falseからtrueになるよ
特定のキーを入力すると、visible=falseからtrueになるようにコーディングしたいのですがうまくいきません。次のようにalt+F12でFrameを表示させたいのですが全く反応しません。何故でしょう。 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF12 If Shift = vbAltMask Then Frame2.Visible = True End If End Select End Sub アドバイス願いますm(_ _)m
- ベストアンサー
- Visual Basic
- ACCESSでフォームのUnloadでデータベースを閉じる様にしたら・・・
ACCESS97でフォームのUnloadを使ってフォームを閉じた後、データベースも閉じるプログラムを作って実行させました。思った通りに動いたのですが、フォームをデザインビューにしようとすると、おそらく上記のプログラムが実行される為、データベースが閉じてしまうので編集できなくなってしまいました。 Pribate Sub cmdClose_Click() DoCmd.Close acForm,Me.Name End Sub -------------------------------- Private Sub Form_Unload(Cancel As Integer) Application.CloseCurrentDatabase End Sub 多分この様なプログラムでした。 解決方法を教えてください。 宜しくお願いします。
- ベストアンサー
- オフィス系ソフト
- Access VBAによるフォームの色変更。
個人での捜索に行き詰ってしまいましたので、ご相談させていただきます。 ○使用環境 WindowsXP Access2007 VBAで色変更する、Accessのフォームについて質問させていただきます。 下記の記述で「フォーム名」というフォームをボタンで開こうとしています。 Private Sub コマンド2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoCmd.OpenForm Form_フォーム名.Name Form_フォーム名.Section(0).BackColor = "12349952" End Sub Private Sub コマンド3_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DoCmd.OpenForm Form_フォーム名.Name Form_フォーム名.Section(0).BackColor = "1643706" End Sub その際、ボタンによって背景色を変更して表示しようとしています。 デザインビューで「フォーム名」のプロパティを変更した直後はボタンの操作で背景色が変わりますが、 一度、「フォーム名」をクローズして、再度ボタンの操作でオープン するときには反映されなくなっています。 もしかしたら、自身の方で何か見落としがあるかもしれませんが、同様の事象をご存知の方がおられましたら、ご指南いただきたいです。 宜しくお願い致します。
- ベストアンサー
- その他MS Office製品
- エクセルフォーム
A列 B列 ... ID 氏名 ... フォームにコンボボックスを使ってIDを選択できるようにしました。で、IDからオートフィルターを使ってデータを表示させるようなものと作りたくて 本を見ながらコードを入力してみましたがエラーがでてしまいます。どこがいけないのでしょうか? Private Sub ComboBox1_click() Dim key As String key = ComboBox1.Text With Sheets("Sheet1").[A1] .AutoFilter Field:=1, Criteria1:=key .AutoFilter End With End Sub
- ベストアンサー
- オフィス系ソフト
- 新規レコードへ移動しない
Access2010を使用しています。 サブフォームからメインフォームの「登録」ボタンプロシージャをCallした時、メイン・サブフォーム共に新規レコードへ移動しなくて困っています。 具体的には、サブフォームにフォーカスがある時に「F12」を押すと画面の入力項目の内容刃そのままでメインフォームの「注文番号」テキストボックスにフォーカスが移動します。 メインフォームにフォーカスがあるか、マウスで「F12」をクリックすると画面の入力項目がクリアされて新規レコードへ移動します。 コードは以下の内容が記述してあります。 ーーーーーサブフォーム----- Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call Me.Parent.Form_KeyDown(KeyCode, Shift) KeyCode = 0 End Select End Sub -----メインフォーム----- Public Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case 123 Call 登録_Click KeyCode = 0 End Select End Sub Private Sub 登録_Click() DoCmd.GoToRecord , , acNewRec Me.注文番号.SetFocus End Sub
- 締切済み
- オフィス系ソフト
補足
ushi2015様 早速、ご回答くださり誠にありがとうございます。現在のイベントブローシャーでは Option Compare Database Private Sub 会社ID_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Or KeyCode = 32 Then DoCmd.OpenForm "営業会社", , , "会社ID=" & Me.会社ID KeyCode = 0 End If End Sub Private Sub 会社名_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Or KeyCode = 32 Then DoCmd.RunMacro "マクロ27" KeyCode = 0 End If End Sub のようになっています。データーシートビュー[会社名]のフィールドをクリックすると、[営業内容確認]のフォームが開けてきますが、スペースキーを押すと、枠の左下に「このレコードセットは更新できません。」とメッセージが出て開けません。 これまで色々やってみましたが、特に "会社ID=" & Me.会社ID を色々変えてみました。 例えば "営業会社_会社ID=" & Me.会社ID とか "会社ID = " & Me.営業会社_会社ID とかですが、基礎知識が無いもので申し訳ございません。 よろしくお願いいたします。