Vba 命令或动作'；SaveRecord'；isn'；现在没空

使用此代码时：

If Me.BU_DAT_ZAHL < Date Then
    Me.BU_DAT_ZAHL = Date
    Call MsgBox("Zahlungsdatum wurde auf heute gestellt!", vbCritical + vbOKOnly, "Formalprüfung Anweisung")
    DoCmd.RunCommand acCmdSaveRecord
End If

有人知道为什么会抛出这个错误吗？有没有办法找出问题所在

我们已经尝试：

• 使用me设置焦点。setFocus=>无更改

• 通过sql RunSql=>写入冲突更新

尝试设置脏属性：

如果Me.BU_DAT_ZAHL<日期
Me.BU_DAT_ZAHL=日期
我，肮脏=虚假
请致电MsgBox（“Zahlungsdatum wurde auf heute gestellt！”，vbCritical+vbOKOnly，“Formalprüfung Anweisung”）
如果结束

如果该操作也失败，则说明有东西阻止了save操作

作为旁注-小心不要吓到用户。这种情况并不严重，您的代码已经处理好了这种情况，您只想让用户知道：

Call MsgBox("Zahlungsdatum wurde auf heute gestellt.", vbInformation + vbOKOnly, "Formalprüfung Anweisung")

---

这对我很有效（我们也更改了msgbox:-），但我仍然不知道到底是什么问题。“SaveRecord”和“me.dirty”之间有什么区别？DoCmd.Etc调用一个菜单命令，该命令可以依赖于光标位置。

Call MsgBox("Zahlungsdatum wurde auf heute gestellt.", vbInformation + vbOKOnly, "Formalprüfung Anweisung")