Command button to sort using "Tag". Inherited dbase. PLEASE HELP!!!

[INeedAccessHelp]

Hi

Here is the function:

Public Function SortByTag(ctlCurrent As Control, frmCurrent As Form)

Dim SortOrd, FormName As String
SortOrd = ctlCurrent.Tag

If ctlCurrent.Tag = frmCurrent.OrderBy Then
frmCurrent.OrderBy = SortOrd & " DESC"
frmCurrent.OrderByOn = True
Else
frmCurrent.OrderBy = SortOrd
frmCurrent.OrderByOn = True
End If

End Function


Here is the Control Source of the field (Complete Date) attempted to be sorted:

=Nz(DLookUp("CompletionDate","CompletionInfo","RequestID= " & [Forms]![LookupReqFRM]![LookupRequests subform]![RequestID]))

The name of the command button to sort this field is "Complete Date". Here is the "On Click" expression:

=SortByTag([Complete Date],[Forms]![LookupReqFRM]![LookupRequests subform].[Form])

My question is, what should I set the "Tag" property to for this command button to work properly? The other (working) command buttons that perform this function use the "Control Source" of the field being sorted in it's "Tag" property.

Because the "Control Source" for this field is unusual, I cannot get the sort to work. Any ideas?

 

[RickSpr]

I think you would set it to the ControlSource property as usual, except omit the leading "=".

Rick Sprague

 

[INeedAccessHelp]

Thanks Rick, but that doesn't work. Any other ideas?

 

[RickSpr]

"It doesn't work" doesn't give me anything to go on. Did you get some kind of message? Rick Sprague

 

[VBslammer]

You can't sort a recordset that doesn't include the sort field (CompetionDate) in its recordsource, which is surely why you're using a DLookup to get at the field.

The Tag property has to refer to a valid field name in the underlying recordset, not a lookup value.

You may want to build a query for the form's recordsource that includes the date field so you can sort with it.
VBSlammer

Unemployed in Houston, Texas