Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > MS Access > Сортировка записей в ленточной форме


Автор: Artmishin 29.4.2010, 14:51
Здравствуйте! Задача довольно простая. При нажатии на "Надпись" происходила сортировка записей, в соответствующем поле по возрастанию в пределах фильтра, если он используется. Реализовал такую возможность в 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
Цитата(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
Вот тестовая база. Может функция есть соответствующая, типа DLast?
Цитата

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

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

Автор: bopoha 1.5.2010, 01:45
Цитата(Artmishin @  29.4.2010,  14:51 Найти цитируемый пост)
При нажатии на "Надпись" 

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


Цитата(Artmishin @  29.4.2010,  14:51 Найти цитируемый пост)
одскажите каким образом создать запрос на выборку последних внесенных данных из данной таблицы? 

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)