Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Show How A Form IS sorted
- Thread starter deadhead7
- Start date
try testing the Recordsource property.
If InStr(Me.RecordSource, "Order By"
> 0 Then
lblSort.Caption = "Sort Sequence: " & Mid(Me.RecordSource, InStr(Me.RecordSource, "Order By" + 9)
Else
lblSort.Caption = "No Sort Sequence Selected"
End If
Me.Refresh
PaulF
If InStr(Me.RecordSource, "Order By"
> 0 ThenlblSort.Caption = "Sort Sequence: " & Mid(Me.RecordSource, InStr(Me.RecordSource, "Order By"
+ 9)Else
lblSort.Caption = "No Sort Sequence Selected"
End If
Me.Refresh
PaulF
- Status
