Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9445 / 9994

←次へ　｜　前へ→


	【3688】Re:ﾃﾞｰﾀベースオブジェクトの削除方法

山田 - 04/10/13(水) 13:01 -


	引用なし

	パスワード

▼Gin_II さん：
>>For Each ～ Next を用いたフォーム、レポート、マクロ、モジュールの
>>削除方法をご教授ください。宜しくお願いします。
>
>マクロの取得方法はよく分かりません。
>ので、システムテーブルを参照する方法を。
>
>SELECT Swith(MsysObjects.Type=1,"Table",
>　　　　　　 MsysObjects.Type=4,"Link_Table",
>　　　　　　 MsysObjects.Type=5,"Query",
>　　　　　　 MsysObjects.Type=6,"Link_Table",
>　　　　　　 MsysObjects.Type=-32761,"Module",
>　　　　　　 MsysObjects.Type=-32764,"Report",
>　　　　　　 MsysObjects.Type=-32766,"Macro",
>　　　　　　 MsysObjects.Type=-32768,"Form"),
>　　　 MsysObjects.Name
>FROM MsysObjects
>WHERE Left$([Name],1)<>"~"
>ORDER BY MsysObjects.Type, MsysObjects.Name;
>
>上記を、クエリのSQLビューで貼り付けてみてください。

実行しましたが、
「構文エラー、演算子がありませんと出ます。」
ところで、この方法でIF文を用いて、選択した以外の全ての
オブジェクトを削除できるのでしょうか？

2,042 hits

▼

【3668】ﾃﾞｰﾀベースオブジェクトの削除方法 山田 04/10/10(日) 0:59