I found the following code which allows me to sort on the click event
of a labelbutton.

The problem occurs when I try to call the function directly from the
ClickEvent, instead of having the ClickEvent run its subroutine.
Any Ideas??

'THIS DOES NOT WORK:
= SortForm([Me],"CRNAME")
'The error is:
'The object doesn't contain the Automation object 'ME.'.

'THIS WORKS:
Private Sub lblSort1_Click()
Call SortForm(Me, "CRNAME")
End Sub

' this code is in Module1
Public Function SortForm(frm As Form, ByVal sOrderBy As String)
'Purpose: Set a form's OrderBy to the string. Reverse if already set.
'Return: True if success.
'Usage: Command button above a column in a continuous form:
' Call SortForm(Me, "MyField")
If Len(sOrderBy) 0 Then
' Reverse the order if already sorted this way.
If frm.OrderByOn And (frm.OrderBy = sOrderBy) Then
sOrderBy = sOrderBy & " DESC"
End If
frm.OrderBy = sOrderBy
frm.OrderByOn = True
End If
End Function

Thanks

On Feb 27, 12:08 pm, "ApexD...@gmail.com" <ApexD...@gmail.comwrote:

I found the following code which allows me to sort on the click event
of a labelbutton.
>
The problem occurs when I try to call the function directly from the
ClickEvent, instead of having the ClickEvent run its subroutine.
Any Ideas??
>
'THIS DOES NOT WORK:
= SortForm([Me],"CRNAME")
'The error is:
'The object doesn't contain the Automation object 'ME.'.
>
'THIS WORKS:
Private Sub lblSort1_Click()
Call SortForm(Me, "CRNAME")
End Sub
>
' this code is in Module1
Public Function SortForm(frm As Form, ByVal sOrderBy As String)
'Purpose: Set a form's OrderBy to the string. Reverse if already set.
'Return: True if success.
'Usage: Command button above a column in a continuous form:
' Call SortForm(Me, "MyField")
If Len(sOrderBy) 0 Then
' Reverse the order if already sorted this way.
If frm.OrderByOn And (frm.OrderBy = sOrderBy) Then
sOrderBy = sOrderBy & " DESC"
End If
frm.OrderBy = sOrderBy
frm.OrderByOn = True
End If
End Function
>
Thanks

Me is a keyword only availbe in VB. It does not exist outside a code
module.
If you need the function directly in the event property box, you'll
likely have to refer to the form explicitly.
= SortForm(Forms!FormName,"CRNAME")

I think it's better to leave it in the event proceedure anyway.

ThanksMike

>I think it's better to leave it in the event proceedure anyway.

Since I will use this for quite a few fields, I thought it best to
avoid cluttering my existing code with all the extra procedures.

= SortForm(Forms!FormName,"CRNAME")
This worked great!

ThanksAgain
Greg

ApexData@gmail.com wrote:

>I found the following code which allows me to sort on the click event
>of a labelbutton.
>
>The problem occurs when I try to call the function directly from the
>ClickEvent, instead of having the ClickEvent run its subroutine.
>Any Ideas??
>
>'THIS DOES NOT WORK:
>= SortForm([Me],"CRNAME")
>'The error is:
>'The object doesn't contain the Automation object 'ME.'.

[Form] (or [Report]) is the equivalent of [Me] in a control
source or property expression.

--
Marsh

On Feb 27, 1:56 pm, Marshall Barton <marshbar...@wowway.comwrote:

ApexD...@gmail.com wrote:

>

>

>
[Form] (or [Report]) is the equivalent of [Me] in a control
source or property expression.
>
--
Marsh

Without the name?
I didn't know that if so.