Syntax Error with DLookup

Question

여기 내 코드에 무슨 문제가 있는지 알 수 없습니다. 그것은 구문 오류를가 있다는 말을 계속

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

편집 : 여기

가 삽입 버튼의 전체 코드입니다. 이 목표는 두 명의 직원이 전화를 걸 수 있도록 항목을 추가 할 수있게하려는 것입니다. 하나는 기본이고 다른 하나는 특정 2 주 동안의 백업입니다.

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#)