#1 テーブル/クエリー系

ここで使われるメソッド/アクション
  • OpenTable/テーブルを開く
  • OpenQuery/クエリを開く
  • RunSQL/SQLの実行
  • SetWarnings/メッセージの設定
  • OutputTo/出力
  • TransferDatabase/データベース変換
  • TransferSpreadsheet/ワークシート変換
  • TransferText/テキスト変換

テーブルを編集可能な状態で開く

'テーブル"社員マスタ"を編集可能な状態で開きます
DoCmd.OpenTable "社員マスタ"

テーブルを追加専用で開く

'テーブル"社員マスタ"を追加専用で開きます
DoCmd.OpenTable "社員マスタ", , acAdd

テーブルを読み取り専用で開く

'テーブル"社員マスタ"を読み取り専用で開きます
DoCmd.OpenTable "社員マスタ", , acReadOnly

テーブルをデザインビューで開く

'テーブル"社員マスタ"をデザインビューで開きます
DoCmd.OpenTable "社員マスタ", acViewDesign

テーブルを印刷プレビューで開く

'テーブル"社員マスタ"を印刷プレビューで開きます
DoCmd.OpenTable "社員マスタ", acViewPreview

選択クエリーを編集可能な状態で開く

'選択クエリー"qsel社員マスタ"を編集可能な状態で開きます
DoCmd.OpenQuery "qsel社員マスタ"

選択クエリーを追加専用で開く

'選択クエリー"qsel社員マスタ"を追加専用で開きます
DoCmd.OpenQuery "qsel社員マスタ", , acAdd

選択クエリーを読み取り専用で開く

'選択クエリー"qsel社員マスタ"を読み取り専用で開きます
DoCmd.OpenQuery "qsel社員マスタ", , acReadOnly

選択クエリーをデザインビューで開く

'選択クエリー"qsel社員マスタ"をデザインビューで開きます
DoCmd.OpenQuery "qsel社員マスタ", acViewDesign

選択クエリーを印刷プレビューで開く

'選択クエリー"qsel社員マスタ"を印刷プレビューで開きます
DoCmd.OpenQuery "qsel社員マスタ", acViewPreview

追加クエリーを実行する

'追加クエリー"qapp社員マスタ"を実行します
DoCmd.OpenQuery "qapp社員マスタ"

削除クエリーを実行する

'削除クエリー"qdel社員マスタ"を実行します
DoCmd.OpenQuery "qdel社員マスタ"

テーブル作成クエリーを実行する

'テーブル作成クエリー"qmak社員マスタ"を実行します
DoCmd.OpenQuery "qmak社員マスタ"

更新クエリーを実行する

'更新クエリー"qupd社員マスタ"を実行します
DoCmd.OpenQuery "qupd社員マスタ"

アクションクエリーをSQLで実行する(トランザクション使用)

'テーブル"社員マスタ"の全レコードをSQLで削除します
DoCmd.RunSQL "DELETE * FROM 社員マスタ"

アクションクエリーをSQLで実行する(トランザクション不使用)

'テーブル"社員マスタ"の全レコードをSQLで削除します
DoCmd.RunSQL "DELETE * FROM 社員マスタ", False

アクションクエリー実行時などのシステムメッセージを表示しない

DoCmd.SetWarnings False

アクションクエリー実行時などのシステムメッセージを表示する

DoCmd.SetWarnings True

テーブルをRTFファイルに出力する

'テーブル"社員マスタ"を"社員.rtf"に出力します
DoCmd.OutputTo acOutputTable, "社員マスタ", acFormatRTF, "c:\My Documents\社員.rtf"

テーブルをテキストファイルに出力する

'テーブル"社員マスタ"を"社員txt"に出力します
DoCmd.OutputTo acOutputTable, "社員マスタ", acFormatTXT, "c:\My Documents\社員.txt"

テーブルをRTFファイルに出力してWordで開く

'テーブル"社員マスタ"を"社員.rtf"に出力して、すぐにWordで開きます
DoCmd.OutputTo acOutputTable, "社員マスタ", acFormatRTF, "c:\My Documents\社員.rtf", True

選択クエリーをExcelファイルに出力してExcelで開く

'選択クエリー"qsel社員マスタ"を"社員.xls"に出力して、すぐにExcelで開きます
DoCmd.OutputTo acOutputQuery, "qsel社員マスタ", acFormatXLS, "c:\My Documents\社員.xls", True

フォームのデータをHTMLファイルに出力してブラウザで開く

'フォーム"frm社員マスタ"に表示されているデータを"社員.htm"に出力して、すぐにブラウザで開きます
DoCmd.OutputTo acOutputForm, "frm社員マスタ", acFormatHTML, "c:\My Documents\社員.htm", True

レポートのプレビューイメージを出力してスナップショットビューアで開く

'レポート"rpt社員マスタ"のプレビューイメージを"社員.snp"に出力して、すぐにスナップショットビューアで開きます
DoCmd.OutputTo acOutputReport, "rpt社員マスタ", acFormatSNP, "c:\My Documents\社員.snp", True

他のMDBファイルからテーブルをインポートする

