哪位大虾看一下，日期问题

xwwei

我想通过按钮来实现每天增加日期，但不希望有重复日期，我的语句进行dcount查找但始终为0，结果不断添加相同的日期，谁看一下

mrl

试一下这个:If IsNull(DLookup("日期", "表1", "日期 = #" & Date & "#")) Then

Set rst = CurrentDb().OpenRecordset("表1")

      rst.AddNew

      rst![日期] = Date

      rst.Update

      rst.Close

End If