スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
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