Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Упорядочивание ручное / 12 сообщений из 12, страница 1 из 1
05.12.2003, 07:20
    #32344271
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
В подчиненной форме "Tov" выведена таблица "Список товаров". Товары отсортированы по полю Place (позиция товара в списке). На главной форме есть две кнопки "Вверх" и "Вниз". С их помощью создается перемещение товара.
При нажатии кнопки "Вниз" вызвается процедура главной формы
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
  Dim rst As Recordset
  Dim CurPos As Integer                     'Текущая позиция товара
  Dim NewPos As Integer                    'Новая позиция товара
  If Me.Tov.Form.CurrentRecord <   Me.Tov.Form.Recordset.RecordCount Then
    CurPos = Me.Tov.Form.Place
    Me.Tov.Form.Recordset.MoveNext
    NewPos = Me.Tov.Form.Place
    Me.Tov.Form.Place = CurPos         ' ОШИБКА
    Me.Tov.Form.Recordset.MovePrevious
    Me.Tov.Form.Place = NewPos
    Me.Tov.Form.OrderByOn = False
    Me.Tov.Form.OrderByOn = True
    Set rst = Me.Tov.Form.Recordset
    rst.FindFirst  "Place="  & Str(NewPos)
    Me.Tov.Form.Bookmark = rst.Bookmark
  End If

Все прекрасно работает в MDB проекте. В ADP выдает ошибку на помеченной строке.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 09:21
    #32344326
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
а кто такой Me.Tov.Form.Place?
а что это за ошибка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 09:37
    #32344346
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
1. Me.Tov.Form.Place - поле Place подчиненной формы Tov главной формы

2. Ошибка - Method 'Place' of object '_Form_Tov' failed.
Случается при переходе на другую запись методом Move и попытке записать в поле этой записи значение.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 09:42
    #32344351
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
>1. Me.Tov.Form.Place - поле Place подчиненной формы Tov главной формы

Me.Tov.Form ! Place
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 09:50
    #32344360
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
Не работает все равно.
Ошибка - Method 'Value' of object '_Textbox' failed.

Конфликт получается из-за этих двух команд.
Код: plaintext
1.
Me.Tov.Form.Recordset.MoveNext
    Me.Tov.Form.Place = CurPos
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 10:02
    #32344375
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
Me.Tov.Form ! Place = CurPos
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 10:09
    #32344385
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
К сожалению, не работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 10:11
    #32344389
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
а так?

rst("Place") = CurPos
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 10:18
    #32344400
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
верней
Me.Tov.Form.Recordset("Place")=CurPos
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 10:51
    #32344464
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
Значения новых позиций товара теперь записываются без проблем. Спасибо.

Другая проблема. Оказывается Метод MoveNext не воспринимает сортировку по полю Place, делает перескок по ключевому полю (код товара)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 11:01
    #32344487
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
Щас Хам Трамвайный прийдет и прочистит тебе мозгу по поводу рекодсетов на форме

==
Ты можешь в двух словах обяъснить необходимость применения рекодсета формы в твоем случае?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.12.2003, 11:29
    #32344546
Vitaly223
Vitaly223
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Упорядочивание ручное
Пожалуйста!
Использование рекордсета формы показалось наглядным и простым. Но чую, что для SQL-сервера нужно придумать что-то другое. Прислушаюсь к советам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Упорядочивание ручное / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 514ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1677821]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 176ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 245ms
total:  514ms
x
x
Закрыть


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