Question

I have a MS Access database with a Public Function defined in VBA, stored in Module1. I would like to include the function as part of a query which is handed to ADODB from VB6 by ADODB.RecordSet’s Open method.

The VBA function is called IsOpcodePresent and takes two parameters which are provided in the query.

The query (abbreviated) is

SELECT * FROM tbl WHERE IsOpcodePresent(example,syl) order by syl;

Can this be done? If I use standard Access functions like IsNull, then it works. But with my own function it doesn’t.

Answer 1

Function GetAccessRecordset(sDatabase As String, sSQL As String) As Variant
    Dim oAccess As Object
    Set oAccess = CreateObject("Access.Application")
    oAccess.OpenCurrentDatabase (sDatabase)
    oAccess.Visible = False
    Dim dbs As Object
    Set dbs = oAccess.CurrentDb.OpenRecordSet(sSQL)
    GetAccessRecordset = dbs.GetRows(dbs.RecordCount)
    dbs.Close
    oAccess.Quit
End Function

This is what I wanted. It works fine provided one has either no script blocking or else that the script is signed and the database accepts the signature. It gives me the 2D array of results and lets me use script-based functions.