VPF::Сортировка записей в ленточной форме

Artmishin

Дата 29.4.2010, 14:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Здравствуйте! Задача довольно простая. При нажатии на "Надпись" происходила сортировка записей, в соответствующем поле по возрастанию в пределах фильтра, если он используется. Реализовал такую возможность в VBA.

Код


Dim strNewRecord As String
If Me.FilterOn = True Then
        strNewRecord = "SELECT * " _
            & "FROM MAIN " _
            & "ORDER BY MAIN.[Поле под надписью]"
        Me.RecordSource = strNewRecord
        Me.FilterOn = True
Else
        strNewRecord = "SELECT * " _
            & "FROM MAIN " _
            & "ORDER BY MAIN.[Поле под надписью]"
        Me.RecordSource = strNewRecord
End If

Прошу оценить профессиональным взглядом данный код. Быть может есть более простое решение данной задачи?

И еще один вопрос. Имеются две таблицы связанные отношением один-ко-многим. В Таблице на стороне многие имеется поле [Дата/Время] данные (dd.mm.yyyy hh:nn:ss) вносятся автоматически при добавлении новой записи (=Now()). Подскажите каким образом создать запрос на выборку последних внесенных данных из данной таблицы?

Akina

Дата 29.4.2010, 14:59 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454

Цитата(Artmishin @ 29.4.2010, 15:51

)

Прошу оценить профессиональным взглядом данный код.

Очень напоминает

Код


If x = 1
Then x = 1
Else x = x

Цитата(Artmishin @ 29.4.2010, 15:51

)

И еще один вопрос.

Идём перечитывать Правила Форума. После чего исправляем ситуацию.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Artmishin

Дата 29.4.2010, 16:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 24
Регистрация: 20.11.2006

Репутация: нет
Всего: нет

Вот тестовая база. Может функция есть соответствующая, типа DLast?

Цитата

Очень напоминает
If x = 1
Then x = 1
Else x = x

Согласен, по-другому (Me.OrderBy = ("Надпись")) не получается :(

Это сообщение отредактировал(а) Artmishin - 29.4.2010, 16:09

Присоединённый файл ( Кол-во скачиваний: 3 )

db1.rar 8,70 Kb

bopoha

Дата 1.5.2010, 01:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Цитата(Artmishin @ 29.4.2010, 14:51

)

При нажатии на "Надпись"

Надписи для этого не предназначены. Это статичные элементы.
Используйте кнопку или переключатель, тогда не понадобится опираться на ненадженую конструкцию.

Цитата(Artmishin @ 29.4.2010, 14:51

)

одскажите каким образом создать запрос на выборку последних внесенных данных из данной таблицы?

Какие записи считаются последними? Ответите на этот вопрос, напишете запрос.

--------------------

Как создавать приложения на MS Access

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »