设置方法：

Int([Text0])-[Text0]=0 And [Text0]>0) or IsNull([Text0])=True

说   明:

把“[Text0]”改成自己窗体里的文本框名称

图   示:

演示效果如下：