- ベストアンサー
DoCmdの意味
- みんなの回答 （1）
- 専門家の回答
関連するQ&A
- 「DoCmd.OpenForm」が実行できない（vbaでフォームを開きたい）
「フォーム1を開く」vbaで行ないたいのですが エラーになってしまいます。 Sub test1() DoCmd.OpenForm , acNormal, フォーム1 End Sub は「変数が定義されていません」と表示され （「変数の宣言を強制する」にチェックを入れています） Sub test2() DoCmd.OpenForm , acNormal, "フォーム1" End Sub は「引数は省略できません」となります。 Sub test1() DoCmd.OpenForm , フォーム1, acNormal End Sub Sub test2() DoCmd.OpenForm , "フォーム1", acNormal End Sub これにしても同じでした。 「OpenForm」をヘルプで調べてみたところ 「expression 」と「FormName」が「 必ず指定します。」でした。 「expression 」がないからだめなのでしょうか？ すいません、助けてください。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 現在アクティブになっているオブジェクトを取得
現在アクティブになっているオブジェクトを取得する方法は？アクセスです Sub マクロ() DoCmd.MoveSize 0, 0 End Sub でフォームの位置を指定できますが、 現在アクティブになって言えるオブジェクトに対して行われますよね。 例えばデータベースウインドウを選択した後に実行すれば データベースウインドウに対して行われますよね。 そこで現在アクティブなオブジェクト名を取得したいのですがそのようなコードはありますか？ DoCmdをウォッチ式に追加して観察しましたが 現在アクティブなオブジェクト名は表示されませんでした。 DoCmd.SelectObjectacForm,フォーム1 でアクティブにできる事はしっています。ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- DoCmd.Echo False
アクセスvbaで DoCmd.Echo False とした場合、どうなりますか？ 画面が固まるのでしょうか？ DoCmd.Echo False の使いどころがいまいちわからないのですが、 どういう時にDoCmd.Echo Falseとすればいいのでしょうか？
- ベストアンサー
- その他MS Office製品
- アクセス DoCmd.Minimize
DoCmd.Minimizeで小さくしたフォームを元に戻したいのですが Sub 元に戻す() DoCmd.OpenForm "フォーム３" End Sub でいいのでしょうか？ 一応上記のコードで元のサイズに戻りますが 元に戻したいのに、再度OpenForm する事に 抵抗というか疑問に思っています。 よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでアクセスの更新クエリを実行
エクセルVBAでアクセスの更新クエリを実行する方法はありますか？ アクセスもエクセルも常に起動している状態です。 エクセルからアクセスの更新クエリを実行するコードを教えてください。 アクセスで実行するとしたら Sub test1() DoCmd.OpenQuery "更新クエリ" End Sub というコードになります。 できれば、ADODBを使ったやり方がいいのですが、 エクセルからアクセスのプロシージャーのtest1を呼ぶしかないのでしょうか？
- 締切済み
- Excel（エクセル）
- ＶＢＡ「レポートを開く、なおかつ印刷はしない」
アクセス２００７です。 レポート1を作って保存し閉じました。 標準モジュールに Sub test() DoCmd.OpenReport "レポート1", acViewNormal End Sub と記載して実行したら、レポートが印刷されてしまいます。 私は開きたいだけなので、 ＶＢＡで「レポートを開く、なおかつ印刷はしない」と言うコードををしえてください。 ご回答よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- サブフォームの新規レコードに移動したい アクセス
親フォームのコマンドボタンをクリックしたら 親フォームにはまっているサブフォームの新規レコードに移動したいのですが、 うまくできません。 サブフォームのオブジェクト名は、"F_SubForm"です。 サブフォームはデータシートビューです。 VBAコードは Private Sub cmd_test_Click() DoCmd.SelectObject acForm, "F_SubForm" DoCmd.GoToRecord , , acNewRec End Sub です。 上記コードを実行すると DoCmd.SelectObject acForm, "F_SubForm" の部分で、 「実行時エラー 2489 オブジェクトが開いていません。」 となります。 だからと言って、 DoCmd.GoToRecord , , acNewRec だと、何も起こりません。（新規レコードに移動しません） 解決方法をご教授ください。
- ベストアンサー
- オフィス系ソフト
- 標準モジュールだとエラーになる理由を教えてください
アクセスのフォームの上にコマンドボタンを一つ設置して、 クリックイベントで Private Sub コマンド0_Click() DoCmd.Close acForm, Me.Name End Sub とすれば、自身のフォームが閉じます。 しかし、 Private Sub コマンド0_Click() Call test End Sub と、 標準モジュール Option Compare Database Option Explicit Sub test() DoCmd.Close acForm, Form_フォーム1 End Sub にすると、 実行時エラー2498 指定した式は、 いずれか の引数とデータ型が対応していません。 になります。 行ってる意味は同じだと思うのですが、 なぜエラーになるのか教えていただけますか？ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- データベースウィンドウを表示しない
Sub データベースウィンドウを表示する() DoCmd.SelectObject acForm, "", True End Sub は問題なく動くのですが Sub データベースウィンドウを表示しない() DoCmd.SelectObject acForm, "", False End Sub は 「実行時エラー'2493' このアクションを実行するには[オブジェクト名]引数が必要です。 」 というエラーになります。 Sub データベースウィンドウを表示しない2() DoCmd.SelectObject acForm, "データベースウィンドウ", False End Sub でも駄目でした。 アドバイス宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Access2007 サブフォームでのフィルタ方法（DoCmd.ApplyFilter）
お世話になっております。 フォームAに検索ボックスを作り、検索ボタンを押すと下記のようにフィルタをかけています。 Private Sub 検索_Click() DoCmd.ApplyFilter , "(分類名 Like '*" & Me.検索語 & "*')" End Sub このフォームAをフォームBのサブフォームとして使いたいのですが、そこで検索を実行すると”実行時エラー2491”が出てフィルタができません。 （フォームAとフォームB間のリンクはありません） 他の方法でもいいのですが、サブフォームでフィルタを実行したいと思います。 ご教授いただければ幸いです。よろしくお願いいたします。
- ベストアンサー
- その他(データベース)
お礼
写真まで添付してくださってありがたいです。 参考になりました。