несоответствие типов данных

[Pushkin1983]

Хочу проверить существует ли дата, которую я ввожу на форме в таблице или нет:

Private Sub DateUved_AfterUpdate()
Dim s
s = "select count(*) from osnova where date_uved = 'DateUved'"
If CurrentProject.Connection.Execute(s ).Fields(0) = 0 Then MsgBox "Даты в базе нет"
Пишет:несоответствие типов данных в выражении условия отбора

[Myhaylo]

Правильно пишет. Зачем Вы задаёте условие для поля с датой в виде текстовой константы "DateUved"? Правильно будет так:

s = "select count(*) from osnova where date_uved = " & DateUved

s = "select count(*) from osnova where date_uved = #12.31.2013#"
s = "select count(*) from osnova where date_uved = " & DateSerial(2013, 12, 31)

[Pushkin1983]

Воспользовался первым выражением, теперь выдает
"Число содержит синтаксическую ошибку в выражении запроса 'date_uved = 01.01.2013'

[Myhaylo]

s = "select count(*) from osnova where date_uved = #" & DateUved & "#"

[AndVGri]

Дата в запросе в Access должна быть в формате #mm/dd/yyyy#. В вашем случае, для примера

s = "select count(*) from osnova where date_uved = #12/28/2013#"

Или, если DateUved у вас переменная с датой, то

s = "select count(*) from osnova where date_uved = #" & Format$(DateUved, "mm\/dd\/yyyy") & "#"

[Pushkin1983]

Всем спасибо!
Получилось как-то так
s = "select count(*) from osnova where date_uved = #" & Replace(CStr(Format([Forms]![Form2]![DateUved], "mm.dd.yyyy")), ".", "/") & "#"

[Myhaylo]

В конструкторе формы задайте для поля DateUved формат даты и никаких Replace-CStr-Format не нужно.