关于日期的更新

eyewitnes

要实现寻找第一个空记录自动填写当前日期，如所有记录都非空则更改最后一个记录为当前日期

dim i as interge, tmp, sqlstr as string

i=1

do while i<6

tmp= " xxx " & i  '''窗体上的控件，如日期1，日期2，日期3......与源记录表的字段名相同

if isnull(" xxx " & i) or i <5 then

sqlstr = " update 表 set ' " & tmp & " ' = " & date & " where (条件)"

docmd.runsql sqlstr

i=1

exit do

else

  if i = 5 then

  sqlstr = " update 表 set ' " & tmp & " ' = " & date & " where (条件)"

  docmd.runsql sqlstr

  i=1

  exit do

  end if

i=i+1

loop



为什么日期总是不对，填来填去都是1905年xx月xx日？？？