ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заполнение поля ленточной формы с помощью RecordsetClone
14 сообщений из 14, страница 1 из 1
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236321
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Dim r As DAO.Recordset
Set r = Me.Form.RecordsetClone
r.MoveFirst
Do Until r.EOF
Me.ekv1 = Me.sum * Yecalc(Me.cur) / Yecalc(YeType( 1 )) * YePer( 1 )
r.MoveNext
Loop
r.Close


Это код вычисляет значение поля Me.ekv1 только в активной строке. Что тут надо изменить???

Зараннее спасибо!
...
Рейтинг: 0 / 0
14.08.2003, 11:49
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236329
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
а какоё у тебя событие?
...
Рейтинг: 0 / 0
14.08.2003, 11:51
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236331
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
клик на кнопке
...
Рейтинг: 0 / 0
14.08.2003, 11:52
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236344
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
если как я понял кнопка у тебя в ленте... естественно она тока для этой строки и будет считать...
сходу: мож потом циклом(UPDATE) пройтись по всем ekv1 ???
...
Рейтинг: 0 / 0
14.08.2003, 11:56
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236348
Фотография Артист
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Артист
Участник
или на current повесить ??
...
Рейтинг: 0 / 0
14.08.2003, 11:59
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236352
eGorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eGorka
Гость
Не очень удачное решение тем не менее

Dim r As DAO.Recordset
Set r = Me.Form.RecordsetClone
r.MoveFirst
Do Until r.EOF
r.edit
r!ekv1 = r!sum * Yecalc(r!cur) / Yecalc(YeType(1)) * YePer(1)
r.update
r.MoveNext
Loop
r.Close
me.refresh
...
Рейтинг: 0 / 0
14.08.2003, 12:02
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236357
OldPferd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
OldPferd
Участник
Me.ekv1 = Me.sum * Yecalc(Me.cur) / Yecalc(YeType(1)) * YePer(1

Почему Me.ekv1 , а не r!ekv1 ? Оно и делает для Me
...
Рейтинг: 0 / 0
14.08.2003, 12:02
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236359
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
>если как я понял кнопка у тебя в ленте... естественно она тока для этой строки и будет считать...
сходу: мож потом циклом(UPDATE) пройтись по всем ekv1 ???

Если ты это имеешь ввиду, то не работает:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim r As DAO.Recordset
Set r = Me.Form.RecordsetClone
r.MoveFirst
Do Until r.EOF
Me.ekv1 = Me.sum * Yecalc(Me.cur) / Yecalc(YeType( 1 )) * YePer( 1 )
r.MoveNext
Loop
r.MoveFirst
Do Until r.EOF
Me.ekv1.Requery
r.MoveNext
Loop
r.Close


>или на current повесить ??
Это лучше, но это не решение...
...
Рейтинг: 0 / 0
14.08.2003, 12:03
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236369
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
>r!ekv1 = r!sum * Yecalc(r!cur) / Yecalc(YeType(1)) * YePer(1)

Ошибка: Элемент не обнаружен в данном семействе
...
Рейтинг: 0 / 0
14.08.2003, 12:07
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236378
eGorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eGorka
Гость
У вас похоже вычисляемое поле на форме

docmd.GoToRecord acActiveDataObject ,,acFirst

Do Until me.NewRecord
me.ekv1 = me.sum * Yecalc(me.cur) / Yecalc(YeType(1)) * YePer(1)
DoCmd.GoToRecord acActiveDataObject, , acnext
Loop
...
Рейтинг: 0 / 0
14.08.2003, 12:14
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236390
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
2eGorka
Черт Черт Черт
И действительно... Спасибо работает

ЗЫ как ни стараюсь подробнее проблему описывать - всеравно не выходит :)
...
Рейтинг: 0 / 0
14.08.2003, 12:20
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236404
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Посмотрел я на все это дело и решил все же повесить на Current предложенный eGorkой вариант. Но при перерасчете вычисляемого поля нгичего не изменяется, т.е.
Выч. поле - Me.sum
Пусть: Me.sum было 5 - cтало 6 - Me.ekv1 = 5
Далее: если еще раз изменить Me.sum, то Me.ekv1 = 6
...
Рейтинг: 0 / 0
14.08.2003, 12:30
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236489
eGorka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eGorka
Гость
Теперь совсем не понятно 8(
Давайте с начала Что выхотите пересчитать? Когда? Что есть me.sum? Что надо получить?
...
Рейтинг: 0 / 0
14.08.2003, 12:59
| Ответить | Цитировать | Написать  
Заполнение поля ленточной формы с помощью RecordsetClone
    #32236500
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Спасибо за участие! :)
Разобрался в своей ерунде сам
Сначала спросил потом подумал
Прошу, так сказать, прощения :)
...
Рейтинг: 0 / 0
14.08.2003, 13:03
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заполнение поля ленточной формы с помощью RecordsetClone
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32236357&tid=1679916]:
 0ms
get settings:
 5ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 195ms
total:  337ms
созд. / загр.: 337ms
x
x
Закрыть


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