Question

我在Microsoft访问中有一个表单。应该有一个名为Renew的按钮。当我单击按钮时，子窗体的一个字段应该偶然到今天的日期。我创建了表单和按钮 - ＆gt;在From operations中选择了Apply filter，并且 - ＆gt; Property Sheet - ＆gt; Event - ＆gt; Microsoft Visual Basic：

Private Sub cmd_renew_Click()
Dim strSQL As String
strSQL = "UPDATE tbl_Borrowing SET DateBorrowed = Date()"
DoCmd.SetWarnings (False)
DoCmd.RunSQL strSQL
DoCmd.SetWarnings (True)
End Sub

它不起作用，我不知道我的逻辑是否正确。它无法识别DateBorrowed。我是以我的形式完成的，而不是子形式。

Answer 1

请改用此代码：

Private Sub cmd_renew_Click()
     Me!SubFormControlName.Form!DateBorrowed = Date()
end Sub

将SubFormControlName替换为表单中子表单控件的实际名称。
如果您将文本框放在主窗体上，请删除子窗体部分vrom code：

Me!DateBorrowed = Date()

更改字段的按钮

1 个答案: