我在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/