| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Программирование, связанное с MS Office > MS Access. VBA. Работа с запросами |
| Автор: Negative_One 17.5.2008, 13:29 |
| Здравствуйте. Вы не могли бы помочь с одной проблемой макроса в 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 Спасибо. |