การเรียงลำดับระเบียนแบบตรงตามตัวพิมพ์ใหญ่-เล็ก

เขียนโค้ด VBA

1. สร้างมอดูล VBA แล้วพิมพ์บรรทัดต่อไปนี้ในส่วนการประกาศค่า หากยังไม่มี:

   Option Explicit

2. พิมพ์กระบวนงานต่อไปนี้ในมอดูลใน Visual Basic Editor:

   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. ในคอลัมน์เปล่าคอลัมน์แรก ในแถว เขตข้อมูล ให้พิมพ์ Expr1: StrToHex([SortField])

   StrToHex คือฟังก์ชันที่ผู้ใช้กําหนดเองที่คุณสร้างไว้ก่อนหน้านี้ SortField เป็นชื่อของเขตข้อมูลที่มีค่าตรงตามตัวพิมพ์ใหญ่-เล็ก

7. ในเซลล์ เรียงลำดับ ให้คลิก จากน้อยไปหามาก หรือ จากมากไปหาน้อย

   ถ้าคุณเลือกเรียงลำดับจากน้อยไปหามาก ค่าที่ขึ้นต้นด้วยตัวอักษรตัวพิมพ์ใหญ่จะปรากฏก่อนตัวอักษรตัวพิมพ์เล็ก การใช้การเรียงลำดับจากมากไปหาน้อยจะให้ผลตรงกันข้าม

8. สลับเป็นมุมมองแผ่นข้อมูล

   Access จะแสดงระเบียนที่เรียงลำดับตรงตามตัวพิมพ์ใหญ่-เล็ก

ด้านบนของหน้า