Question

我有一个包含子窗体控件的表单。主窗体中的字段已计算出默认值（1为= Date（），另一个为DLast（））。人们应该能够改变这些字段，但在大多数情况下，默认值是正确的，因此用户可以直接跳到子窗体。子窗体与主窗体中的记录连接，如果用户未触及任何主窗体控件，则无法将记录添加到子窗体。他们被迫重新键入其中一个主表单记录的默认值，以便能够继续。

我的想法是将其添加到主表单模块：

Private Sub Form_Open(Cancel As Integer)
    DoCmd.RunCommand acCmdSaveRecord
End Sub

它应该使用默认值创建一个记录，我应该添加一些东西来询问用户是否想要保存或删除退出表单的更改。但它不起作用。没有创建记录，必须“触摸”默认值才能创建记录。

P.S。将其更改为Form_Load会破坏表单

Answer 1

使用代码将日期写入控件，而不是使用date的默认值。只要控件绑定到字段，这将强制创建记录。

Private Sub Form_Current()
    If Me.NewRecord Then
        Me.ADate = Date
    End If
End Sub

使用默认表单值保存记录

1 个答案: