ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Количество записей в рекордсете с контролами на форме
12 сообщений из 12, страница 1 из 1
Количество записей в рекордсете с контролами на форме
    #39505050
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Добрый день, уважаемые форумчане!
До недавнего времени я успешно пользовался таким кодом: k = CurrentDb.OpenRecordset("запрос").RecordCount с помощью которого получал количество записей в запросе. Но после того, как в запрос добавились контролы с формы, необходимо переписать код. Поискав на форумах, я пришел к выводу, что нужно явно указать переменные с контролами, но вот как это сделать грамотно синтаксически не нашел. Возможно, есть какое-то совсем простое решение. Мне не столько важно знать количество записей, сколько понять в принципе, возвращает записи или нет.
...
Рейтинг: 0 / 0
14.08.2017, 15:48
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505071
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
CAHDEP,
dcount
...
Рейтинг: 0 / 0
14.08.2017, 16:15
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505081
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
sdku,
спасибо, а можно более подробно?
...
Рейтинг: 0 / 0
14.08.2017, 16:28
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505085
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
Для запроса со ссылками на форму:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Set db = CurrentDb
With db.QueryDefs("запрос")
  For Each prm In .Parameters
     prm. Value = EVal(prm.Name)
  Next
     fNoRecords = .OpenRecordset().BOF
End With

"явно указать переменные с контролами" можно при составлении SQL выражения в процедуре. В сохраненном запросе можно применить функцию, возвращающую значение контрола (например ту же EVal("Forms![Имя формы]![Имя поля]") ), но я это не практикую и не советую.
...
Рейтинг: 0 / 0
14.08.2017, 16:33
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505087
aleks222
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aleks222
Участник
sdkuCAHDEP,
dcount
Привык одевать штаны через голову?

Код: sql
1.
k = Me.Recordset.RecordCount
...
Рейтинг: 0 / 0
14.08.2017, 16:34
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505097
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Уважаемый Анатолий ( Киев ),
прошу сильно не пинать. Можете подсказать как мне используя вашу функцию получить количество записей в своем запросе?
...
Рейтинг: 0 / 0
14.08.2017, 16:50
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505473
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Анатолий ( Киев ),
Помогите, пожалуйста, разобраться. При условии, что запрос возвращает записи, у меня выполняется определенное действие, если нет, то выходит сообщение. Как применить вашу функцию?
...
Рейтинг: 0 / 0
15.08.2017, 11:17
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505479
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
CAHDEPПомогите, пожалуйста, разобраться.Вероятность ответа прямо пропорциональна полнотой предоставленной ТС информации. Наличие примера ещё больше повышает вероятность ответа.

А пока - Как запускать запросы из VBA
...
Рейтинг: 0 / 0
15.08.2017, 11:24
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505488
Анатолий ( Киев )
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Анатолий ( Киев )
Гость
CAHDEPПри условии, что запрос возвращает записи, у меня выполняется определенное действие, если нет, то выходит сообщение. Как применить вашу функцию? В моем примере в переменную fNoRecords (лучше объявить как Boolean) записывается True, если записей нет. С учетом "Мне не столько важно знать количество записей, сколько понять в принципе, возвращает записи или нет." достаточно проверить ее значение.
...
Рейтинг: 0 / 0
15.08.2017, 11:45
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505498
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Панург,
Спасибо за отклик. Прежде чем обратиться на форум, я читал и этот пост, в том числе. Знаний в этой области маловато пока, поэтому туплю. Работал до сих пор таким образом:
Код: vbnet
1.
2.
3.
4.
5.
6.
k=CurrentDb.OpenRecordset("запрос").RecordCount
if k>0 then
DoCmd.OpenForm "Form1", acNormal
else
msgbox "Нет соответствий"
end if


После того, как в запрос понадобилось добавить два параметра, которые обращаются к контролам формы, начала вылетать ошибка: Слишком мало параметров. Требуется 2
...
Рейтинг: 0 / 0
15.08.2017, 11:54
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505499
MrShin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MrShin
Участник
CAHDEPдва параметра, которые обращаются к контролам формы
Так а форма-то, к контролам которой обращается запрос открыта? Если нет, то и ничего работать не будет. Если открыта, то значит неправильно параметры прописаны.
...
Рейтинг: 0 / 0
15.08.2017, 11:56
| Ответить | Цитировать | Написать  
Количество записей в рекордсете с контролами на форме
    #39505508
CAHDEP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CAHDEP
Гость
Анатолий ( Киев ),
спасибо большое! Очень помогли. Это отлично работает!
...
Рейтинг: 0 / 0
15.08.2017, 12:02
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Количество записей в рекордсете с контролами на форме
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39505498&tid=1612182]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 14ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


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