Здравствуйте. Вы не могли бы помочь с одной проблемой макроса в Access' e? Задача состоит в следующем: проверить существует ли запись, введенная на форме, в таблице sotrudnik с помощью запроса "SELECT sotrudnik.parol FROM sotrudnik WHERE sotrudnik.parol =" + strSQL. По идеи все должно работать правильно, так как если проверить этот запрос с помощью DoCmd.OpenQuery "MyQ", то он работает корректно: если есть запись – она появляется, если нету – пустое поле. Для того, чтобы это проверить это в программе используется команда ReturnsRecords, которая вроде как проверяет, существуют ли значения. Однако, оно все время выдает значение true…


Вот фрагмент кода этой программы:
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
……
Set dbs = CurrentDb
strSQL = Pole18.Value
strSQL = "'" + strSQL + "'"
strSQL = "SELECT sotrudnik.parol FROM sotrudnik WHERE sotrudnik.parol =" + strSQL
Set qdf = dbs.CreateQueryDef("MyQ", strSQL)
If qdf.ReturnsRecords = True Then
c = True
Else
c = False
End If 

Спасибо.