[AccessD] Leave a bound form in a library.

 > It can be done using OpenCurrentDatabase and also,
 > possibly, dbEngine(0)(1).

Hmm...  what does that do for me?

I am using a method to take three parts of the sql statement and build them up dynamically.

'
'Open the currentdb and hold a pointer to it for speed.
'
Function dbDAOCurr() As DAO.Database
Static db As DAO.Database
     If db Is Nothing Then
         Set db = CurrentDb
     End If
     Set dbDAOCurr = db
End Function

'
'Take the SELECT, Where and Orderby parts of a SQL statement and build them into
'a sql string, inserting the name of the current database.
'
Function mPLSSQL(strObjSelect As String, Optional strWhere As Variant, Optional strOrderBy As 
Variant) As String
Dim strSQL As String
     strSQL = strObjSelect
     strSQL = strSQL & " in '" & dbDAOCurr.name & "' "
     If Not IsMissing(strWhere) Then
         strSQL = strSQL & strWhere & " "
     End If
     If Not IsMissing(strOrderBy) Then
         strSQL = strSQL & strOrderBy
     End If
     mPLSSQL = strSQL
End Function


John W. Colby
www.ColbyConsulting.com


Michael Mattys wrote:
> Hi John,
> 
> That's how I usually do it, but I am aware that
> It can be done using OpenCurrentDatabase and also,
> possibly, dbEngine(0)(1).
> 
> Michael R Mattys
> Business Process Developers
> www.mattysconsulting.com
> 
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of jwcolby
> Sent: Tuesday, August 31, 2010 9:38 PM
> To: Access Developers discussion and problem solving
> Subject: [AccessD] Leave a bound form in a library.
> 
> One of the challenges of using an "addin" library is placing forms in the
> add-in but having them 
> load records from the FE.  For example if I make a bound form to load the
> users table but I leave 
> that form in the library (add-in), then when the form opens it tries to load
> the data from the table 
> in the library.  IOW a form tries to pull its data from whatever container
> it is placed in.
> 
> One way around that is to use the "in 'MyFePath\MyDbName.mdb' syntax that is
> valid in access.  As an 
> example SQL to pull the records from the FE might look as follows:
> 
> SELECT * FROM usystblPLSObjFrm in 'C:\Dev\C2DbPLS\C2DbPLS.mda' ORDER BY
> PLSF_Name;
> 
> This would obviously pull all fields from the table usystblPLSObjFrm
> physically located in 
> C:\Dev\C2DbPLS\C2DbPLS.mda.
> 
> This is a PITA and requires jumping through hoops but that is the only
> solution that I know of.
> 
> If any of you know of another solution please let me know since I do have to
> get adept at hoop 
> jumping to do it my way.
> 
> Thanks,