レコードを追加する サンプルソース '===テーブル1削除クエリがあったとして====== '警告ダイアログをOFF DoCmd.SetWarnings False 'テーブル1削除クエリを実行する DoCmd.OpenQuery "テーブル1削除" '===テーブル1削除クエリがあったとして====== 'テーブル…

指定したフォルダ内の フォルダ一覧を取得し、 そのフォルダ一覧以下のファイルを取得し、 そのファイルを読み込むサンプルソース 'Folder の一覧を取得する Sub ListUp_FolderList(FolderSpec) Dim Folder_Collection As Object Dim Folder_List As Variant…