No.1ベストアンサー
- 回答日時:
こんな感じでどうでしょう?
まず、フォームを作成し、コマンドボタンを1個配置します
コマンドボタンのイベントプロシージャに下記コードを記して下さい
※参照設定で、「MS DAO3.5」を設定して下さい
'~~~~~~~~~~~~~~~~~~~~
Private Sub コマンド0_Click()
Dim DB As DAO.Database
Dim DOC As DAO.Document
Dim stMsg As String
'削除確認
stMsg = "すべてのフォームを削除しますか?"
If MsgBox(stMsg, vbQuestion + vbYesNo) = vbNo Then Exit Sub
'カレントデータベース設定
Set DB = CurrentDb
'登録されているフォームの数だけループ
For Each DOC In DB.Containers!Forms.Documents
'(自分以外の)
If DOC.Name <> Me.Name Then
'フォームオブジェクトの削除
DoCmd.DeleteObject acForm, DOC.Name
End If
Next
'データベース変数解放
Set DB = Nothing
End Sub
'~~~~~~~~~~~~~~~~~~~~
コマンドボタンを押下すると削除確認が表示され、「はい」を選択するとすべてのフォームは削除されます
ただし、自分自身のフォームは残ってしまいますが...(^_^;)
御期待に添えれば・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- その他(Microsoft Office) エクセル VBAについて 2 2022/09/21 22:21
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
- Visual Basic(VBA) Excel VBA シートを追加後に余分なシートを削除する、の意味 21 2022/05/19 22:46
- Access(アクセス) AccessVBAで任意の複数リンクテーブルをAccessVBAを動かす際に削除したいと考えておりま 1 2022/11/17 15:45
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォームで入力しても反映されない
Access(アクセス)
-
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
-
4
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
5
「RunSQL」と「Execute」の違い
Access(アクセス)
-
6
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSのフォームからデータの...
-
アクセスのフォームのビューが...
-
選択したチェックボックスのみ...
-
access レコードソースを選択...
-
ADOでRecordsetオブジェクトを...
-
Accessフォームのテキストボッ...
-
アクセス:フォームを閉じずに...
-
他フォームのチェックボックス...
-
オートシェイプのような作図入...
-
アクセスでの項目追加について...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
アクセスのフォームで連結コン...
-
Access フォーム上でコンボボッ...
-
アクセスでテーブルの変更内容...
-
「メソッドまたはデータメンバ...
-
ACCESSでのテキストボックスの...
-
Accessが不良です
-
Accessのフォーム画面について
-
Accessのフォーム画面でスクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフォーム上にレコード...
-
ACCESSのフォームからデータの...
-
アクセスのフォームのビューが...
-
選択したチェックボックスのみ...
-
Accessフォームのテキストボッ...
-
アクセスでテーブルの変更内容...
-
accessの自動更新処理をできな...
-
Access 別フォームへの再クエ...
-
ACCESSで入力フォームをHTMLフ...
-
「メソッドまたはデータメンバ...
-
アクセス 0以外をカウントす...
-
Access2002 フォームを閉じるた...
-
ADOでRecordsetオブジェクトを...
-
Access:yesの時は画像を表示、...
-
ACCESSで、フォームのレコード...
-
Accessのフォームで作業領域を...
-
アクセスでの項目追加について...
-
帳票フォームに全レコードを表...
-
ACCESSフォームでのレコード数...
-
ACCESS フォームの値がすぐに...
おすすめ情報