מיון רשומות בסדר תלוי-רישיות

Accessממיין רשומות בסדר עולה או יורד ללא קשר למקרה. עם זאת, על-ידי כתיבת מספר שורות של קוד Visual Basic for Applications (‏VBA), באפשרותך למיין טקסט לפי ערכי תו ASCII שלו. מיון על בסיס ערכי ASCII מבדיל בין האותיות רישיות לאותיות הקטנות, והתוצאה היא סדר תלוי רישיות.

הטבלה הבאה מדגימה את האופן בו סדר מיון עולה ב- Access שונה מסדר מיון תלוי רישיות:

סדר מיון מראש	סדר עולה	סדר תלוי רישיות
c	a	A
D	A	B
a	B	C
d	b	D
B	c	a
C	C	b
A	D	c
b	d	d

על אף שהתוצאות בעמודה 'סדר עולה' עשויות להופיע תחילה באופן בלתי צפוי, במידה מסוימת, לא כך המקרה. בעמודה 'סדר עולה', "a" מופיע לפני "A" ו- "B" מופיע לפני "b". בעיה זו מתרחשת מכיוון שכאשר הן מוערכות כערכי טקסט,"A" = "a" ו- "B" = "b", בין אם מדובר באותיות קטנות או באותיות רישיות. Access לוקח בחשבון את הסדר המקורי של הערכים. בעמודה 'סדר מיון מראש', "a" מופיע לפני "A" ו- "B" מופיע לפני "b".

כאשר מתבצעת פעולת המיון של ערכים תלויי רישיות, ערכי הטקסט מוחלפים בערכי ה- ASCII שלהם. לדוגמה, A = 65,‏ a = 97,‏ B = 66,‏ b = 98 ועוד.

כתיבת קוד ה- VBA

צור מודול VBA והקלד את השורה הבאה במקטע 'הצהרות', אם היא עדיין לא מופיעה שם:

Option Explicit

הקלד את ההליך הבא במודול בעורך Visual Basic:

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

ניתן ליצור את הפונקציה הקודמת המוגדרת על-ידי המשתמש, StrToHex, מתוך שאילתה. כאשר אתה מעביר את השם של שדה המיון לפונקציה זו, הוא ימיין את ערכי השדה בסדר תלוי רישיות.

כעת, צור שאילתה שממנה תקרא לפונקציה זו.

בכרטיסיה יצירה, בקבוצה שאילתות, לחץ על עיצוב שאילתה.
בחר הוסף טבלאות (הצג טבלה ב - Access).
גרור את השדות הרצויים לרשת.
בעמודה הריקה הראשונה, בשורת השדה, הקלד Expr1: StrToHex([SortField]).

StrToHex היא הפונקציה המוגדרת על-ידי המשתמש שיצרת קודם לכן. SortField הוא שם השדה המכיל את הערכים תלויי הרישיות.
בתא מיין, לחץ על בסדר עולה או בסדר יורד.

אם תבחר בסדר עולה, יופיע ערך שמתחיל באותיות רישיות לפני אלה שמתחילות באותיות קטנות. החלת מיון בסדר יורד עושה את ההפך.
עבור לתצוגת גיליון נתונים.

Access מציג את הרשומות, ממוינות לפי סדר תלוי רישיות.

לראש הדף

מיון רשומות בסדר תלוי-רישיות

כתיבת קוד ה- VBA

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

האם מידע זה היה שימושי?

תודה על המשוב!