判斷表中有無這個日期的記錄問題

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_更新?lián)p耗日期"
DoCmd.SetWarnings True

Else
    MsgBox "您選擇的已存在，請重新選擇截止日期！"
End If
每回DEBUG.PRINT 輸出結(jié)果為1
t_bianpingsh 是有數(shù)據(jù)的。 而且日期 和窗體中日期一樣。請問如何修改？

xryacc2

如果值為null,dsum返回的結(jié)果與代碼執(zhí)行的結(jié)果不可預料
可以用dcount或findfirst或filter，以dcount為例：
dim recnum as integer，注意如果是dlookup，dsum，就不要聲明具體的數(shù)據(jù)類型
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_更新?lián)p耗日期"
DoCmd.SetWarnings True

每執(zhí)行一次就會Debug.Print  為0  表里的這個日期也有了，可就是追加。

xryacc2

上傳你的例子看看。

xryacc2

另外，Debug.Print Nz(DCount("llzk", "t_bianpingsh", "date=#" & Me.截止日期 & "#"))
這句可能有問題（沒試過）。可為print nz(recnum)

xryacc2

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

ximan

好了謝謝