ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Упорядочивание ручное
12 сообщений из 12, страница 1 из 1
Упорядочивание ручное
    #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, 07:20
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #32344326
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
а кто такой Me.Tov.Form.Place?
а что это за ошибка?
...
Рейтинг: 0 / 0
05.12.2003, 09:21
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #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:37
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #32344351
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
>1. Me.Tov.Form.Place - поле Place подчиненной формы Tov главной формы

Me.Tov.Form ! Place
...
Рейтинг: 0 / 0
05.12.2003, 09:42
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #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, 09:50
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #32344375
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
Me.Tov.Form ! Place = CurPos
...
Рейтинг: 0 / 0
05.12.2003, 10:02
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #32344385
Vitaly223
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vitaly223
Участник
К сожалению, не работает.
...
Рейтинг: 0 / 0
05.12.2003, 10:09
| Ответить | Цитировать | Написать  
Упорядочивание ручное
    #32344389
Фотография Senin Viktor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Senin Viktor
Участник
а так?

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

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

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


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