Kirjete sortimine tõstutundlikkuse alusel

NB! :  See artikkel on masintõlgitud, vaadake lahtiütlust. Selle artikli ingliskeelse versiooni leiate aadressilt (viiteks).

Rakenduses Microsoft Office Access 2007 saab kirjeid sortida tõusvas või laskuvas järjestuses suur- ja väiketähti eristamata. Teksti saate siiski sortida ASCII-märkide väärtuste alusel, kui kirjutate rakenduse Visual Basic for Applications (VBA) koodile paar rida juurde. ASCII-väärtuste järgi sortimisel eristatakse suur- ja väiketähti, mille tulemusel saab sortida tõstutundlikkuse alusel.

Järgnevas tabelis on näidatud, kuidas Accessi tõusvas järjestuses sortimine erineb tõstutundlikkuse alusel sortimisest.

Sortimata järjestus

Tõusev järjestus

Tõstutundlik orde r

c

a

A

D

A

B

a

B

T

d

b

D

B

c

a

C

C

b

A

D

c

b

d

d

Kuigi veeru Tõusev järjestus sortimise tulemus võib esialgu tunduda mõnevõrra ettearvamatu, pole see siiski nii. Veerus Tõusev järjestus kuvatakse a enne A-d ja B enne b-d. Selle põhjuseks on fakt, et tähtede tekstiväärtusena hindamisel suur- ja väiketähti ei eristata, seega A=a ja B=b. Access võtab arvesse väärtuste esialgset järjestust. Veerus Sortimata järjestus asub a enne A-d ja B enne b-d.

Tõstutundlikkuse alusel sortimisel asendatakse tekstiväärtused vastavate ASCII-väärtustega. Näiteks A=65, a=97, B=66, b=98 jne.

VBA-koodi kirjutamine

  1. Looge VBA-moodul ja tippige jaotisse Declarations (Deklaratsioonid) järgmine rida (kui seda seal veel pole):

Option Explicit

  1. Tippige Visual Basic Editoris moodulisse järgmine protseduur:

    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

    Ülaltoodud kasutaja määratletud funktsiooni StrToHex saab esile kutsuda päringust. Kui lisate funktsioonile sortimisvälja nime, sordib see välja väärtusi tõstutundlikkuse alusel.

  2. Looge nüüd päring, millest kutsute seda funktsiooni.

    Klõpsake menüü Loo jaotises Muu nuppu Päringukujundus.

  3. Klõpsake dialoogiboksis Tabeli kuvamine tabelit, mida soovite sortida, ja klõpsake siis nuppu Lisa.

  4. Lohistage soovitud väljad ruudustikku.

  5. Tippige esimese tühja veeru reale väliAvaldis1: StrToHex([SortField]).

    StrToHex on varem loodud kasutaja määratletud funktsioon. Sorditav_väli on tõstutundlikke väärtusi sisaldava välja nimi.

  6. Klõpsake lahtris Sordi väärtust Tõusev järjestus või Laskuv järjestus.

    Tõusva järjestuse valimisel kuvatakse suurtähega algavad väärtused enne väiketähega algavaid väärtusi. Laskuva järjestuse korral on tulemus vastupidine.

  7. Aktiveerige andmelehevaade.

    Access kuvab tõstutundlikkuse alusel sorditud kirjed.

Lehe algusse

Märkus. : Masintõlke lahtiütlus. Selle artikli tõlkis arvutisüsteem ilma inimese sekkumiseta. Microsoft pakub selliseid masintõlkeid, et inglise keelt mittekõnelevad kasutajad saaksid vaadata sisu Microsofti toodete, teenuste ja tehnoloogiate kohta. Kuna artikkel on masintõlgitud, võib see sisaldada sõnavara-, süntaksi- või grammatikavigu.

Täiendage oma oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×