Erro de execução 3008 - formulário com proteção não abre

Tenho um formulário chamado LOGIN que abre automaticamente quando o arquivo é aberto. Esse formulário requer que o usuário faça login para então ser aperto o formulário PRINCIPAL (este aqui é apenas um formulário que possui botões para ser abertos outros formulários que serão trabalhados).
Estou tentando proteger todos os registros desse formulário PRINCIPAL para que usuários não façam acessos simultâneos. BOm, ao proteger todos os registros ao tentar fazer login (para abrir o formulário principal) aparece a seguinte mensagem de erro:

Erro em tempo de execução '3008':

A tabela 'xxx' foi aberta em modo exclusivo por outro usuário,
ou foi aberta através da interface do usuário e não pode ser manipulada via programação.


O que faço?

Intrigante que quando tiro a fonte do registro do formulário principal ele abre, porém outros usuário também conseguem abrir simultaneamente e alterar registros.

Ah, se eu criar um formulário qualquer e colocar um botão para abrir ele abre. Será que o problema tá no botão de login?

Sugestões????

A ideia é que o banco não possa ser aberto por dois usuários ou que mais de um usuário possa logar mas não abrir outras tabelas? Se for o segundo caso, já tentou deixar a tabela de usuários desprotegida?

A ideia é impedir que o usuário entre no BD.

Criar atalho no desktop com o comando EXCL pra mim não serve, pois se futuamente mudar o arquivo de pasta ou fizer uma cópia dele não mais funcionará e tenho que pensar no usuário leigo.

Em "Opções do Access" > Clique na Guia Avançado > Passe o "Modo de abertura padrão" para EXCLUSIVO pra mim também não funciona porque a configuração é do Access e não do arquivo e aqui no trabalho temos outros arquivos que é necessário o trabalho simultâneo.


Então, estou tentando fazer esse bloqueio através da proteção do registro.


Pelo painel de navegação o formulário abre... estranho. É claro que na tela de login não aparece o painel de navegação. Acho que o problema estar no comando do botão que faz o login.

Já tentou criar uma tabela de nome tblLogado por exemplo com um campo Status que teria "Sim" ou "Não" para logado e deslogado? Quando um usuário tentar entrar, verifica esse campo. Se for "Não", muda para "Sim" e entra. Se for "Sim", avisa que já tem um logado e fecha. Tambem pode-se deixar esse formulário inicial aberto com uma mensagem informando quando o banco for liberado para a pessoa poder fazer seu login. Quando a pessoa logada sair, muda o "Sim" para "Não" novamente.

Muito complicado assim e não aguento mais mexer nesse BD... já foram tantos acréscimos até chegar ao resultado que queria.

Descobrindo a causa desse erro resolveria o problema.

Não é complicado. Seria só colocar no evento "Ao cerregar" do formulário de Login assim:

Código:

If DLookup("Status", "tblLogado", "Código=1") = "Não" Then
        CurrentDb.Execute "UPDATE tblLogado SET Status='Sim' WHERE Código=1"
Else
        MsgBox "Já existe um usuário logado"
        Application.Quit
End If

E no evento "Ao sair" do formulário ou em um botão usado para fechar o aplicativo:

Código:

CurrentDb.Execute "UPDATE tblLogado SET Status='Não' WHERE Código=1"

Resolvi de uma forma bem diferente:


Criei um atalho no desktop com o comando EXCL. utilizei o Winrar para transformar o arquivo de banco de dados e o atalho num arquivo .rar (ambos estão dentro do mesmo arquino rar). Na sequência transformei esse arquivo zipado em um executável, sendo que o executável vai abrir pelo atalho. Dessa forma o BD será aberto em modo exclusivo e não importa se o usuário leigo vai mover esse arquivo porque o atalho estar incorporado dentro do executável.


Valeu!!!

Você fez testes para ver se os dados realmente ficam gravados no banco?

Fiz sim, aliás o esquema de log que registra o usuário que criou ou fez modificação no registro está funcionando normalmente.