更新日期异常

时间:2012-07-24 19:36:52

标签: sql vba ms-access

当我向表单添加一些功能时,它需要我更新行的日期。我的更新查询构建为:

   "update tblReview set tblreview.[reviewDate] = me.currdate WHERE empID = '"& me.empid & "';"

(基本上) 它打印出来是

  "Update tblReview set tblreview.[reviewdate] = 7/24/2012 WHERE empID = '1';"

很酷,这就是我想要的。现在让我们看一下我的数据

 *empId*       *reviewDate*
    1             12/30/1899

什么?为什么这样做?好吧,当然,我应该在我的日期周围加上'#'字符来修复它。但为什么它更新到这个荒谬的价值而不是给我一些错误呢?

2 个答案:

答案 0 :(得分:4)

应该是:

"update tblReview set tblreview.[reviewDate] =#" _
& Format( me.currdate,"yyyy/mm/dd") _
& "# WHERE empID = " & me.empid 

答案 1 :(得分:1)

您尝试将其设置为7除以24除以2012天。

你需要:

"update tblReview set tblreview.[reviewDate] = '" & _
    Format(me.currdate, "yyyy-mm-dd") & "' WHERE empID = " & me.empid & " ;"