Impedir duas instancia do mesmo bd

Como faço para impedir que o mesmo bd sejá aberto mais de uma uma vez ao mesmoA tempo.
Grata

Olá! A sua ideia se refere à um mesmo pc ou mais de um pc em rede? Porque normalmente, quando no mesmo, ao tentar abrir um banco já existente, o foco vai para ele já aberto ao invés de abrir outra instância.

Cole estas funções num módulo global

Código:

Public Function fncIsRunning()
    Dim db As DAO.Database
    On Error Resume Next
    Set db = CurrentDb()
    If TestDDELink(db.Name) Then
        MsgBox "Aviso:" & vbCrLf & vbCrLf & "O Aplicativo já está em execução em" _
                & vbCrLf & "outra janela do Windows!", vbCritical, "2ª Instância do Aplicativo"
        Application.Quit acQuitSaveNone
    End If
End Function

' Função Auxiliar de IsRunning()
Private Function TestDDELink(ByVal strAppName$) As Integer
   
    Dim varDDEChannel
    On Error Resume Next
    Application.SetOption ("Ignore DDE Requests"), True
    varDDEChannel = DDEInitiate("MSAccess", strAppName)
   
  ' When the app isn't already running this will error
    If Err Then
      TestDDELink = False
    Else
        TestDDELink = True
        DDETerminate varDDEChannel
        DDETerminateAll
    End If
    Application.SetOption ("Ignore DDE Requests"), False

End Function

Chame pela função fncIsRunning() no seu formulário de abertura

Sucesso!

velino obrigado vou fazer

porque que quando converto em mde está funcão não funciona?
uso o access 2007

Pessoal vocês, poderiam me dar uma luz para poder implantar esse código para impedir que abra duas instancia do mesmo bd, quando está no formado de bd funciona, mas quando converto em mde não funciona,poderiam me dar uma luz. Obrigada

Olá amigos, ja tentei de todos os jeitos mas não está funcionando, abre outra instancia, percebi que se já faz algum tempo que o bd está aberto ai que abre mesmo. poderiam me ajudar a solucionar este problema. Obrigada

Como está o código no seu formulário de abertura?

O crio eu uso uma macro autoexec,

o codigo é esse:

Option Compare Database
Option Explicit

'***********************************************************************
' As duas funções a seguir rodam em qualquer versão do Access e servem
' para checar se já existe uma instância do arquivo mdb aberta.
' Caso positivo, a função IsRunning() não permite a nova abertura
' do banco de dados.
'
' FUNÇÕES: IsRunning() e TestDDELink(ByVal strAppName$)
'
'***********************************************************************

Function IsRunning()
Dim db As Database
Set db = CurrentDb()
If TestDDELink(db.Name) Then
MsgBox "Aviso:" & "@@O Aplicativo já está em execução em" _
& vbCrLf & "outra janela do Windows!", vbCritical, "2ª Instância do Aplicativo"
Application.Quit acQuitSaveNone
End If
End Function

' Função Auxiliar de IsRunning()
Function TestDDELink(ByVal strAppName$) As Integer

Dim varDDEChannel
On Error Resume Next
Application.SetOption ("Ignore DDE Requests"), True
varDDEChannel = DDEInitiate("MSAccess", strAppName)

' When the app isn't already running this will error
If Err Then
TestDDELink = False
Else
TestDDELink = True
DDETerminate varDDEChannel
DDETerminateAll
End If
Application.SetOption ("Ignore DDE Requests"), False

End Function

Você está chamando a função fncIsRunning() na macro? No adicionar código e inserir o nome da macro, ou seja, fncIsRunning().

to chamando assim =IsRunning() na macro

Tente só o que coloquei em vermelho na mensagem anterior.

Criquio se for no avento ao abrir de meu form principal, ficaria assim:

Private Sub Form_Open(Cancel As Integer)
fncIsRunning
End Sub


ai não precisaria usar macro?

Sim. No entanto, a vantagem da macro AutoExec é que o que estiver nela será executado antes de qualquer coisa, antes mesmo de abrir o formulário principal. Para esse caso, acho que pode ser até melhor.

Intendi, Criquio vc não tem um exemplo para me enviar para ver onde estou errando? Obrigada

Amanda, na sua macro AutoExec, na lista Ação, escolha "Executar código". Embaixo, no campo "Nome da função", coloque fncIsRunning()

Olá Amanda! Conseguiu resolver?