[求助]是代码错了吗？

wgf2005

意图：打开本窗体时首先判断数据表”日期“时间与系统时间作对比，如果日期字段值小于系统日期，则关闭窗体同时弹出一个消息框“试用期已到，如果大于系统时间则正常打开本窗体。
代码过程：在本窗体的加载事件中作出判断
　　　判断１、首先判断数据库中是否有”日期“这个数据表
如果有这个表，再判断这个表中的日期是否小于系统日期
如果小于系统日期，那么弹出消息”试用期已到“并删除这个表，同时关闭这个窗体。否则正常打开窗体。
　　　判断2、如果没有“日期”这个数据表，就弹出消息：试用期已到，同时关闭这个窗体。

这个问题真让我头疼：我将系统日期改为大于日期表中的日期，而系统却没有反映。问题出在哪啦？

[此贴子已经被作者于2005-5-9 19:20:44编辑过]

mhaibo

dim dateA as date

dateA =DLookup("日期", "日期")

if dateA <date then

青青

这是因为您将“日期”表里的“日期”字段设置为“文本”的类型了。

这样,DLookup("日期", "日期")获得的字串值永远大于日期值的。

使得 DLookup("日期", "日期") < Date   永远为  False

将日期字段改为“日期/时间”的数据类型就可以了。

青青

代码可简化为：

Private Sub Form_Load()
On Error Resume Next
If Nz(DLookup("日期", "日期")) < Date Then 'Exit Sub '如果日期字段的日期值小于系统日期
   MsgBox "测试期已到" '弹出消息：测试期已到
   DoCmd.DeleteObject acTable, "日期" '删除“日期”数据表（防止用户修改日期表）
   DoCmd.Close '关闭窗体
End If
End Sub