'*******************************************
'Francisco Garcia Aguado (Bhuo)
'Esto va en un modulo BAS
'Option Explicit
Private Const MAX_FILENAME_LEN = 256
Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long


Function ExisteAccess() As Boolean
  Dim I As Integer, S2 As String
  Dim Buho As String
  S2 = String(MAX_FILENAME_LEN, 32) & Chr$(0)
  I = FindExecutableA(CurrentDb.Name & Chr$(0), vbNullString, S2)
  If I > 32 Then
   Buho = Left$(S2, InStr(S2, Chr$(0)) - 1)
   If Mid(Buho, InStrRev(Buho, "\") + 1) = "MSACCESS.EXE" Then
    ExisteAccess = True
   Else
    ExisteAccess = False
   End If
  else
    ExisteAccess = False
  End If
End Function