Question

access数据库记录日期到现实日期时,提示.怎么办

我有一个access数据库，其中字段为日期。想在现实日期时，数据库自动提醒

Answer 1

Function CheckTodayTask()
dim intI as integer
intI=dcount("ID","数据表名","日期字段名=#" & date "#")
if intI>0 then msgbox "" & intI & ""
end function
数据表名，日期字段名，ID字段名等请自行调整。
启动时提示：
如果有启动窗体，可以把这个示例的CheckTodayTask函数放在窗体的加载事件中。
否则，可以建一个AutoExec宏，用runcode方法调用这个函数。
窗体打开时提示：把这个示例的CheckTodayTask函数放在窗体的加载事件中。