Test for Exclusive state..... 1

[flaniganmj]

Howdy all,

This should be rather easy. I'm running a variety of imports from Excel and other databases; however, I would just like to make sure that the database is open in the 'Exclusive' mode before these updates take place. There has got to be some simple code to test for this state. Any help is appreciated.

Thanks,

flan

 

[VBslammer]

Something like this:

Function IsExclusive() As Boolean
  Dim strMode As String

  strMode = "Mode=Share Deny Read|Share Deny Write"

  IsExclusive = InStr(CurrentProject.Connection, strMode) > 0
End Function

VBSlammer

Unemployed in Houston, Texas

 

[flaniganmj]

VB,

That is exactly what I needed. I wouldn't have thought to use that approach.

Thanks and have a star,

flan