如何在ms访问表单上显示上次修改时间

时间:2013-06-29 21:51:26

标签: ms-access

我有一个MS Access(2010)表单,其中包含一堆链接到XLSX文件(都存储在本地)。在主窗体上是一个内置的自动更新功能,它基本上从本地服务器本地复制前端和XLSX文件的任何新版本(每天自动生成)。是否可以从主窗体上的本地XLSX文件添加日期修改/上次写入时间戳?

我试过了:

  1. ="Last Modified: " & DLookUp("[DateUpdate]","MSysObjects","[Name] = '***tablename***'")作为控制源,但这并不能提供我需要的数据。

  2. 我可以通过命令(Get-ItemProperty -Path $source).LastWriteTime.tostring("dd MMM yyyy HH:mm")在powershell中获得所需的结果,但我不知道如何将结果绑定到访问表单中。有什么想法吗?

  3. 值得注意的是:http://msdn.microsoft.com/en-us/library/windows/desktop/ms724926%28v=vs.85%29.aspx(C ++对我来说很陌生,甚至不确定它是否适用于这个问题)

1 个答案:

答案 0 :(得分:0)

FileDateTime

  

返回Variant(Date),指示文件的日期和时间   已创建或上次修改。

Dim dtLast As Date
dtLast = FileDateTime("F:\Documents and Settings\student\Desktop\Book1.xlsx")
Debug.Print dtLast      '29/06/2013 19:46:03

然后,您可以使用Format相应地显示该值,并可能将其设置为Caption的{​​{1}}。

Label

如果您想要访问表的此信息,那么:

Debug.Print Format(dtLast, "ddd dd mmm")    'Sat 29 Jun