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

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

Microsoft Office Access 2007 kārto ierakstus augošā vai dilstošā secībā neatkarīgi no reģistru. Tomēr, rakstot dažas rindiņas Visual Basic for Applications (VBA) kods, varat kārtot tekstu, tās ASCII rakstzīmju vērtībām. Kārtošanu, balstoties uz ASCII vērtības atšķir lielos burtus no mazajiem burtiem, kā rezultāti reģistrjutīgā secībā.

Šajā tabulā parāda, kā augošā kārtošanas secība programmā Access atšķiras no secības reģistrjutīgu kārtošanu:

Iepriekš kārtošanas secība

Kārtot augošā secībā

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

Lai gan rezultāti kolonnā augošā secībā varētu sākumā tiek parādīti nedaudz neparedzams, tie nav. "Kolonnā augošā secībā a" tiek rādīta pirms "A" un "B", tiek rādīts pirms "b". Tas notiek tāpēc, ka, novērtējot kā teksta vērtības, "A" = "" un "B" = "b" lielajiem vai mazajiem burtiem. Access ņemts vērā vērtību sākotnējo secību. Pirms kārtošanas secību kolonnā "" pirms "A" un "B" pirms "b".

Kad tiek veikta veikt reģistrjutīgu kārtošanu, teksta vērtības tiek aizstātas ar to ASCII vērtībām. Piemēram, A = 65 = 97, B = 66, b = 98 utt.

VBA koda rakstīšana

  1. Izveidojiet VBA moduli un ierakstiet šādu rindu deklarēšanas sekcija, ja tas vēl nav norādīts:

Opcija precīzas

  1. Ierakstiet tālāk norādīto procedūru modulī Visual Basic redaktorā:

    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. Ja pārvietojat kārtošanas lauka nosaukumu šai funkcijai, to kārtot lauka vērtības reģistrjutīgā secībā.

  2. Tagad izveidojiet vaicājumu, no kuras zvanīs šo funkciju.

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

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

  4. Velciet režģim laukus, ko vēlaties.

  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īgi 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ā, vērtības, kas sākas ar lielajiem burtiem parādīsies pirms tiem, kas sākas ar mazajiem burtiem. Lietojot dilstošā secībā kārtot dara otrādi.

  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

Paplašiniet savas Office 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.

×