Checke om det er en MDE eller en MDB der kører

Not sure what you mean with with "..Jeg tænker på om det vil give problemer med exclusiv adgang og anten M$ fnidder så ma ikke får det forventede resultat alligevel." Hugo, but I think this code should tel you if it is a MDE/ADE or MDB/MDP.


Returns True if ADE/MDE


Function IsADE() As Boolean

On Error Resume Next

    Dim strMDEADE As String
       
    If CurrentProject.ProjectType = acMDB Then
        strMDEADE = CurrentDb.Properties("MDE").Value
    Else  'type acADP
        strMDEADE = CurrentProject.Properties("MDE").Value
    End If
   
    IsADE = (Err.Number = 0 And strMDEADE = "T")

End Function

mvh
Terry

Hej Terry - long time since last :-)

Jeg tænkte ved om man kan få problem med at finde filnavn hvis db er åben exclusiv, men er kommet til at tænke over at det da vist ikke er noget problem.

Hi Hugo, what are you up to now?
Could you use the code I gave?

The code works fine as far at I have tested.

Well I left the company Jamo I was working for because they closed down and moved to China.  I have then been out of work for a period but now I am driving truck with windows (no no not the M$ kind) and doors to customers in the whole country. So that is quite different from the IT work that I have been doing for so many years :-)

Yes it does sound different. But your obviously still keeping your hand in with Access.

That is one thing I have no plans of giving up :-)