テーブルを編集可能な状態で開く |
|
'テーブル"社員マスタ"を編集可能な状態で開きます
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
|