アクセス リンク先バックアップテーブルが重複しない
お世話になっております。
アクセスで、リンクさせたテーブルを
リンク先でバックアップをとっています。
Dim athDB As DAO.Database
Dim tdfSet As DAO.TableDef
Dim strLinkDB As String
Set athDB = CurrentDb
Set tdfSet = athDB.TableDefs("T_サンプル")
strLinkDB = Mid(tdfSet.Connect, 11)
Debug.Print strLinkDB
Set tdfSet = Nothing
Set dbDB = Nothing
'------------------------------------
Dim appAccess As Access.Application
Dim BKname As String
Set appAccess = CreateObject("Access.Application")
With appAccess
.OpenCurrentDatabase strLinkDB
.DoCmd.TransferDatabase acImport, "Microsoft Access", _
strLinkDB, acTable, "T_サンプル", "BK_サンプル_" & Format(Date, "yymmdd")
.Quit
End With
Set appAccess = Nothing
立ち上げ時に上記を実行して
リンクテーブル(T_サンプル）を、リンク先でバックアップをとる処理を設定していますが、
これだと立ち上げる度にバックアップテーブルができてしまいます。
同じテーブル名がある場合は、この処理をしない・・・としたいのですが
どのように設定すると良いのでしょうか？
ご教示のほど よろしくお願いします。
