[AccessD] Broken References in Runtime AXP

Gustav Brock gustav at cactus.dk
Wed Jul 23 14:30:44 CDT 2003


Hi John

In most cases this could be done. However ... DAO or ADO could be lost
as well (not very likely I know, but it could) and then your code
would fail.
The other primitive code using DoCmd _will_ run if Access runs and I
feel that has the highest priority.

/gustav


> Hey, that is seriously cool stuff (if it works of course).  I modified the
> code as follows:

>     Dim strSQL As String
>    On Error Resume Next

>     strSQL = "SELECT Left$('asdf',1) AS Test;"
>    ' Run the query qryTestRefs you created and trap for an error.
> '   Set rs = db.OpenRecordset("qryTestRefs", dbOpenDynaset)
>    Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)

> The idea is to simply build an SQL statement "on the fly" that uses the
> left$ function.  then open the recordset using the SQL string rather than a
> specific query referencing a specific table.

> This allows me to avoid having to have that query built and in the target
> database, i.e. avoids "knowing about the target".

> Which allows me to throw this out in my framework and just call the function
> as part of my framework startup.  I just finished doing that.

> It would be nice to get some testing done to see what happens when a
> reference breaks.  For example what happens if you reference a specific
> office file and the office location is different on the target?  This
> tecnique would still fail (obviously) but it would be handy in that case to
> pop up a message explicitly telling the user (who could tell the developer)
> what fully pathed file could not be found.

> This thing could be seriously handy!

> John W. Colby
> www.colbyconsulting.com



More information about the AccessD mailing list