我在 Microsoft Access 中有一个表单。
应该有一个名为Renew
的按钮。
当我单击该按钮时,子表单的一个字段应该会变为今天的日期。
我创建了表单和按钮 ->在来自操作
中选择了应用过滤器
,并且 -> 属性表
-> 事件
> -> 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 替换为表单中子表单控件的实际名称。
如果将文本框放在主窗体上,请删除子窗体部分 vrom 代码:
Me!DateBorrowed = Date()
关于mysql - 更改字段的按钮,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/36627136/