Критерий, который вы даете DLookup, не является допустимой строкой VBA.Если вы разберетесь с этим и передадите его в Debug.Print следующим образом, это вызовет ошибку компиляции:
Debug.Print "[Date_Registered] = # " & "2011/02/01#" And "[Department] =" & 'IT'
Я думаю, что вы должны собрать свою строку и загрузить ее в переменную, затем Debug.Printпеременная, и, наконец, передать переменную DLookup в качестве третьего (критерия) параметра.Я не знаю, откуда берутся строка даты и 'IT', но это должно указать вам правильное направление:
Dim strCriteria As String
strCriteria = "[Date_Registered] = #" & "2011/02/01" & _
"# AND [Department] =" & "'IT'"
Debug.Print strCriteria
Debug.Print DLookup("Result", "Query1", strCriteria)
Первый оператор Debug.Print в этом фрагменте кода напечатает это вНепосредственное окно:
[Date_Registered] = #2011/02/01# AND [Department] ='IT'