ms access vba唯一表命名方法datestamp

Question

我想使创建的表名唯一，可以通过在表名中使用hh：mm：ss来使宏一次又一次地播放，而不会告诉我“表名已存在”。

查询分为两部分。一种用于创建表，另一种用于刷新访问数据对象以使新表可见。

  Sub SelectIntoX()

    Dim dbs As Database
       Set dbs = CurrentDb

    ' Part 1 Select all records in the scheme table
    ' and copy them into a new table
    dbs.Execute "SELECT * INTO " _
        & Format(Date, "yymmdd") & "_Scheme" & " FROM dbo_scheme;"

         'Part 2 refresh Access data objects to see new table appear
     DBEngine(0)(0).TableDefs.Refresh
     DoCmd.SelectObject acTable, Format(Date, "yymmdd") & "_Scheme", True

End Sub

我遇到的问题是yymmdd不是唯一的，我每天都在大量运行它。

我也尝试过这个hhmmss，但是它只会加零。

Answer 1

这应该是一个不错的选择：

Format(Now(), "yyyymmddhhmmss")