ACC: Sorting Titles Without Leading Articles (The, An, or A) (98665)

SUMMARY

This article shows you how you can sort titles in Text fields without including the leading articles "the," "an," or "a."

This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.

NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access versions 1.x and 2.0. For more information about Access Basic, please refer to the "Introduction to Programming" manual in Microsoft Access version 1.x or the "Building Applications" manual in Microsoft Access version 2.0

Option Explicit

   Function Gettitle (Titles) As String
      sp = InStr(1, Titles, Chr$(32))
      If sp > 0 Then
         Select Case Left(Titles, sp - 1)
            Case "An", "A", "The"    ' add any other articles here!
               Gettitle = Mid(Titles, sp + 1)
            Case Else
               Gettitle = Titles
         End Select
      Else
          Gettitle = Titles
      End If
   End Function
				

     Query
   -----
   Field: Sorted List: Gettitle([Titles])
      Sort: Ascending
      Show: Yes
   Field: [Titles]
      Show: No