I can not get my program to use:
ReplaceOrderByClause and ReplaceWhereClause

The Following Error Message Appears: "Compile Error: Sub or function not Defined"

I have checked all the references but there is no missing or broken on in my list

Please any anybody can help

Thank you

Zaff,

I didn't write that chapter, but it seems ReplaceOrderByClause() isn't provided in the text. Here's something I knocked up to get you out of trouble:

Public Function ReplaceOrderByClause(strSQL As String, strNewOrderByClause As String) As String
    'Replace the OrderBy clause in an SQL string
    Dim strSQLTmp As String
    Dim intPos As Integer

    intPos = InStrRev(UCase(strSQL), "ORDER BY", -1)

    ReplaceOrderByClause = Left(strSQL, intPos + 8) & strNewOrderByClause
End Function

The above function does not take account of order direction (for example, ASC or DESC).

Graham R Seach
Microsoft Access MVP

Thanks Graham for your Quick response

What I have done I used simpler method than it is mentioned in the book, to get the form.recordsource updated.

I constructed the SQL Statement to select the fields from the tables, and " Order BY <fieldname>" is added to the Statement based on the user selection, so when he choose to sort by <name> VBA will add " Order By tblP_Card.name" to Select Statement, in away I found it much easier than using ReplaceOrderByClause.

Also when I downloaded the sample it run with no problem, but when I put it in my system it did not

Thanks again