I have a subroutine that sets up how i want my records to be sorted when my report is opened. Type1 is a combobox on my form, go ahead and ignore the Arrow stuff. All these cases will order correctly except for %IR, %IX, %IZ. The only thing I can think of is that it has something to do with having a percent sign (%) as the leading character of my field. Perhaps the OrderBy property will not allow symbols like these as leading characters in a string? Any thoughts would be excellent as I'm spent and can't think of what else the issue may be.
Public Sub SortHowStats()
ArrowsOff
Reports!StatsOnly.OrderByOn = True
Select Case Me.Type1
Case "Core Loss"
Reports!StatsOnly!ArrowCore.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "Conductor Loss"
Reports!StatsOnly!ArrowLoad.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "Total Loss"
Reports!StatsOnly!ArrowTotal.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "100% Voltage Excitation Current"
Reports!StatsOnly!ArrowEC.Visible = True
Reports!StatsOnly.OrderBy = "Excitation Current"
Case "Load/Conductor Losses 50% Load"
Reports!StatsOnly!ArrowLoad50.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "Total Loss 50% Load"
Reports!StatsOnly!ArrowTotal50.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "Efficiency @ 100% Load"
Reports!StatsOnly!ArrowEfficiency100.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "Efficiency @ 50% Load"
Reports!StatsOnly!ArrowEfficiency50.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "%IR"
Reports!StatsOnly!ArrowIR.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "%IX"
Reports!StatsOnly!ArrowIX.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "%IZ"
Reports!StatsOnly!ArrowIZ.Visible = True
Reports!StatsOnly.OrderBy = Me.Type1
Case "% Regulation @ PF=0.8"
Reports!StatsOnly!ArrowRegEight.Visible = True
Reports!StatsOnly.OrderBy = "RegEight"
Case "% Regulation @ PF=1.0"
Reports!StatsOnly!ArrowRegOne.Visible = True
Reports!StatsOnly.OrderBy = "RegOne"
Case Else
Reports!StatsOnly.OrderByOn = False
End Select
End Sub