SendKeyで解決できないでしょうか?
こんにちは。どうぞ、よろしくお願いします。
テーブル作成のクエリに関することです。
コマンドボタンのクリック時のイベントに
テーブル作成クエリを指定しています。
其の場合、以下のような確認のダイアログボックスが出ますが、
これを出ないように、出来ないものでしょうか?
(2つのダイアログボックス共に、"Y"を押下します。)
テーブル作成クエリを実行すると、
新しくテーブルが作成されます。
**** 件のレコードが新規テーブルにコピーされます。
--------------
クリック時のイベントに付いてですが、
SendKeyを使ってみましたが、上手く行きませんでした。
SendKeyはアクティブウィンドウについて作用するとのことなので、
フォームを閉じて…、などを考えて、次のような感じでやりました。
DoCmd.Close acForm, "フォーム名"
DoCmd.DeleteObject acTable, "テーブル名"
DoCmd.OpenQuery "作成クエリ", acNormal, acEdit
SendKeys "y", True
SendKeys "y", True
DoCmd.OpenForm "フォーム名"
DoCmd.DeleteObjectは、
テーブルを削除していないと上書きするかどうかを聞いてくるので、
削除しておこうと思い書きました。SendKeyでは、可能に出来ないのでしょうか?
DoCmd.SetWarnings False も少し試しましたが、違うようですし。
それとも、簡単には解決できないようなことでしょうか。どうぞ、お願いします。
お礼
「データベースを閉じる」ではAccessそのものが閉じてしまいました。 しかし、「データベースを閉じる」は「メニューコマンドの実行」が元々のアクションだったので、「データベースを閉じる」以外のリストを見たら「すべて閉じる」コマンドがあり、それを実行したらすべて閉じることができました。