keep access invisible when using New Access.Application OpenCurrentDatabase

Rx_ · #1 (**permalink**) 07-28-11, 13:31

Passing in the database name and table name opens the database and makes it visible for a split second until line 35 is executed.
Any ideas on how to prevent this? Or how to accomplish the same result with out the quick flash?

(placeing line 35 at line 25 won't work either)

Code:

Function OldestDate(RemoteDatabase As String, RemoteTable As String)
10    On Error Resume Next
      Dim objAccess As Access.Application
20    Set objAccess = New Access.Application
30        objAccess.OpenCurrentDatabase RemoteDatabase
35          objAccess.Visible = False
40        OldestDate = objAccess.DMin("[Publish_Date]", RemoteTable)
50        If Err.Number = 2110 Then
60            OldestDate = 0  ' If table is deleted report 0 records
70            Err.Clear
80        End If
90        objAccess.CloseCurrentDatabase
100       Set objAccess = Nothing
End Function

apr pillai · #2 (**permalink**) 07-29-11, 12:41

Try after moving line 35 between 20 and 30.

HiTechCoach · #3 (**permalink**) 07-29-11, 17:03

Quote:

Originally Posted by apr pillai

Try after moving line 35 between 20 and 30.

The OP already said they tried that:

Quote:

(placeing line 35 at line 25 won't work either)

HiTechCoach · #4 (**permalink**) 07-29-11, 17:28

RX,

If I were doing this I would not launch another Access session just to get a value from a table.

I would open a recordset that uses the table in the other database. This avoids all the overhead of stating another instance of Access.

Internet Services

Web Development

Digital Marketing

Consumer Tech