ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Что-то не так, но что? (Создание выборки при работе с формой)
5 сообщений из 5, страница 1 из 1
Что-то не так, но что? (Создание выборки при работе с формой)
    #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:13
| Ответить | Цитировать | Написать  
Что-то не так, но что? (Создание выборки при работе с формой)
    #32265650
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Перед
intCount = rs.RecordCount
добавь
on error resume next
rs.movelast
on error goto 0
...
Рейтинг: 0 / 0
15.09.2003, 21:40
| Ответить | Цитировать | Написать  
Что-то не так, но что? (Создание выборки при работе с формой)
    #32265681
JinP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JinP
Гость
Спасибо! Все получилось.
...
Рейтинг: 0 / 0
15.09.2003, 23:09
| Ответить | Цитировать | Написать  
Что-то не так, но что? (Создание выборки при работе с формой)
    #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:48
| Ответить | Цитировать | Написать  
Что-то не так, но что? (Создание выборки при работе с формой)
    #32265716
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Может и лучше, но на 2 строки длиннее, а по-моему, это нифига не лучше.
...
Рейтинг: 0 / 0
16.09.2003, 00:58
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Что-то не так, но что? (Создание выборки при работе с формой)
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1751&tid=1679436]:
 0ms
get settings:
 7ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 200ms
total:  306ms
созд. / загр.: 306ms
x
x
Закрыть


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