Дата запроса из таблицы в Access VBA

Question

Я огляделся везде, но нашел решения. Я пытаюсь запросить дату из таблицы в Access VBA, но после попытки размещения разных мест «#» я все равно не могу заставить ее работать. Любая помощь будет принята с благодарностью.

Код:

Dim varStartDate As Date 

varStartDate = "SELECT Employees.StartDate FROM Employees WHERE Employees.Name LIKE Manny" 

Я получаю ошибку несоответствия типов.

Я также попытался

varStartDate = "# " & "SELECT Employees.StartDate FROM Employees WHERE Employees.Name LIKE Manny" & " #" 

ту же ошибку.

Answer 1

ошибка несоответствие типов потому, что вы пытаетесь присвоить строку varStartDate, но так как он был объявлен As Date, он не может принять «SELECT Employees.StartDate FROM ...».

Я думаю, вы можете получить то, что вам нужно с DLookup.

Dim varStartDate As Variant 
varStartDate = DLookup("StartDate", "Employees", "[Name]='Manny'") 

Если другая проблема в том, что Employees.StartDate является текст вместо даты/времени тип данных, может быть, вы также должны преобразовать значение, которое вы получаете от DLookup.

If Not IsNull(varStartDate) Then 
    varStartDate = CDate(varStartDate) 
End If