ms-access - 无法在具有新记录的 Access 表单中设置字段值

Question

当我打开我的 Access 表单 ActivityTracker 以获取新记录时，我希望它使用当前时间 now() 自动填充字段 *start_time*。

Private Sub Form_Open(Cancel As Integer)
    If IsNull(Form_ActivityEntry.Start_time) And IsNull(Form_ActivityEntry.id) Then
        Form_ActivityEntry.Start_time = Now()
    End If
End Sub

这会引发错误“您无法为该对象赋值”并停止执行。

我可以通过显式转到新记录来修复错误

Private Sub Form_Open(Cancel As Integer)
    If IsNull(Form_ActivityEntry.Start_time) And IsNull(Form_ActivityEntry.id) Then
        DoCmd.RunCommand acCmdRecordsGoToNew
        Form_ActivityEntry.Start_time = Now()
    End If
End Sub

或通过

Private Sub Form_Open(Cancel As Integer)
    If IsNull(Form_ActivityEntry.Start_time) And IsNull(Form_ActivityEntry.id) Then
        Me.Recordset.AddNew
        Form_ActivityEntry.Start_time = Now()
    End If
End Sub

但其中任何一个都会导致弹出警告，“您无法转到指定的记录。”

我试图用这个来抑制警告

    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.SetWarnings True

或者通过设置错误处理，

    On Error GoTo Err_SomeName

但我仍然收到警告。

AllowAdditions 设置为 True。记录集类型是动态集。

否则，此表单一切正常。

我做错了什么？是否有一个名为“打开新记录”而不是“打开表格”的事件？

感谢您的帮助!

Answer 1

这里的问题仍然是没有人正确回答为什么发布的代码不起作用。

原因是您正在使用打开事件。

与 .net 不同，大多数系统 Access 都有一个很棒的设计，当您打开表单事件(可以取消)和加载事件时，您会发生两个事件。

Access 的这一出色设计意味着测试条件和防止表单加载的代码可以放在打开事件中。如果你仔细看，你会看到打开甚至有一个取消。如果您设置 cancel = true，则表单将不会加载，也不会显示。

因此，您可以测试无数据、用户权限或其他任何内容，然后取消表单加载。如果您可以取消表单加载，那么允许修改绑定(bind)控件的值就没有意义了——因为所有绑定(bind)控件都是只读的。

您不得在打开事件中更改 BOUND 控件的值。这太快了，是产品的设计和意图造成的。

因此，防止表单加载的条件测试在打开时进行。

这表明变量的设置、控件的设置、控件的设置值和您的基本表单启动代码属于 ON-LOAD 事件。打开太早了。

当然，如果您的代码要取消表单加载，那么您的所有表单启动和设置代码不应该也不需要运行是合乎逻辑的。

总结

开启事件:

可以设置cancel = true此处的代码用于测试您是否希望阻止表单加载和被用户看到。

加载事件:

所有启动代码、变量设置、控件设置等现在都被推荐并成为可能。

并且 Access 中的这种简单设计还意味着，作为开发人员，您现在知道在何处查找将阻止和取消表单加载的代码。当然，如果没有对差异的基本理解以及为什么 Access 中存在两个事件，那么张贴者和给出的答案的混淆就会变得显而易见。