アクセス2007 エラーで中断しなくなってしまいました。
- エラー処理対象外のエラーが原因で、アクセス2007が中断しなくなってしまいました。
- 特定の処理を開始した後にエラーが発生してから中断しなくなりました。
- エラートラップの設定が関係している可能性もありますが、詳細な原因は不明です。
- ベストアンサー
アクセス2007 エラーで中断しなくなってしまいました。
アクセス2007 エラーで中断しなくなってしまいました。 「エラートラップ」は、エラー処理対象外のエラーで中断に設定しています。 思うに If Val(Application.Version) >= 12 Then DoCmd.ShowToolbar "Ribbon", acToolbarYes / No とか Application.CommandBars("Menu Bar").Enabled = True / False CurrentDb.Properties("AllowShortcutMenus") = False /True とかを使い始めてからのような気がします。(関係ないかも知れませんが) エラーで中断できるように戻すには、どのようにしたらよろしいでしょうか？
- situmonnsya
- お礼率70% (374/532)
- その他(データベース)
- 回答数1
- ありがとう数6
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
[ショートカット キーを有効にする] オプション
関連するQ&A
- フォームを開いても真ん中に表示されない
アクセス２００７です。 フォームのプロパティで「自動中央寄せ」を「はい」にして Private Sub Form_Load() DoCmd.RunCommand 10 DoCmd.ShowToolbar "Ribbon", acToolbarNo 'リボンを非表示にする Application.CommandBars("Status Bar").Visible = False 'ステータスバーを非表示にする 'ナビゲーションウィンドウを表示しない DoCmd.SelectObject acForm, "", True DoCmd.RunCommand acCmdWindowHide End Sub をすると、真ん中に表示されません。 ナビゲーションウィンドウ分だけ左に寄ってしまいます。 Private Sub Form_Load() 'ナビゲーションウィンドウを表示しない DoCmd.SelectObject acForm, "", True DoCmd.RunCommand acCmdWindowHide DoCmd.RunCommand 10 DoCmd.ShowToolbar "Ribbon", acToolbarNo 'リボンを非表示にする Application.CommandBars("Status Bar").Visible = False 'ステータスバーを非表示にする End Sub のように順番を前後させても結果は同じです。 真ん中表示だけでなく、アプリケーションを最大化しつつ リボン・ステータスバーを非表示に事は不可能でしょうか？
- ベストアンサー
- オフィス系ソフト
- Access2007のVBAでリボンを常に表示する
普段はリボンを使用しないDBで、レポートが開いたときにだけリボンを表示させています。 その際、リボンが常に開いた状態にしたいのですが、 DoCmd.ShowToolbar "Ribbon", acToolbarYes SendKeys "^{F1}", True この記述だと、レポートを開き直すごとにリボンが閉じたり開いたりします。 常にリボンが開いた状態でレポートを開きたいのですが、 どうすればよいでしょうか？ ちなみにレポートを閉じるときに下記コードでリボンは非表示に戻しています。 DoCmd.ShowToolbar "Ribbon", acToolbarNo
- ベストアンサー
- オフィス系ソフト
- エクセル2003で作成したVBAを2007で使用したい
エクセル2003で下記のようなVBAを作成していました。 作成した物を使用者が印刷設定を変更できないように ブックを開くと同時に印刷ボタンなどを非表示にしていたのですが・・・ 2007でも使用出来るようにしたいと思ったのですが 2007ではこのままではエラーが出てしまうようです。 2007はまったく扱ったことがないのでどのようにすればよいかわかりません。 どなたかご教授いただけたらと思います。 Private Sub Workbook_Open() Application.DisplayStatusBar = False 'ステータスバー非表示 'ブックを開く時ページ設定と印刷を非表示 On Error Resume Next Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("ページ設定(&U)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷(&P)...").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷プレビュー(&V)").Enabled = False Application.CommandBars("Worksheet Menu Bar").Controls("ファイル(&F)") _ .Controls("印刷範囲(&T)").Enabled = False Application.CommandBars("Standard").Enabled = False End Sub
- ベストアンサー
- オフィス系ソフト
- イミディエイドウインドウを使う時は、先頭に？を
イミディエイドウインドウを使う時は、先頭に？を入れなくてはいけないと思ってたのですが、 アクセス（２００７）で、ツールバーの表示・非表示を切り替える時に、 ?DoCmd.ShowToolbar "Ribbon", acToolbarYes とすると、コンパイルエラーになってしまいます。 しかし、 DoCmd.ShowToolbar "Ribbon", acToolbarYes にすると、問題なく実行され、ツールバーが表示されます。 「イミディエイドウインドウを使う時は、先頭にハテナを付けなくてはいけない」 と言うのは私の勘違いだったのでしょうか？ ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- アクセス2003でステータスバーを非表示にするには
２００７なら http://www.relief.jp/itnote/archives/003584.php で出来るようですが アクセス２００３で Application.DisplayStatusBar = False をやっても Application.CommandBars("Status Bar").Visible = False をやってもエラーになります。 2003で非表示にするコマンドを教えてください。
- ベストアンサー
- オフィス系ソフト
- VBAでリボンの表示、非表示の状態を取得したい
エクセル2013です。 以下のコードでリボンを表示、非表示させることができることがわかりました。 表示なら Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" 非表示なら Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 今回の質問は現在、リボンが表示されているのか非表示なのかを所得する方法についてです。 リボンの最小化であれば If xlApp.CommandBars.GetPressedMso("MinimizeRibbon") = True Then で取得出来ますが、表示、非表示の取得の場合はどうなるのでしょうか？
- ベストアンサー
- Excel（エクセル）
- VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効にしようとするとエラーが出ることがある。
お世話になります。 VBA を使用してexcel起動時に 右クリックメニューの行削除や列削除を無効して、下記ＶＢＡを作成しました。 しかしながら、起動時（実行時）に 「実行時エラー 5 プロシージャの呼び出し、または引数が不正です。」が出ることがあります。 でないときもあるのですが、 デバック時にとまるところは、毎回変わり(1)～(5)のどれかで止まります。 使用したい環境はexcel2007,excel2003で正常に動くようにしたいのですが、何卒よろしくお願いします。 *************ソース********************* Private Sub Workbook_Open() InsertEnabled False End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) InsertEnabled True End Sub Private Sub InsertEnabled(flg As Boolean) With Application (1) Application.CommandBars("Worksheet Menu Bar").Controls("挿入(&I)").Enabled = flg (2) Application.CommandBars("Cell").Controls("挿入(&I)...").Enabled = flg (3)Application.CommandBars("Cell").Controls("削除(&D)...").Enabled = flg (4)Application.CommandBars("Row").Controls("挿入(&I)").Enabled = flg (5)Application.CommandBars("Row").Controls("削除(&D)").Enabled = flg .CommandBars.FindControl(, 296).Enabled = flg .CommandBars.FindControl(, 293).Enabled = flg End With End Sub
- ベストアンサー
- オフィス系ソフト
- Access2003のメニューバー非表示について
Application.CommandBars("Menu Bar").Enabled = False のようにするとメニューバーを非表示にすることができると思うのですが、これはだめなのでしょうか？ 私の環境では終了したあと設定は元に戻っていて、問題ないのですが、ある環境では設定が戻らず別のAccessファイルを開いたときにメニューバーが消えたままになってしまうようです。 このコードは記述したAccess内だけで適用されてると思っていたのですが、ちがうのでしょうか？ また、一般的にはメニューバー非表示処理はどのようにするのでしょうか？
- 締切済み
- その他（プログラミング・開発）
- ユーザー設定ツールバーの表示位置
以下のコードでブックに登録したツールバー 「設定１」のみを表示することに成功しましたが なぜかツールバーがシートの下部(シートタブの下)に 表示されてしまいます。 上に移動して保存しても、再度開くと下に表示されます。 上部(もしくは左部)に表示させたい場合はどのようにしたら良いのでしょうか？よろしくお願いします。 For Each MyCommandBar In CommandBars MyCommandBar.Enabled = False Next '数式バーを非表示 'Application.DisplayFormulaBar = False CommandBars("設定１").Enabled = True CommandBars("設定１").Visible = True
- ベストアンサー
- オフィス系ソフト
- エクセル2010をVBAによりリボンの最小化処理
前回、「エクセル2010をマクロによりリボンの最小化処理(QNo.7450319)」により、 Sub macro1() CommandBars.ExecuteMso "MinimizeRibbon" End sub とします。 再度実行すると再表示します。 との回答をいただき早速利用しておりますが、FALSEとTRUEを使い、最小化と再表示を下記の様なコ－ドで出来ないものか、ご教示願います。 (リボンの最小化) Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",FALSE)" (リボンの再表示） Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""RIBBON"",TRUE)"
- 締切済み
- オフィス系ソフト
お礼
なんで「ショートカットキー」とエラーの中断が関係あるのか知りませんが、うまくいきました。 感謝、感謝です。 ありがとうございます。