Search results

Hi, I know this is an old thread but someone new might stumble across it: Try this function: Private Function isAppDbOpen(oApp As Access.Application) As Boolean Dim strDummy As String On Error GoTo isAppDbOpen_Error strDummy = oApp.CurrentDb.Name isAppDbOpen = True...