problem making a function applicable in DAP

[guny]

I'm new to DAP, I tried to change SQL of a Query by clicking a button in DAP, but don't know how to realize it. What I can do is to change SQL of Query in module. Anybody knows how to write Script about it?

Function ChangeQueryDef(strQuery As String, strSQL As String) As Boolean
    If strSQL = "" Or strQuery = "" Then Exit Function  
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs(strQuery)    
    qdf.SQL = strSQL
    qdf.Close
    RefreshDatabaseWindow    
    ChangeQueryDef = True    
End Function

[Scott Price]

It looks to me like you are wanting a parameterized query, which will give the end users a 'search' capability based on the parameters you let them see.

I'm adding this link here to an identical posting by the OP in the SQL Server forum:http://www.thescripts.com/forum/thread693891.html

A general rant about DAP... Microsoft has ceased supporting them with A2007. A2007 will not even open them, so it looks like MS has decided they are a dead end technology. If you have invested heavily in them, I'm sorry to hear it! However, if you aren't too far in to be able to back up, I'd suggest taking a look at other technologies to make your database accessible via the Internet.

Regards,
Scott