Access mengurutkan rekaman dalam urutan naik atau turun tanpa memperhatikan kasus. Namun, dengan menulis beberapa baris kode Visual Basic for Applications (VBA), Anda bisa mengurutkan teks menurut nilai karakter ASCII-nya. Mengurutkan berdasarkan nilai ASCII membedakan huruf besar dari huruf kecil, dan menghasilkan urutan yang peka huruf besar kecil.
Tabel berikut ini menunjukkan bagaimana urutan naik di Access berbeda dari susunan urutan peka huruf besar/kecil:
|
Susunan praurutkan |
Urutan naik |
Urutan peka huruf besar kecil |
|
c |
a |
A |
|
D |
A |
B |
|
a |
B |
C |
|
d |
b |
D |
|
B |
c |
a |
|
C |
C |
b |
|
A |
D |
c |
|
b |
d |
d |
Meskipun hasil dalam kolom Urutan naik pada awalnya mungkin terlihat agak tidak dapat diprediksi, hasilnya tidak. Dalam kolom Urutan naik, "a" muncul sebelum "A" dan " B" muncul sebelum "b." Hal ini terjadi karena, ketika dievaluasi sebagai nilai teks, "A" = "a" dan "B" = "b," baik huruf kecil atau huruf besar. Access memperhitungkan urutan asli nilai. Dalam kolom Urutan sebelumnya, "a" mendahului "A" dan "B" mendahului "b."
Ketika operasi pengurutan peka huruf besar kecil dilakukan, nilai teks diganti dengan nilai ASCIInya. Misalnya, A = 65, a = 97, B = 66, b = 98, dan seterusnya.
Menulis kode VBA
-
Buat modul VBA dan ketikkan baris berikut ini di bagian Deklarasi, jika belum ada:
Option Explicit
-
Ketik prosedur berikut dalam modul di Editor 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 FunctionFungsi yang ditentukan pengguna sebelumnya, StrToHex, dapat dipanggil dari kueri. Saat Anda meneruskan nama bidang pengurutan ke fungsi ini, bidang akan mengurutkan nilai bidang dalam urutan peka huruf besar kecil.
-
Sekarang, buat kueri tempat Anda akan memanggil fungsi ini.
Di tab Buat, dalam grup Kueri, klik Desain Kueri.
-
Pilih Tambahkan Tabel (Perlihatkan Tabel dalam Access 2013).
-
Seret bidang yang Anda inginkan ke kisi.
-
Di kolom kosong pertama, di baris Bidang , ketik Ekspr1: StrToHex([SortField]).
StrToHex adalah fungsi yang ditentukan pengguna yang Anda buat sebelumnya. SortField adalah nama bidang yang berisi nilai peka huruf besar kecil.
-
Dalam sel Urutkan , klik Naik atau Turun.
Jika Anda memilih urutan naik, nilai yang dimulai dengan huruf besar akan muncul sebelum yang dimulai dengan huruf kecil. Menerapkan pengurutan urutan turun akan berlawanan.
-
Beralih ke tampilan Lembar Data.
Access menampilkan rekaman, yang diurutkan dalam urutan peka huruf besar kecil.
