Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Что-то не так, но что? (Создание выборки при работе с формой) / 5 сообщений из 5, страница 1 из 1
15.09.2003, 21:13
    #32265634
JinP
JinP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что-то не так, но что? (Создание выборки при работе с формой)
У меня есть таблица, на ее основе форма. По ходу ввода записей необходимо посмотреть, сколько записей, имеющих конкретное значение в поле "Поле_признак" уже введено. "Поле_признак" - обычное текстовое поле. Написал программу, но она почему-то выдает количество записей в выборке всегда = 1, хотя, ясное дело, этих записей должно быть много.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String, strPriznak As String
Dim intCount As Integer

Set db = CurrentDb()
strPriznak = Me.Поле_признак
MsgBox strPriznak

strSQL =  "SELECT * FROM Моя_таблица WHERE Поле_признак  = ' " & strPriznak & " ';" 
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

intCount = rs.RecordCount
MsgBox intCount


strPriznak - печатается правильное значение; intCount - всегда = 1. Что-то делаю не так, плз, где?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 21:40
    #32265650
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что-то не так, но что? (Создание выборки при работе с формой)
Перед
intCount = rs.RecordCount
добавь
on error resume next
rs.movelast
on error goto 0
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.09.2003, 23:09
    #32265681
JinP
JinP
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что-то не так, но что? (Создание выборки при работе с формой)
Спасибо! Все получилось.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2003, 00:48
    #32265711
Mar
Mar
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что-то не так, но что? (Создание выборки при работе с формой)
вместо
on error resume next
лучше:

if rs.eof then
intCount = 0
else
rs.movelast
intCount = rs.RecordCount
end if

Проверено - rs.eof не врет, даже без movelast - 100%
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.09.2003, 00:58
    #32265716
Geo
Geo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Что-то не так, но что? (Создание выборки при работе с формой)
Может и лучше, но на 2 строки длиннее, а по-моему, это нифига не лучше.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Что-то не так, но что? (Создание выборки при работе с формой) / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 412ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1679436]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 86ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 230ms
total:  412ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]