<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1106" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=968500219-01072003>Not
sure if this is any help, but I just tried it using ADO with the function, query
and table in db1 and the code for getting the field names from an
adodb.recordset in db2 (which also referenced db1). Worked
fine...</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=968500219-01072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=968500219-01072003>Mark</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Tahoma size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com] <B>On Behalf Of </B>John
Colby<BR><B>Sent:</B> 01 July 2003 17:55<BR><B>To:</B> Access Developers
discussion and problem solving<BR><B>Subject:</B> RE: [AccessD] weird query
def <BR><BR></FONT></DIV>
<DIV><SPAN class=238315216-01072003><FONT face=Arial color=#0000ff size=2>Yes,
but were you running the code inside the database with the function? I
am talking about a wizard where the code is external to the query db. It
opens the database, sets a querydef and looks at the field collection.
>From OUTSIDE the db that has the query and function it is not working here
(in A2K).</FONT></SPAN></DIV>
<DIV><SPAN class=238315216-01072003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=238315216-01072003><FONT face=Arial color=#0000ff
size=2>Function QryFldLst(strDBName As String, strQryName As String) As
String<BR>On Error GoTo Err_QryFldLst<BR>Dim wks As DAO.Workspace<BR>Dim dbs
As DAO.Database<BR>Dim fld As DAO.Field<BR>Dim str As String<BR>Dim qdf As
DAO.QueryDef<BR> Set wks = DBEngine(0)<BR>
Set dbs = wks.OpenDatabase(strDBName)<BR> Set qdf =
dbs.QueryDefs(strQryName)<BR> For Each fld In
qdf.Fields<BR> If Len(str) > 0
Then<BR> str
= str & ";"<BR> End
If<BR> str = str &
fld.Name<BR> Next<BR> If Len(str) = 0
Then<BR> MsgBox strQryName & "
NOT FOUND in " & "QryFldLst"<BR>
Else<BR> QryFldLst =
str<BR> End If<BR>
<BR>Exit_QryFldLst:<BR>On Error Resume Next<BR> Set fld =
Nothing<BR> If Not (dbs Is Nothing) Then dbs.Close: Set dbs
= Nothing<BR> If Not (wks Is Nothing) Then wks.Close: Set
wks = Nothing<BR>Exit Function<BR>Err_QryFldLst:<BR> Select
Case Err<BR> Case 0 '.insert
Errors you wish to ignore here<BR>
Resume Next<BR> Case Else '.All other errors
will trap<BR>
Beep<BR> MsgBox Err.Description, ,
"Error in Function Module1.QryFldLst"</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=238315216-01072003><FONT face=Arial color=#0000ff
size=2> Resume
Exit_QryFldLst<BR> End Select<BR> Resume
0 '.FOR TROUBLESHOOTING<BR>End
Function<BR></FONT></SPAN></DIV>
<P><FONT size=2>John W. Colby<BR>www.colbyconsulting.com</FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Mark
H<BR><B>Sent:</B> Tuesday, July 01, 2003 12:38 PM<BR><B>To:</B> 'Access
Developers discussion and problem solving'<BR><B>Subject:</B> RE: [AccessD]
weird query def <BR><BR></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003>John</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=187103516-01072003>I
just tried it using Access XP and a recordset and it
worked.</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=187103516-01072003>I
created a query with a column called "X" which was the result of a function
which multiplies table columns a and c. I then created an adodb.recordset,
cycled through the fields and managed to debug.print each fields name. "X"
was there...</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003>hth</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=187103516-01072003>Mark</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left><FONT
face=Arial color=#0000ff
size=2></FONT> </DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>