vba - 访问表单复选框以更新另一个表中的日期
问题描述
我正在尝试使表单复选框更新另一个表中的日期。
Private Sub Delivered_AfterUpdate()
If Delivered = -1 Then
[tool implentation].[date] = Now()
End Sub
我[tool implentation].[date] = Now()
在线上遇到错误。
我想在任何时候单击复选框(选中和取消选中)更新日期。
解决方案
我假设您的表格也是此处表单的记录集。如果不是,您将需要确定要编辑表中的哪条记录。
Private Sub Delivered_AfterUpdate()
If Me.Delivered = True Then
With Me.Recordset
.Edit
![ImplementationDate] = Now()
.Update
End With
End If
End Sub
如果你愿意,你可以离开Me.Delivered = -1
,但我发现 True/False 更容易阅读。
我还建议不要命名日期,我不确定它是否真的很重要作为列名,但它既是内置函数又是数据类型。所以我改变了它。
您还应该缩进您的代码,当您获得更多行时,这将是一场噩梦。
推荐阅读
- laravel - Jetstream 和 Fortify 中的 Laravel 本地化路线
- java - Java,对象列表,循环更改值
- javascript - Firebase 推送通知在 yarn watch 中工作,但在 yarn build 中不工作
- python-3.x - 如何检查单个块中的两个条件而不是python中的2个
- java - 用字符串和数字对对象数组进行排序java
- django - Django如何使用ID记录日志页面
- node.js - 想将亚马逊 mws 与我个人网站的库存整合
- svn - sonar QualityGate 应该在 SVN 提交之前检查 - 如何实现这一点?
- amazon-web-services - 如何在 CDK (AWS) 中获取 api 密钥的值
- kubernetes - 仅查看超过 5 天的错误 pod