我在Microsoft Access中有一个表格。
应该有一个名为Renew的按钮。
当我单击按钮时,子表单的一个字段应该是今天的日期。
我创建了表单,并在From operations中的按钮->中选择了Apply filter,然后选择了-> Property Sheet-> Event-> 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
我以自己的形式而不是子形式来做。

最佳答案

请改用以下代码:

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


将SubFormControlName替换为表单中Sub-Form控件的实际名称。
如果将文本框放在主窗体上,请删除子窗体部分的vrom代码:

Me!DateBorrowed = Date()

关于mysql - 更改字段的按钮,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/36627136/

10-13 08:03