[AccessD] weird query def

Messagecould you send me the code?

John W. Colby
www.colbyconsulting.com

  -----Original Message-----
  From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark H
  Sent: Tuesday, July 01, 2003 3:06 PM
  To: 'Access Developers discussion and problem solving'
  Subject: RE: [AccessD] weird query def


  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...

  Mark
    -----Original Message-----
    From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of John Colby
    Sent: 01 July 2003 17:55
    To: Access Developers discussion and problem solving
    Subject: RE: [AccessD] weird query def


    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).

    Function QryFldLst(strDBName As String, strQryName As String) As String
    On Error GoTo Err_QryFldLst
    Dim wks As DAO.Workspace
    Dim dbs As DAO.Database
    Dim fld As DAO.Field
    Dim str As String
    Dim qdf As DAO.QueryDef
        Set wks = DBEngine(0)
        Set dbs = wks.OpenDatabase(strDBName)
        Set qdf = dbs.QueryDefs(strQryName)
        For Each fld In qdf.Fields
            If Len(str) > 0 Then
                str = str & ";"
            End If
            str = str & fld.Name
        Next
        If Len(str) = 0 Then
            MsgBox strQryName & " NOT FOUND in " & "QryFldLst"
        Else
            QryFldLst = str
        End If

    Exit_QryFldLst:
    On Error Resume Next
        Set fld = Nothing
        If Not (dbs Is Nothing) Then dbs.Close: Set dbs = Nothing
        If Not (wks Is Nothing) Then wks.Close: Set wks = Nothing
    Exit Function
    Err_QryFldLst:
        Select Case Err
        Case 0      '.insert Errors you wish to ignore here
            Resume Next
        Case Else   '.All other errors will trap
            Beep
            MsgBox Err.Description, , "Error in Function Module1.QryFldLst"

            Resume Exit_QryFldLst
        End Select
        Resume 0    '.FOR TROUBLESHOOTING
    End Function

    John W. Colby
    www.colbyconsulting.com

      -----Original Message-----
      From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Mark H
      Sent: Tuesday, July 01, 2003 12:38 PM
      To: 'Access Developers discussion and problem solving'
      Subject: RE: [AccessD] weird query def


      John

      I just tried it using Access XP and a recordset and it worked.

      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...

      hth

      Mark
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030701/1c34738d/attachment-0001.html>