Kirjete sortimine tõstutundlikkuse alusel

Access sordib kirjed tõusvas või laskuvas järjestuses, arvestamata Teenindusjuhtumit. Kui aga kirjutate mõne rea Visual Standard for Applications (VBA) koodi, saate teksti sortida ASCII-märkide väärtuste järgi. ASCII-väärtuste põhjal sorditakse suurte tähtedega suurtähed ja tulemid on tõstutundlikud.

Järgmises tabelis on esitatud, kuidas Accessi tõusva sortimise järjestus erineb tõstutundliku sortimisjärjestusest.

Eelnevalt järjestatud järjestus

Tõusvas järjestuses

Tõstutundlik järjekord

c

a

A

D

A

B

a

B

C

d

b

D

B

c

a

C

C

b

A

D

c

b

p

d

Kuigi veeru tõusvas järjestuses tulemid võivad esmapilgul mõnevõrra ettearvamatud olla, ei kuvata neid. Veeru tõusvas järjestuses kuvatakse tekst "a" ja "B" enne "b". Selle põhjuseks on see, et kui hinnatakse teksti väärtusi, "A" = "a" ja "B" = "b", "Kas väike-või suurtähed. Accessis võetakse arvesse väärtuste algset järjestust. Veerus "pre-sortimisjärjestus" eelneb "a" ja "B" eelneb "b".

Tõstutundliku sortimise toimingu korral asendatakse teksti väärtused nende ASCII-väärtustega. Näiteks A = 65, a = 97, B = 66; b = 98 jne.

VBA-koodi kirjutamine

  1. Looge VBA-moodul ja tippige jaotises deklaratsioonid järgmine rida, kui see pole veel olemas.

    Option Explicit

  2. Tippige Visual Visual Editori mooduli moodulisse järgmine toiming.

    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

    Eelmise kasutaja määratletud funktsiooni StrToHex saab päringust kutsuda. Kui jätate välja sordi nimi sellele funktsioonile, sorditakse väljaväärtused tõstutundliku järjestuses.

  3. Nüüd saate luua päringu, millelt seda funktsiooni nimetada.

    Klõpsake menüü Loo jaotises Päringud nuppu Päringu kujundus.

  4. Valige Lisa tabeleid (Kuva tabelAccess 2013 ).

  5. Lohistage soovitud väljad koordinaatvõrgule.

  6. Tippige esimesse tühja veergu reale väliExpr1: StrToHex([SortField]).

    StrToHex on varem loodud kasutaja määratletud funktsioon. SortField on välja nimi, mis sisaldab tõstutundlikke väärtusi.

  7. Klõpsake lahtris sordi raadionuppu Tõusev järjestus või laskuv järjestus.

    Kui valite tõusvas järjestuses, kuvatakse enne väiketähti algavad suurtähed, mis algavad suurte tähtedega. Laskuvas järjestuses sortimise rakendamine on vastupidine.

  8. Aktiveerige Andmelehevaade.

    Access kuvab kirjed, mis on sorditud tõstutundliku järjestuse alusel.

Lehe algusse

Kas vajate veel abi?

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

×