Sắp xếp bản ghi theo thứ tự phân biệt chữ hoa chữ thường

Viết mã VBA

1. Tạo mô-đun VBA và nhập dòng sau đây vào mục Khai báo, nếu chưa có ở đó:

   Option Explicit

2. Nhập quy trình sau đây vào mô-đun trong Trình soạn thảo 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
   

   Hàm do người dùng xác định trước đó, StrToHex, có thể được gọi từ một truy vấn. Khi bạn chuyển tên trường sắp xếp sang hàm này, nó sẽ sắp xếp các giá trị trường theo thứ tự phân biệt chữ hoa/thường.

3. Bây giờ, tạo một truy vấn mà từ đó bạn sẽ gọi hàm này.

   Trên tab Tạo, trong nhóm Truy vấn, bấm Thiết kế Truy vấn.

4. Chọn Thêm Bảng (Hiển thị Bảng trong Access).

5. Kéo các trường bạn muốn vào lưới.

6. Trong cột trống đầu tiên, trong hàng Trường , nhập Expr1: StrToHex([SortField]).

   StrToHex là hàm do người dùng xác định mà bạn đã tạo trước đó. SortField là tên của trường có chứa các giá trị phân biệt chữ hoa chữ thường.

7. Trong ô Sắp xếp , bấm vào Tăng dần hoặc Giảm dần.

   Nếu bạn chọn thứ tự tăng dần, giá trị bắt đầu bằng chữ hoa sẽ xuất hiện trước những giá trị bắt đầu bằng chữ thường. Việc áp dụng sắp xếp thứ tự giảm dần sẽ thực hiện điều ngược lại.

8. Chuyển sang dạng xem Biểu dữ liệu.

   Access sẽ hiển thị các bản ghi, được sắp xếp theo thứ tự phân biệt chữ hoa,chữ thường.

Đầu Trang