Sortera poster i skiftlägeskänslig ordning

Skriv VBA-koden

1. Skapa en VBA-modul och skriv följande rad i avsnittet Deklarationer om den inte redan finns:

   Option Explicit

2. Skriv följande procedur i en modul i Visual Basic Editor:

   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
   

   Den föregående användardefinierade funktionen StrToHex, kan anropas från en fråga. När du skickar namnet på sorteringsfältet till den här funktionen sorteras fältvärdena i skiftlägeskänslig sorteringsordning.

3. Skapa nu en fråga som du kommer att anropa den här funktionen från.

   Klicka på Frågedesign i gruppen Frågor på fliken Skapa.

4. Välj Lägg till tabeller (Visa tabell i Access).

5. Dra de fält du vill ha till rutnätet.

6. I den första tomma kolumnen, på raden Fält, skriver du Uttr1: StrToHex([SortField]).

   StrToHex är den användardefinierade funktionen som du skapade tidigare. SortField är namnet på det fält som innehåller de skiftlägeskänsliga värdena.

7. Välj Sortera celler Stigande eller Fallande.

   Om du väljer stigande ordning visas värdet som börjar med versaler före de som börjar med gemener. Om du använder en fallande sorteringsordning är resultatet motsatt.

8. Växla till databladsvy.

   Access visar posterna sorterade i skiftlägeskänslig ordning.

Överst på sidan