判断表中有无这个日期的记录问题

ximan

Private Sub Command39_Click()
Dim straa As String
straa = Nz(DSum("llzk", "t_bianpingsh", "[date]=#" & Me.[截止日期] & "#"))
If straa = "" Then
Debug.Print Nz(DSum("llzk", "t_bianpingsh", "[date]=#" & Me.[截止日期] & "#")) + 1
DoCmd.SetWarnings False
DoCmd.OpenQuery "追加损耗查询"
DoCmd.OpenQuery "q_更新损耗日期"
DoCmd.SetWarnings True

Else
    MsgBox "您选择的已存在，请重新选择截止日期！"
End If
每回DEBUG.PRINT 输出结果为1
t_bianpingsh 是有数据的。 而且日期 和窗体中日期一样。请问如何修改？

xryacc2

如果值为null,dsum返回的结果与代码执行的结果不可预料
可以用dcount或findfirst或filter，以dcount为例：
dim recnum as integer，注意如果是dlookup，dsum，就不要声明具体的数据类型
recnum=dcount("llzk", "t_bianpingsh", "[date]=#" & Me.截止日期 & "#")
if nz(recnum)<1 then
  msgbox "包含该日期的记录不存在"
end if
以上用法，截止日期是控件名

ximan

还是不行
Dim recnum As Integer
recnum = DCount("llzk", "t_bianpingsh", "date=#" & Me.截止日期 & "#")
If Nz(recnum) < 1 Then
Debug.Print Nz(DCount("llzk", "t_bianpingsh", "date=#" & Me.截止日期 & "#"))
DoCmd.SetWarnings False
DoCmd.OpenQuery "追加损耗查询"
DoCmd.OpenQuery "q_更新损耗日期"
DoCmd.SetWarnings True

每执行一次就会Debug.Print  为0  表里的这个日期也有了，可就是追加。

xryacc2

上传你的例子看看。

xryacc2

另外，Debug.Print Nz(DCount("llzk", "t_bianpingsh", "date=#" & Me.截止日期 & "#"))
这句可能有问题（没试过）。可为print nz(recnum)

xryacc2

注意：“截止日期”控件不能为空值。

ximan

好了谢谢