[Resolvido]Função IsLoaded - Ajuda no funcionamento

Boas.
Tenho uma aplicação que está numa pequena rede e queria que um formulário não fosse aberto por utilizadores simultaneos, à semelhança do que foi feito neste exemplo que encontri aqui: http://maximoaccess.forumeiros.com/t419-resolvidosuso-exclusivo-de-formulario-em-bd-compartilhado-impedir-usuarios-simultaneos?highlight=exclusivo

O formulário em que pretendo fazer isto é o "frmCalender", que é aberto quando se clica no botão "Entrar".
Coloquei o código da função IsLoaded neste form e o código para chamar esta função no botão "Entrar", mas por qualquer motivo que não estou a conseguir descobrir, não está a funcionar. Já testei na rede e abre em simultâneo em vários utilizadores. Alguem pode ajudar?

Cumprimentos,
Burita

Jorge

É só colocar a função Isloaded() na modulo global, onde ela deve ficar.
Está com 2 funções no aplicativo, isso da conflito, deixe somente uma no módulo citado.

[]'s

Noob

Boas Noobezinho,
já coloquei a função no módulo global. Mas não consigo testar porque quando coloco a parte do código no botão "Entrar", que abre o formulário que quero que não seja aberto em simultaneo (frmCalender), não faz nada. Estou a fazer algo errado?
O código que estou a utilizar no botão "Entrar" é:
Private Sub Comando6_Click()
If IsLoaded("frmCalender") Then
MsgBox "Formulário em uso, aguarde..."
Exit Sub
Else
On Error GoTo Err_Comando6_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmCalender"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Exit_Comando6_Click:
Exit Sub

Err_Comando6_Click:
MsgBox Err.Description
Resume Exit_Comando6_Click

End Sub

Jorge

Acredito que a função isLoaded() não irá funcionar, já que cada formulário é aberto numa instância diferente.
Então eu criei uma tabela tblFormAberto.
Quando o formulário calendario abrir  deixa o campo frmAberto = True e quando fecha = False
Então, quando se clica no botão Entrar do Formulário inicio , ele verifica  esse campo na tabela
permitindo ou não abrir o form Calendário.

[]'s Noob

Boas.
Muito obrigado Noobezinho, grande ajuda mesmo.
Grato.

Abraço,
Burita

"Tamos" ai

Valeu o retorno

Boa sorte !

Noob