将Excel日期时间输入宏转换为Access按钮事件可行性咨询

完全可以把这个Excel宏的功能迁移到Access里，毕竟Office套件共用VBA语言，只是对象模型略有差异，调整一下代码就能搞定。下面是具体的实现步骤：

准备工作 #

假设你已经在Access表单上添加了触发按钮（比如和Excel里同名的Command74），并且有一个需要填充日期时间的控件（比如文本框或绑定到表字段的控件，这里我假设控件名为txtDateTime，你可以换成自己实际的控件名称）。

编写VBA代码 #

1. 打开表单的设计视图，右键点击按钮，选择「事件生成器」（或者直接双击按钮），打开VBA代码编辑器。
2. 替换或写入以下代码：

Private Sub Command74_Click()
    On Error Resume Next
    ' 替换成你实际的日期时间控件名称
    Me.txtDateTime.Value = Format(Date, "dd/mm/yyyy") & " " & Format(Time, "hh:mm")
End Sub

代码说明与优化建议 #

• Me代表当前打开的表单，直接引用控件比Excel里的ActiveField更可靠，因为Access里不需要依赖“当前选中字段”的状态，明确指定控件避免出错。
• 如果你的控件是绑定到数据表的日期/时间类型字段，其实可以简化代码：

  Private Sub Command74_Click()
      On Error Resume Next
      Me.txtDateTime.Value = Now()
  End Sub
  

  这样直接用Now()函数返回当前日期+时间，Access会自动处理存储格式。如果需要固定显示成dd/mm/yyyy hh:mm的样式，不用改代码，直接在控件的「格式」属性里设置即可，这样数据存储是标准的日期类型，显示也符合要求。

最后检查 #

确保按钮的「单击」事件已经关联到这个过程：在设计视图里选中按钮，打开属性窗口的「事件」选项卡，「单击」项应该显示「[事件过程]」，点击后面的三个点就能确认代码是否正确关联。

内容的提问来源于stack exchange，提问作者MB9