为何有时显示正常，为何有时又不提示，哪出错了？

温柔一刀　发表于：2013-05-22 10:26:48 　

Private Sub 网银日期_AfterUpdate()
If DCount("网银日期", "fund", "网银日期= #" & Me.网银日期 & "#") > 0 Then
         MsgBox "你输入的日期已经相同，请重新输入", vbCritical, "警告提示"
         Me.网银日期.SetFocus
         Exit Sub
     End If
End Sub
在表中：针对“网银日期”我选择了“有（无重复）”可保存时不会提示，这是哪出错了。请高手帮助！

Top

恐龙发表于：2013-05-22 11:58:52

If DLookup("网银日期", "fund", "网银日期= #" & Me.网银日期 & "#") = False Then

Top

沈军发表于：2013-05-22 19:21:57

把

DCount("网银日期", "fund", "网银日期= #" & Me.网银日期 & "#")

换成

DCount("网银日期", "fund", "网银日期=Forms!窗体名称!网银日期")

看看？

如不行，那就是因为WIN的日期格式影响的，WINDOWS中日期格式默认为 05/21/2013，或许你也可以把你的窗体中的日期控件格式改成 “MM/DD/YYYY”，再看看

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

为何有时显示正常，为何有时又不提示，哪出错了？