我有一个事后更新事件,其中输入的文本框中的值必须放到另一个文本框中。最初,只要第二个文本框为空,此操作即可。但是,当我试图更改第一个文本框中的数据时,会出现错误80020009。
Valdate
当将日期输入valdate时,afterupdate甚至触发并将该日期设置为actiondate,减去两天。
这部分起作用了。
但是,当填充了actiondate并更改了Valdate时,就会得到错误80020009。
我在几个论坛上找到了一些信息,并在此基础上尝试设置valdate的格式,并尝试对valdate进行Dim。我可能做错了,但两个人都不适合我。
我使用的代码是:
Private Sub ValDate_AfterUpdate()
Me.Actiondate = Me.Actiondate & ([ValDate] - 2)
End Sub
我想要的是,每当我更改文本框1中的日期时,该日期减去2天将被输入或覆盖文本框2。
发布于 2019-09-26 08:50:40
使用DateAdd
Private Sub ValDate_AfterUpdate()
If IsNull(Me!ValDate) Then
Me!Actiondate = Null
Else
Me!Actiondate = DateAdd("d", -2, Me!ValDate)
End If
End Sub
https://stackoverflow.com/questions/58112747
复制相似问题