DLookup的語法錯誤

Question

我似乎無法弄清楚我的代碼出了什麼問題。它口口聲聲說有一個語法錯誤

Dim NullorNot As Date 
NullorNot = Nz(DLookup("[Week]", "[Weeks on Call]", "[Week] = #" & cboWeek.Column(1) & "#"), [#01/01/2000#]) 

編輯：

這裏是插入按鈕的全部代碼。這樣做的目標是，我希望能夠爲兩名員工添加一個條目，其中一名爲主要職位，另一名爲備用兩週。

Private Sub cmdInsert_Click() 
Response = MsgBox("Are you sure you would like to add this form?", [vbYesNoCancel], "Confirm Insert") 
If Response = vbYes Then 
Dim TempCount As Date 
Dim TempCount2 As Date 
Debug.Print "[Week] = #" & cboWeek.Column(1) & "#" 
TempCount = Nz(DLookup("[Week]", "[Weeks on Call]", "[Week] = #" & cboWeek.Column(1) & "#"), #1/1/2000#) 
TempCount2 = Nz(DLookup("[Week]", "[Weeks on Call]", "[Week] = #" & cboWeek2.Column(1) & "#"), #1/1/2000#) 
If ((TempCount = #1/1/2000#) And (TempCount2 = #1/1/2000#)) Then 
GoTo Method_Run 
Else 
Dim Msg2 As String 
Msg2 = "Employees have already been assigned to be On Call for that date." 
Dim title2 As String 
title2 = "Duplicate Error" 
MsgBox Msg2, [vbOKOnly], title2 

End If 
Method_Run: 
Dim SQL As String 
Dim SQL2 As String 
On Error GoTo Err_Insert 
DoCmd.SetWarnings False 
SQL = "INSERT INTO [Weeks on Call]([Primary Employee], [Backup Employee], [Week]) VALUES ('" + cboName.Column(1) + "','" + cboName2.Column(1) + "','" + cboWeek.Column(1) + "')" 
SQL2 = "INSERT INTO [Weeks on Call]([Primary Employee], [Backup Employee], [Week]) VALUES ('" + cboName2.Column(1) + "','" + cboName.Column(1) + "','" + cboWeek2.Column(1) + "')" 

DoCmd.RunSQL SQL 
DoCmd.RunSQL SQL2 



Exit_Err: 
    Exit Sub 

Err_Insert: 
If Err.Number = 94 Then GoTo Err_Msg 
Err_Msg: 
Dim Msg As String 
Msg = "One or more of the fields is null, please make sure each field is filled" 
Dim title As String 
title = "Null Error" 
MsgBox Msg, [vbOKOnly], title 
End If 

If Response = vbNo Then 
Response = MsgBox("Entry was not saved", [vbOKOnly], "Not Saved") 
End If 
If Response = vbCancel Then 
Response = MsgBox("Entry was not saved", [vbOKOnly], "Not Saved") 
End If 

End Sub 

Answer 1

當您將日期值括在方括號中時，Access會將其解釋爲對象標識符而不是字面日期/時間值。

消除方括號。

NullorNot = Nz(DLookup("[Week]", "[Weeks on Call]", "[Week] = #" & cboWeek.Column(1) & "#"), #01/01/2000#)