'"1999年度.mdb"にあるテーブル"社員マスタ"を"社員マスタ1999"という名前でインポートします
DoCmd.TransferDatabase acImport, "Microsoft Access", "c:\My Documents\1999年度.mdb", , "社員マスタ", "社員マスタ1999"

テーブルを他のMDBファイルにエクスポートする

'テーブル"社員マスタ"を"社員マスタ1999"という名前で"1999年度.mdb"にエクスポートします
DoCmd.TransferDatabase acExport, "Microsoft Access", "c:\My Documents\1999年度.mdb", , "社員マスタ", "社員マスタ1999"

他のMDBファイルのテーブルをリンクする

'"1999年度.mdb"にあるテーブル"社員マスタ"を"社員マスタ1999"という名前でリンクします
DoCmd.TransferDatabase acLink, "Microsoft Access", "c:\My Documents\1999年度.mdb", , "社員マスタ", "社員マスタ1999"

他のMDBファイルからテーブル構造だけをインポートする

'"1999年度.mdb"にあるテーブル"社員マスタ"のテーブル構造だけを"社員マスタ1999"という名前でインポートします
DoCmd.TransferDatabase acImport, "Microsoft Access", "c:\My Documents\1999年度.mdb", , "社員マスタ", "社員マスタ1999", True

Excelファイルをインポートする(ワークシートの先頭行がフィールド名でない場合)

'"社員.xls"(Excel2000,97形式)のデータをテーブル"社員データ"にインポートします
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "社員データ", "c:\My Documents\社員.xls"

Excelファイルをインポートする(ワークシートの先頭行がフィールド名の場合)

'"社員.xls"(Excel2000,97形式)のデータをテーブル"社員データ"にインポートします
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "社員データ", "c:\My Documents\社員.xls", True

Excelファイルの指定領域だけをインポートする

'"社員.xls"(Excel2000,97形式)のA1:E20の領域のデータだけをテーブル"社員データ"にインポートします
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "社員データ", "c:\My Documents\社員.xls", True, "A1:E20"

テーブルをExcelファイルにエクスポートする

'テーブル"社員マスタ"を"社員.xls"(Excel2000,97形式)にエクスポートします
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "社員マスタ", "c:\My Documents\社員.xls", False

区切り記号付きテキストファイルをインポートする(テキストファイルの先頭行がフィールド名でない場合)

'区切り記号付きテキストファイル"社員2000.txt"をテーブル"社員マスタ2000"にインポートします
DoCmd.TransferText acImportDelim, "", "社員マスタ2000", "c:\My Documents\社員2000.txt"

区切り記号付きテキストファイルをインポートする(テキストファイルの先頭行がフィールド名の場合)

'区切り記号付きテキストファイル"社員2000.txt"をテーブル"社員マスタ2000"にインポートします
DoCmd.TransferText acImportDelim, "", "社員マスタ2000", "c:\My Documents\社員2000.txt", True

固定長テキストファイルをインポートする

'固定長テキストファイル"社員2000.txt"をテーブル"社員マスタ2000"にインポートします。各フィールドの変換条件として"社員マスタ変換"という定義名を使います。
DoCmd.TransferText acImportFixed, "社員マスタ変換", "社員マスタ2000", "c:\My Documents\社員2000.txt"

HTMLファイルをインポートする

'HTMLファイル"社員2000.htm"をテーブル"社員マスタ2000"にインポートします(HTMLファイルの先頭行がフィールド名の場合)
DoCmd.TransferText acImportHTML, "", "社員マスタ2000", "c:\My Documents\社員2000.htm", True

テーブルを区切り記号付きテキストファイルにエクスポートする(テキストファイルの先頭行にフィールド名を出力しない場合)

'テーブル"社員マスタ2000"を区切り記号付きテキストファイル"社員2000.txt"にエクスポートします
DoCmd.TransferText acExportDelim, "", "社員マスタ2000", "c:\My Documents\社員2000.txt"

テーブルを区切り記号付きテキストファイルにエクスポートする(テキストファイルの先頭行にフィールド名を出力する場合)

'テーブル"社員マスタ2000"を区切り記号付きテキストファイル"社員2000.txt"にエクスポートします
DoCmd.TransferText acExportDelim, "", "社員マスタ2000", "c:\My Documents\社員2000.txt", True

テーブルを固定長テキストファイルにエクスポートする

'テーブル"社員マスタ2000"を固定長テキストファイル"社員2000.txt"にエクスポートします。各フィールドの変換条件として"社員マスタ変換"という定義名を使います
DoCmd.TransferText acExportFixed, "社員マスタ変換", "社員マスタ2000", "c:\My Documents\社員2000.txt"

テーブルをHTMLファイルにエクスポートする

'テーブル"社員マスタ2000"をHTMLファイル"社員2000.htm"にエクスポートします。テキストファイルの先頭行にフィールド名を出力します。
DoCmd.TransferText acExportHTML, "", "社員マスタ2000", "c:\My Documents\社員2000.htm", True



| Index | Prev | Next |

 

Copyright © T'sWare All rights reserved