Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Заполнение поля ленточной формы с помощью RecordsetClone / 14 сообщений из 14, страница 1 из 1
14.08.2003, 11:49
    #32236321
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
Код: 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:51
    #32236329
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
а какоё у тебя событие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2003, 11:52
    #32236331
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
клик на кнопке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2003, 11:56
    #32236344
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
если как я понял кнопка у тебя в ленте... естественно она тока для этой строки и будет считать...
сходу: мож потом циклом(UPDATE) пройтись по всем ekv1 ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2003, 11:59
    #32236348
Артист
Артист
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
или на current повесить ??
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2003, 12:02
    #32236352
eGorka
eGorka
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
Не очень удачное решение тем не менее

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
    #32236357
OldPferd
OldPferd
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
Me.ekv1 = Me.sum * Yecalc(Me.cur) / Yecalc(YeType(1)) * YePer(1

Почему Me.ekv1 , а не r!ekv1 ? Оно и делает для Me
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.08.2003, 12:03
    #32236359
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
>если как я понял кнопка у тебя в ленте... естественно она тока для этой строки и будет считать...
сходу: мож потом циклом(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:07
    #32236369
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
>r!ekv1 = r!sum * Yecalc(r!cur) / Yecalc(YeType(1)) * YePer(1)

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

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:20
    #32236390
Vsevolod V
Vsevolod V
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнение поля ленточной формы с помощью RecordsetClone
2eGorka
Черт Черт Черт
И действительно... Спасибо работает

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


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