ms-access - 如何使用 VBA 从输入框中添加日期以填充所选 Access 表中的整个列

Question

我想知道如何使用输入框添加日期（dd.mm.yyyy），以使用 VBA 填充所选 Access 表中的整个列。就像这里：

将 12.07.2018 插入输入框

BNAME|CH_DATE
sdjfj|12.07.2018
sdjdf|12.07.2018

谢谢！

标签： ms-accessvba

Answer 1

尝试这样的事情：

Dim sDate as String
sDate = InputBox("What is the date?")
Rem Here add code to make sure sDate is in expected format "dd.mm.yyyy"
DoCmd.RunSql "UPDATE [MyTableName] SET CH_DATE=#" & Mid(sDate,4,2) & "/" & Left(sDate,2) & "/" Right(sDate,4) & "#"