ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Записи в ленточной форме
17 сообщений из 17, страница 1 из 1
Записи в ленточной форме
    #32498270
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
Как узнать есть ли записи в подчиненной ленточной форме?
Спасибо.
...
Рейтинг: 0 / 0
27.04.2004, 11:49
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498300
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
me.RecordsetClone.RecordCount

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
27.04.2004, 11:55
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498302
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Me.PodForm.Form.RecordSetClone.RecordCount
?

PS: Это вроде для Аск97, для 2000 немного по другому (там RecordSetClone нет)
...
Рейтинг: 0 / 0
27.04.2004, 11:56
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498305
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
сорьки блин... me.subfom_name.form.RecordsetClone.RecordCount

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
27.04.2004, 11:57
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498308
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
сорри..
НЕ обращаясь к рекордсету формы ..
...
Рейтинг: 0 / 0
27.04.2004, 11:58
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498326
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
НЕ обращаясь к рекордсету формы ..
А чем вам rs формы не угодил?

Как вариант:

В подформе создаем поле (можно невидимое) txt_Count
txt_Count.DataSource = "=Count(*)" 'Свойство "Данные"
И обращаемся с нему:
msgbox me.subform.form.txt_Count
...
Рейтинг: 0 / 0
27.04.2004, 12:04
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498351
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
msgbox CheckSQKStr(me.subfom_name.form.RecordSourse)

Function CheckSQKStr(SQLStr As String) As Integer
Dim rst As Recordset
  Set rst = CurrentDb.OpenRecordset(SQLStr)
  If Not (rst.EOF And rst.BOF) Then
    CheckSQKStr = rst.RecordCount 'здесь есть хоть одна запись'
  Else
    CheckSQKStr =  0 
  End If
  rst.Close
  Set rst = Nothing
End Function
первая строка только для случая когда в указаном сурсе находится SQL выражение...

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
27.04.2004, 12:12
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498380
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
Все меня сейчас запинают!
2 Sfagnum - ADP и лишний раз к серверу обращаться не хочется.
Блин, было бы клево если бы форма имела сво-во в котором, указывалось что данные загруженны в форму. И кол-во записей в ней >0...
ммм что же делать?
Варианты помимо paparom_а еще есть?
...
Рейтинг: 0 / 0
27.04.2004, 12:21
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498412
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
2 Sfagnum
Не прокатит
Это подформа и в вашем rs данных может оказаться больше чем реально на данный момент в подформе

2 J_Q
1. Чем rs вам не угодил? (нет лишних обращений на сервер)
2. Чем мой вариант плох? (вроде тоже с сервером все ОК)
3. Мы только сейчас узнали, что у вас ADP, и естественно, если взять написанные примеры слово в слово, то может и не работать :)
...
Рейтинг: 0 / 0
27.04.2004, 12:32
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498426
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
Вопрос был задан не корректно не спорю.
Sfagnum прав, если открывать рекордсет с теми же параматрами,
которые используются в подформе, Тогда данные будут теже.
Один в один я использовать и не собирался.
Рекордсет формы не подходит из-за теоретической возможности глюка,
тогда будет жопа.
Чего еще, вариант с Count я усвоил.
Думаю сделать вот как, в хранимке которая используется как источник,
для формы сделать OutPut параметр, в котором будет кол-во записей.
Только вот в форме есть InputParametrs а OutPut как получить??
...
Рейтинг: 0 / 0
27.04.2004, 12:38
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498453
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
ADP - а я парился....

Сделать можно всё!!!
Только бы знать как...
...
Рейтинг: 0 / 0
27.04.2004, 12:45
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498455
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
тока если будешь назначать рекордсет - источник данных формы
иначе выходные параметры не получить

по крайней мере у меня не получилось
...
Рейтинг: 0 / 0
27.04.2004, 12:45
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498462
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
Блин
Гуру на вас обоих нету

1.
Рекордсет формы не подходит из-за теоретической возможности глюка,
Можно подробнее, что з аглюк такой?

2.
OutPut можно получить если выполнять ХП через ado.command

3.
DCount - как вариант, и не надо велосипед изобретать
...
Рейтинг: 0 / 0
27.04.2004, 12:46
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498474
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
авторРекордсет формы не подходит из-за теоретической возможности глюка,
тогда будет жопа.

попробуй

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
dim rst as new adodb.recordset
rst.open me.recordsource , currentproject.connection ....
Do While rst.State And adStateFetching
   DoEvents
Loop
rst.pagesize = 1 
MYRecordCount = rst.pagecount
rst.close
set rst = nothing
...
Рейтинг: 0 / 0
27.04.2004, 12:51
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498491
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
2 Sfagnum , я стормозил! Без обид ладно..
2 АлексейК Ну куда то же передается этот output параметр..
интересно куды он девается.. мда.. жаль
paparom
Да глюки разные бывают, не в этом вопрос. Ну хотя бы глючит чекбокс и акссес с треском закрывается.
Через Commsnd лишнее обращение к серверу.
...
Рейтинг: 0 / 0
27.04.2004, 12:58
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498500
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
2 АлексейК
А это что:
Код: plaintext
1.
2.
3.
4.
5.
6.
While rst.State And adStateFetching
.................
rst.pagesize = 1 
...............
rts.pagacount

А почему не сделать просто rst.RecordCount??
Как кстати предлагает Sfagnum.
...
Рейтинг: 0 / 0
27.04.2004, 13:01
| Ответить | Цитировать | Написать  
Записи в ленточной форме
    #32498505
J_Q
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
J_Q
Гость
АлексейК
все понял спасибо.
Сейчас попробую.
Только вот про pagecount не въехал.
...
Рейтинг: 0 / 0
27.04.2004, 13:03
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Записи в ленточной форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32498351&tid=1675012]:
 0ms
get settings:
 5ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 15ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 207ms
total:  280ms
созд. / загр.: 280ms
x
x
Закрыть


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