求助：如何通过vba修改当前字段

todaynew

转换一下数据类型即可。
me.日期.value=dateadd("yyyy",-1,cdate(me.日期.value))

todaynew

smilingkiss 发表于 2015-1-12 21:42
不是这个原因啦，我调试过，用以下语句
me.日期=date
依然提示这样的错误，关键是对字段本身不能通过更 ...

与更新前事件没求关系，在按钮的单击事件中写：

dim ssql as string
dim d as date
d=cdate(me.日期.value)
if abs(DateDiff("m",d,date))>3 then
    d=dateadd("yyyy",-1,d)
end if
'd用于ssql语句
ssql="..."
currentdb.execute ssql

todaynew

smilingkiss 发表于 2015-1-14 14:15
版主，我之前的设计是这样的：直接在该字段的“更新前”事件写下代码：
   If Me.日期 > DateAdd("m", 3 ...

何必如此啰嗦呢？将校验功能要么放在有效性规则中，或者并入按钮事件中不是更简洁吗？