Ierakstu kārtošana reģistrjutīgā secībā

Svarīgi! :  Šis raksts ir mašīntulkots, skatiet atrunu. Lūdzu, skatiet šī raksta versiju angļu valodā šeit jūsu informācijai.

Microsoft Office Access 2007, neievērojot reģistru, kārto ierakstus augošā vai dilstošā secībā. Taču, rakstot dažas Visual Basic for Applications (VBA) koda līnijas, tekstu var kārtot pēc ASCII rakstzīmju vērtībām. Kārtošana ar pamatā esošajām ASCII vērtībām nodala lielos burtus no mazajiem, un rezultātā rodas reģistrjutīgā secība.

Nākamā tabula uzskatāmi parāda, kā augošā kārtošanas secība programmā Access atšķiras no reģistrjutīgās kārtošanas secības:

Iepriekšējās kārtošanas secība

Augošā secība

Reģistrjutīgas orde r

c

a

A

D

A

B

a

B

C

d

b

D

B

c

a

C

C

b

A

D

c

b

d

d

Kaut arī augošās secības kolonnas rezultāti vispirms varētu parādīties kā nenosakāmi, tomēr tie tādi nav. Augošās secības kolonnā “a” parādās pirms “A” un “ B” parādās pirms “b”. Tas rodas tādēļ, ka “A” = “a” un “B” = “b”, vai tie ir lielie vai mazie burti. Access ņem vērā vērtību sākotnējo secību. Iepriekšējās kārtošanas secības kolonnā “a” ir pirms “A” un “B” ir pirms “b.”

Kad reģistrjutīgās kārtošanas operācija ir paveikta, teksta vērtības tiek aizstātas ar to ASCII vērtībām. Piemēram, A = 65, a = 97, B = 66, b = 98 utt.

VBA koda rakstīšana

  1. Izveidojiet VBA moduli un deklarāciju sadaļā ierakstiet nākamo rindu, ja tādas tur nav:

Option Explicit

  1. Visual Basic redaktora modulī ierakstiet nākamo procedūru:

    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

    Iepriekš lietotāja definēto funkciju StrToHex var izsaukt no vaicājuma. Nododot kārtošanas lauka nosaukumu šai funkcijai, tā kārtos lauka vērtības reģistrjutīgā secībā.

  2. Tagad izveidojiet vaicājumu, kurā izsauksit šo funkciju.

    Cilnes Izveidot grupā Cits noklikšķiniet uz Vaicājuma noformējums.

  3. Dialoglodziņā Tabulas rādīšana noklikšķiniet uz tabulas, ko vēlaties kārtot un pēc tam noklikšķiniet uz Pievienot.

  4. Velciet vajadzīgos laukus uz režģa.

  5. Pirmās tukšās kolonnas rindā lauks ierakstiet Izteiksme1: StrToHex([SortField]).

    StrToHex ir iepriekš izveidotā lietotāja definētā funkcija. SortField ir lauka nosaukums, kurā ir reģistrjutīgās vērtības.

  6. Šūnā Kārtot noklikšķiniet uz Augošā secībā vai Dilstošā secībā.

    Ja izvēlaties kārtot augošā secībā, vispirms tiks parādītas tās vērtības, kas sākas ar lielajiem burtiem, un pēc tam tās, kas sākas ar mazajiem burtiem. Kārtojot dilstošā secībā— vērtības tiks parādītas pretējā secībā.

  7. Pārslēdzieties uz datu lapas skatu.

    Programma Access parāda ierakstus, kas sakārtoti reģistrjutīgā secībā.

Uz lapas sākumu

Piezīme : Mašīntulkošanas atruna. Šo rakstu ir tulkojusi datorsistēma bez cilvēka iejaukšanās. Microsoft piedāvā šos mašīntulkojumus, lai palīdzētu angliski nerunājošajiem lietotājiem izmanot saturu par Microsoft produktiem, pakalpojumiem un tehnoloģijām. Tā kā šis raksts ir mašīntulkots, tajā var būt leksikas, sintakses un gramatikas kļūdas.

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×