сортировка в подчиненной форме / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / сортировка в подчиненной форме

9 сообщений из 9, страница 1 из 1

сортировка в подчиненной форме

#32480146

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Имеем таблицы Tbl1 и Tbl2 (поля одинаковы field1 и field2, числовые, ключ по обеим)
имеем 2 формы - frm1 и frm2, источники соответственно таблицы.
frm1 (ленточная) подчиненная в frm2 (обычная), несвязанная

в frm1:

Код: plaintext

1.
2.
3.

Private Sub Form_Current()
Parent.Filter =  "[field1]="  & Me![field1] &  " AND [field2]="  & Me![field2]
Parent.FilterOn = True
End Sub

без проблем, синхронизирует запись в frm2.

там же в frm1 имеем кнопочку

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Private Sub btnSort_Click()
If Me.OrderBy =  "field1"  Then
    Me.OrderBy =  "field2" 
    Me.OrderByOn = True
    Me.btnSort.Caption =  "field2" 
   Else
    Me.OrderBy =  "field1" 
    Me.OrderByOn = True
    Me.btnSort.Caption =  "field1" 
   End If
End Sub

сначала отрубаем Form_Current - все пашет, сортируется.
Врубаем Form_Current - приплыли - Me.OrderBy очишается, фильтр само-собой не не ставится, да и по записям в frm1 не ходит, все время переходит на первую.
Не понимаю :(
A2000

...

Рейтинг:

0 / 0

14.04.2004, 04:06

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32480154

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

фильтр само-собой не не ставится
не фильтр, сортировка , неправильно написал

...

Рейтинг:

0 / 0

14.04.2004, 05:49

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32480250

paparome

Участник

Откуда: Москва

Сообщения: 4 241

Рейтинг: 0 / 0

Упс.

Оригинальное решение :)

А может формы 1 и 2 местами поменять?
Т.е. - форма 1 ленточная основная, форма 2 простая подчиненная:

В этом случае Form_Current() вообще не нужен :)

...

Рейтинг:

0 / 0

14.04.2004, 09:04

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32480269

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

В реале в Tbl2 много полей, форма frm2 с несколькими закладками.
Это я уже упростил до предела.
Кому лень воспроизводить - файл можно взять здесь

...

Рейтинг:

0 / 0

14.04.2004, 09:14

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32481090

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Исполнив согласно регламента ритуальные танцы, плюнул.
Решил так.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub btnSort_Click()
 If Me.btnSort.Caption =  "field1"  Then
    Me.RecordSource =  "SELECT field1, field2  FROM tbl1 ORDER BY tbl1.field2;" 
    Me.btnSort.Caption =  "field2" 
 Else
    Me.RecordSource =  "SELECT field1, field2 FROM tbl1 ORDER BY tbl1.field1;" 
    Me.btnSort.Caption =  "field1" 
 End If
End Sub

НЕ ТУТ-ТО БЫЛО!
Эта б%^$%& при смене RecordSource почему-то пытается синхронизировать подчиненную форму с основной, хотя ее об этом никто не просит, и в подчиненной остается одна запись.
Пока проходит следующий вариант

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

If Me.btnSort.Caption =  "field1"  Then
    Me.RecordSource =  "SELECT field1, field2  FROM tbl1 ORDER BY tbl1.field2;" 
    Parent.frm1.LinkMasterFields =  ""
    Parent.frm1.LinkChildFields = "  "
    Me.btnSort.Caption = " field2 "
 Else
    Me.RecordSource = " SELECT field1, field2 FROM tbl1 ORDER BY tbl1.field1; "
    Parent.frm1.LinkMasterFields = "  "
    Parent.frm1.LinkChildFields = "  "
    Me.btnSort.Caption = " field1"
 End If

День коту под хвост...

...

Рейтинг:

0 / 0

14.04.2004, 14:16

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32481099

ищ

Гость

не стану разбираться с проблемой
но одно могу сказать точно

вот так не делают

Parent.frm1.LinkMasterFields = ""
Parent.frm1.LinkChildFields = ""

нельзя менять программно связанные формы
одновременно

...

Рейтинг:

0 / 0

14.04.2004, 14:19

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32481114

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Не понял, почему одновременно?
Формы-то и изначально не связаны.
Я просто пытаюсь принудительно втолковать это акцессу.

...

Рейтинг:

0 / 0

14.04.2004, 14:24

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32481126

Хам трамвайный

Участник

Сообщения: 890

Рейтинг: 0 / 0

а потому.
первая строка
Parent.frm1.LinkMasterFields = ""
заставляет аксесс синхронизировать
формы, а вторую строку она еще не видит
а когда ты добавляешь вторую, то
все - тю-тю

...

Рейтинг:

0 / 0

14.04.2004, 14:29

| Ответить | Цитировать | Написать

сортировка в подчиненной форме

#32481154

Alexander G

Участник

Откуда: Чукчи мы, однако

Сообщения: 3 280

Рейтинг: 0 / 0

Чуть подробнее можно, что именно тю-тю.
Я же их не синхронизирую, а наоборот.

...

Рейтинг:

0 / 0

14.04.2004, 14:40

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / сортировка в подчиненной форме

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32480146&tid=1675338]:	0ms
get settings:	7ms
get forum list:	18ms
check forum access:	4ms
check topic access:	4ms
track hit:	173ms
get topic data:	13ms
get forum data:	3ms
get page messages:	66ms
get tp. blocked users:	2ms
others:	208ms

total:	498ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы