colegas, como altero o modo altero o modo de abertura do banco em vba, ou seja eu quero abrir ora normal, ora exclusivo tem que ser em vba ok, como faço isto.



Abraços

Rogério

Rogério,

Como o Access vai saber a forma que você deseja abri-lo?
Na minha ignorância eu entendo que depois de aberto, o banco já está com o modo definido.
No meu caso uso atalhos diferentes utilizando /EXCL para abertura exclusiva.
Se desejar pode solicitar, via VBA, a reabertura do banco usando o mesmo procedimento.
Cordialmente,

Abaixo o código para saber a forma (exclusiva ou compartilhada) do BD que está aberto.

Quem sabe você não aproveita para alguma coisa.


Function fDBExclusive() As Integer
Dim DB As DATABASE
Dim hFile As Integer
hFile = FreeFile
Set DB = CurrentDb
On Error Resume Next
Open DB.name For Binary Access Read Write Shared As hFile
Select Case Err
Case 0
fDBExclusive = False
Case 70
fDBExclusive = True
Case Else
fDBExclusive = Err
End Select
Close hFile
On Error GoTo 0
End Function



Ewoks