Run Access Function from Excel without opening database

[JackDanIce]

Hi,

I have the following working code in Excel that inserts a record into an Access database table.

Can it be re-written so that there is no open/close of the database application?

Sub New_Job_DB_Test()


    Dim r   As Range: Set r = wAdd_Job.Range("New_Job_Record")
    
    With CreateObject("Access.Application")
        .OpenCurrentDatabase Database_Params(3)
        .Run("Return_Job_ID", r.Cells(1, 1).Value, wAdmin.Range("Client_ID").Value, r.Cells(1, 3).Value, r.Cells(1, 4).Value, r.Cells(1, 5).Value, r.Cells(1, 6).Value)
        .CloseCurrentDatabase
        .Quit
    End With


    Set r = Nothing
    
End Sub

TIA,
Jack

 

[Norie]

What does the function in Access actually do?

If you want to insert data into Access from Excel without opening the database you should look at using ADO.

 

[JackDanIce]

The function in Access triggers another macro that updates records into a table from data imported from Excel.

Apart from testing feedback, the project is complete, I left the code as was with it opening the database