Порядок сортування записів з урахуванням регістру

Напишіть код VBA

1. Створіть модуль VBA і введіть наведений нижче рядок у розділі Оголошення, якщо його ще немає:

   Option Explicit

2. У модулі редактора Visual Basic введіть таку процедуру:

   Function StrToHex (S As Variant) As Variant
   '
   ' Converts a string to a series of hexadecimal digits.
   ' For example, StrToHex(Chr(9) & "A~") returns 09417E.
   '
      Dim Temp As String, I As Integer
         If VarType(S) <> 8 Then
            StrToHex = S
         Else
            Temp = ""
         For I = 1 To Len(S)
            Temp = Temp & Format(Hex(Asc(Mid(S, I, 1))), "00")
         Next I
            StrToHex = Temp
         End If
   End Function
   

   Попередню користувацьку функцію StrToHex можна викликати із запиту. Коли ви передаєте ім'я поля сортування цій функції, вона сортуватиме значення полів у порядку з урахуванням регістра.

3. Тепер створіть запит, з якого буде викликатися ця функція.

   На вкладці Створити в групі Запити натисніть кнопку Конструктор запитів.

4. Виберіть Додати таблиці (відображати таблицю в Access).

5. Перетягніть потрібні поля до сітки.

6. У першому пустому стовпці в рядку Поле введіть Вираз1: StrToHex([SortField])).

   StrToHex – це користувацька функція, яку ви створили раніше. SortField – це ім'я поля, яке містить значення з урахуванням регістра.

7. У клітинці Сортування натисніть кнопку За зростанням або За спаданням.

   Якщо вибрати порядок за зростанням, значення, яке починається з великих букв, відображатиметься перед тими, які починаються з малих букв. Застосування сортування за спаданням виконується навпаки.

8. Перехід до вікна табличного подання даних.

   У програмі Access відобразяться записи, відсортовані за регістром.

На початок сторінки