[Resolvidos]Uso exclusivo de formulário em BD compartilhado, impedir usuários simultaneos

Olá,
tenho um BD compartilhado em uma pequena rede, porém que nao usa sistema backend/frontend.
Preciso que um determinado formulário seja bloqueado ao uso a um segundo usuário, enquanto um primeiro usuario o esteja usando.

Como é possivel fazer?

Obrigado e abraços

Olá;

Utilize a função IsLoaded:

Function IsLoaded(ByVal strFormName As String) As Integer
' Retorna True se o formulário especificado estiver aberto
' no modo Formulário ou no modo Folha de Dados.
Const conObjStateClosed = 0
Const conDesignView = 0

If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
If Forms(strFormName).CurrentView <> conDesignView Then
IsLoaded = True
End If
End If
End Function


Para executar o código faça assim:

Private Sub SeuBotaoAbrirFormulario_Click()

If IsLoaded("NomeDoFormulario") Then
MsgBox "Formulário em uso, aguarde..."
Else
Exit Sub
End If

End Sub

Valeu Jpaulo.

Muito obrigado.