- ベストアンサー
アクセス vba
コマンドボタンをクリックしたら「現在開いている全てのクエリを保存して閉じる」というコードを書きたいのですがどうすればいいでしょうか？ 1つ場合でも10つクエリが開いてる場合でも出来るようになりたいです。 よろしくお願い致します。
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こういう感じでしょうか Sub QueryAllClose() Dim Q As DAO.QueryDef For Each Q In CurrentDb().QueryDefs DoCmd.Close acQuery, Q.Name Next End Sub DAOは普段使わないのでうろ覚えですが、とりあえずこちらの環境では動作が確認できました。
関連するQ&A
- (Access)VBA デバックの仕方について
スレッド違いかもしれませんが、プログラムの事なのでこちらに質問させて頂きます。 （アクセス）フォームに作成した【ボタン】にクリック時イベントをVBAコードで記入しました。 Private Sub コマンド0_Click() MsgBox "a" End Sub ・コンパイルして上書き保存。 ・実行時エラーがないか、F５ボタン（sub ユーザーフォームの実行） すると、マクロをクリック時イベントに貼り付けた訳でもないのに、【マクロボックス】が表示されて、デバックできません。 【質問】 (1)そもそも上記のようなコードの場合、デバックするにはわざわざフォームに戻って、コマンド0をクリックしてチェックしないといけないのでしょうか？ (2)また、F５ですぐにプログラムが実行される時と、マクロボックスが表示される場合と有りますが、どのいう時にそれぞれのパターンに分かれていくのでしょうか？ VBAまだまだ初心者なので、かなり混乱しています。 どなたか、ぜひ、ご指南よろしくお願いします。
- ベストアンサー
- Visual Basic
- ＡＣＣＥＳＳ ＶＢＡで別のプロシージャを呼びだした後
いつもお世話になります。 ＡＣＣＥＳＳ ＶＢＡで、別のプロシージャを呼びだし、 フォームを開き、あるコマンドボタンをクリックすると、 もとに戻ってくるようにしたいのですが、 call で別のプロシージャを呼びだし、フォームを開くところまではうまくいくのですが、コマンドボタンをクリックする前に戻ってきてしまいます。 コマンドボタンにはイベントプロシージャを設定しているのですが、 それではダメなんですよね？ どのようなコードになるのでしょうか？よろしくお願いします。
- 締切済み
- オフィス系ソフト
- アクセスVBAのエラーについて
フォームを閉じるためにフォームにボタンを置いて、イベントプロシージャに下記のように書き込みました。すると添付画像のエラーが返ってきてマクロが動きません。 Private Sub コマンド103_Click() On Error GoTo Err_コマンド103_Click DoCmd.Close Exit_コマンド103_Click: Exit Sub Err_コマンド103_Click: MsgBox Err.Description Resume Exit_コマンド103_Click End Sub で、「ファイル-オプション-現在のデータベース」の”フォームの表示”を問題のフォームに切り替えたら問題なく動作します。 つまり”フォームの表示”で選んだフォームでしかコマンドボタンのマクロが動きません。全てのフォームでマクロが動くにはどうしたらよいのでしょうか？
- 締切済み
- Access（アクセス）
- アクセスVBAでエクセルを操作するのは不可能でしょうか？
アクセスVBAでエクセルを操作するのは不可能でしょうか？ テスト.xlsのシート１の１行目コピーして テーブルに追加するということがしたいのですがどういうコードを書けばいいのか分かりません。 テスト.xlsは開いている状態です。 アクセス側のユーザーフォーム上のコマンドボタンをクリックしたらこの動作を実行するコード。。。 というのは不可能でしょうか？よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- Accessのフォームについて
データ１、データ２というテーブルがあり データ２の中身を データ１に追加するという 「追加クエリ」を作りました。 それで、この「追加クエリ」を フォームのボタンをクリックしたときに実行させるようにしたいのですが どのようにすればいいのでしょうか。 （ボタンクリックで作成した「追加クエリ」自体を実行させることができるのか、 それとも追加クエリと同じ動作をさせるコードを記述して更新するようにしないとダメなのか） Accessを始めたばかりであまり詳しくないので 申し訳ないのですが ボタンクリックで作成した「追加クエリ」を実行出きるというのであれば（前者） コードとその説明を簡単でいいので 教えていただけないでしょうか。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- VBA シートの削除について
VBAのコードの書き方について質問があります。 コマンドボタンをクリックした時、シート１～シート４を削除をしたいのですが、 シート１～シート４が存在するかはその時の状況で異なります。 シート１が存在し、シート２～４が存在しないのであればシート１だけ削除する場合もあれば シート１～シート４がすべて無い場合もあります。 いずれのケースにしてもボタンクリック後は”シートを削除しました”のメッセージを 表示させたいのですが、どうコードを書けばよいでしょうか？ VBA初心者なのでコードを教えていただけると助かります。 よろしくお願いします！
- ベストアンサー
- その他MS Office製品
- アクセス サブフォームの使い方
フォームにテキストボックスとコマンドボタンサブフォームが１つづつありま す。 やりたいことは、テキストボックスに入力した条件でコマンドボタンを押すと サブフォームに結果が表示されるというものです。 ID 分類 名称 1 花 バラ 2 花 ユリ 3 昆虫 カブトムシ とテーブルがあった場合、 テキストボックスに 花 を入力すると サブフォームに バラとユリが 表示されるというものです。（実際にはフィールド数はもっとあります。） コマンドボタンにクエリの実行を登録し、サブフォームはクエリをベースに作 成しました。 コマンドボタンをクリックするとクエリの結果が表示され（当たり前ですね） サブフォームは白紙のままです。 ファームのデザインビューをクリックし、再度フォームを表示すると結果は反 映されます。 この、クエリの結果を表示せず、かつサブフォームに結果を表示させる方法を 教えてください。
- 締切済み
- オフィス系ソフト
- Access2010エクスポートしたい
Microsoft Access2010 選択クエリデータをEXCEL2010にエクスポートしたいMicrosoft Access2010は高齢者で初心者なので分かりやすい表現で教えて下さい、フォーム上にコマンドボタンを設置しています、コマンドボタンクリック時、EXCEL2010 sheet1 A4を起点にエクスポートしたい 宜しくお願い致します。
- ベストアンサー
- その他(データベース)
- アクセス97のＶＢＡでパラメータを指定する方法
いつもたいへんお世話になっております。 アクセス97で、フォームを複数作りました。フォーム1、フォーム2、フォーム3。 それぞれのフォームのコマンドボタンでフォーム4を呼び出します。 フォーム4のレコードソースにクエリを使用しますが（クエリ1）、 このクエリにの抽出条件に、最初のフォームのコントロールの値（部門）を設定したいのですが、抽出条件に、「FORMS!フォーム1!部門」とすると、同じクエリを他のフォームには使えませんよね？パラメータを作成して、それぞれのフォームのコマンドボタンのなかで指定できてしまえば、クエリ1と、フォーム4を共有できますよね。現在は、それぞれのフォームに対応するフォーム4とクエリ1を作成しています。なんとかなりませんか？ 説明が難しくなってきちゃった・・・ ・・・パラメータの入力要求をＶＢＡで処理したいのですが、いい方法を教えてください。
- ベストアンサー
- オフィス系ソフト
- 名を付けて保存のコード（エクセルＶＢＡ）
セルＡ１に書いてある文字をそのままファイル名にして保存させるコードの記述方法を教えて下さい。 例） Ａ１に 「’００１」を入力しておき、シート上に配置してあるコマンドボタンをクリックすることで、「００１．ｘｌｓ」と名を付けて、あらかじめ決めてある、ディレクトリに保存 エクセル９７を使用しています。上書き保存とか、予めコード内にファイル名を書いておく方法は分かったのですが、セルを参照させる方法が分かりません！ どなたか詳しい方、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
お礼
ご回答ありがとうございます。