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

smilingkiss

我在日期字段的“更新前”事件加了判断，避免跨年输入日期出错，因为我平时输入日期，是没有输入年份的（主要是懒），直接输入“月-日”，到了一月份的时候，登记去年12月份的单据时，就有可能输入了今年12月份的日期了，所以我在“更新前”事件中判断这个日期是否有这样的错误，如果发现有这个错误，就把年份更正过来，代码如下：
me.日期=dateadd("yyyy",-1,me.日期)
但是调试就出错了，溢出错误，提示我不能对该字段在“更新前”这样赋值

盗梦

首先，要确保 me.日期 是正确日期格式。其次，dateadd里面的第一个参数"y"一个就够

admin

你可用 msgbox 或debug.print
先显示 me.日期  的内容是什么
应该就可查到原因了

smilingkiss

盗梦 发表于 2015-1-12 10:30
首先，要确保 me.日期 是正确日期格式。其次，dateadd里面的第一个参数"y"一个就够

盗梦兄，日期格式没错的，而且我试过，dateadd里面的参数，只一个“y”是不行的，反正我的格式没错，用msgbox检验过了，现在提示的是：
运行时错误 ‘-2147352567（80020009）’：
为这个字段的beforeupdate 或 validationrule 属性设置的宏或函数将阻止 数据库 在字段中保存数据。

盗梦

你可显示一下 修改的日期是什么内容
明显是生成后的日期格式不对呢

todaynew

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

smilingkiss

todaynew 发表于 2015-1-12 16:37
转换一下数据类型即可。
me.日期.value=dateadd("yyyy",-1,cdate(me.日期.value))

不是这个原因啦，我调试过，用以下语句
me.日期=date
依然提示这样的错误，关键是对字段本身不能通过更新前对该字段赋值，请各位大哥在帮帮忙

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

smilingkiss

todaynew 发表于 2015-1-13 08:59
与更新前事件没求关系，在按钮的单击事件中写：

dim ssql as string

版主，我之前的设计是这样的：直接在该字段的“更新前”事件写下代码：
   If Me.日期 > DateAdd("m", 3, Date) Then                      '防止跨年录入的时候输错日期
      MsgBox "日期大于当天3个月，请核对输入日期", vbOKOnly, "提示框"
      Me.日期.Undo
      Cancel = -1
      Exit Sub
   End If
这样子的话，我只要填错日期，就会undo，让我重新输入，现在我是想能否在这个“更新前”的事件中更改一下语句，让它可以自动帮我纠正，但是只要在“日期”字段（不是什么按钮）的“更新前”事件中，只要重新赋值给“日期”字段，就会提示出错

todaynew

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

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