ms access vba唯一表命名方法日期戳

我想使创建的表名唯一,可能是通过在表名中使用hh:mm:ss,这样,如果一次又一次地播放宏,它就不会告诉我“表名已经存在”。

查询分为两部分。一个用于创建表,另一个用于刷新access数据对象以使新表可见。

  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

我也尝试过这个hhmms,但它只增加了0。