HOME > 即効テクニック > AccessVBA > データ操作 > テーブルを複製する（CopyObjectメソッド）

即効テクニック
データ操作

テーブルを複製する（CopyObjectメソッド）

(Access)
●概要●
Applicationオブジェクトに含まれるDoCmdオブジェクトを使うと、さまざまな動作を行わせることができます。

●詳細●
簡単な例では、テーブル全体をバックアップしたりする場合、DoCmdオブジェクトに含まれるCopyObjectメソッドを使用します。
以下のサンプルは、"社員"テーブルを"社員バックアップ"テーブルとして複製します。

●サンプルプログラム1●

Sub Sample()
    Application.DoCmd.CopyObject , "社員バックアップ", acTable, "社員"
End Sub

さらに一歩進んで、"社員"テーブルをタイムスタンプ付きで複製する場合は、以下のサンプルになります。

●サンプルプログラム2●
Sub CopyOBJ_TimeStamp()
    Dim strDate As String
    strDate = Format(Now, "_yymmdd_hhmmss")
    Application.DoCmd.CopyObject , "社員" & strDate, acTable, "社員"
End Sub
ビジネス統計スペシャリスト VBAエキスパート