Pass Through With Parameters, how to read recordset

[mwolf00]

This function works

Function rwaInfo(MyParam As String)

         Dim MyDb As Database, MyQry As QueryDef, MyRS  As DAO.Recordset
         Set MyDb = CurrentDb()
         Set MyQry = MyDb.CreateQueryDef("")

         MyQry.Connect = "ODBC;DSN=abc;DBQ=def;UID=xxxxx;PWD=xxxxx"

         MyQry.SQL = "SELECT * FROM VAT WHERE RWA_NO = '" & MyParam & "'"

         MyQry.ReturnsRecords = True
         Set MyRS = MyQry.OpenRecordset()
         MyRS.MoveFirst

        'Debug.Print MyRS!rwa_no

         MyQry.Close
         MyRS.Close
         MyDb.Close

End Function

now I want to query the function from Access SQL and return all of the data in the recordset. Can this be done?

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook

 

[PHV]

Why not using a linked table instead ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[mwolf00]

The linked table returns the "too many indexes" error...

Programming today is a race between software engineers striving to build better and bigger idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. - Rick Cook

 

[Toga]

I would create the pass-through query as a query object, with it's own unique name. Then, query that query.

If you need to reference the RWA_NO for the query, just reference a field in a form you have open or recreate the query definition in code before running it.