[Resolvido]Access 2007 login

Boa tarde.
Criei uma base de dados.
Fiz o formulário para o login
no botão que criei coloquei o seguinte código:
Username.SetFocus
If Username = "staff1" And Password = "staff1" Then
MsgBox "Access Granted", vbInformation, "CD Shop"
MsgBox "Welcome", vbInformation, "CD Shop"
DoCmd.Close
DoCmd.OpenForm "F_Switchboard"
ElseIf Username = "staff2" and Password = "staff2" Then
MsgBox "Access Granted", vbinformation, "CD Shop"
MsgBox "Welcome", vbinformation, "CD Shop"
DoCmd.Close
DoCmd.OPenForm "F_Switchboard"
ElseIf Username = "manager1" and Password = "manager1" Then
MsgBox "Welcome, Manager", vbinformation, "Manager Area"
MsgBox "Please Exercise Caution When Altering Back End", vbinformation, "Manager Area"
DoCmd.Close
DoCmd.OPenForm "F_Switchboard_Manager"
Else
MsgBox "Please re-enter your Username and Password."
End If

acontece que o código só corre uma vez, isto é cada vez que fecho a base de dados deixa de funcionar o botão em que o código está incerido, se alguem me poder ajudar

Olá Manuela....

Não entendi direito sua pergunta....

Quando você abre o formulário de Login, o botão não funciona??? é isso????

Desde já agradeço....

Abraço a todos!!!!

Bom dia
Testei seu código e funciona normalmente.
Não vi nenhum problema.

Aperfeiçoado;

Código:

Me.UserName.SetFocus

If Me.UserName = "staff1" And Me.Password = "staff1" Then
    Eval ("MsgBox ('" & "Access Granted" & "@ Welcome...@@',0,' CD Shop')")
    DoCmd.Close
    DoCmd.OpenForm "F_Switchboard"
ElseIf Me.UserName = "staff2" And Me.Password = "staff2" Then
    Eval ("MsgBox ('" & "Access Granted" & "@ Welcome...@@',0,' CD Shop')")
    DoCmd.Close
    DoCmd.OpenForm "F_Switchboard"
ElseIf Me.UserName = "manager1" And Me.Password = "manager1" Then
    Eval ("MsgBox ('" & "Welcome, Manager" & "@ Please Exercise Caution When Altering Back End@@',0,' Manager Area')")
    DoCmd.Close
    DoCmd.OpenForm "F_Switchboard_Manager"
    Else
    MsgBox "Please re-enter your Username and Password.", vbCritical
    Exit Sub
    Me.UserName.SetFocus
End If


E ae, Resolveu ?

Boa tarde o código apenas funciona uma vez. assim fecho a base de dados o código deixa de funcionar.
Alguem me ajuda pff

Algo está a fazer de errado;

Pode por favor anexar aqui parte do seu banco em .zip ?

Ola Paulo aqui vai o meu arquivo.

Tem de anexar em formato .zip

Aqui vai o arquivo

Ola Manuela;

Então é assim, você num formulario de login não pode nunca estar vinculada a uma tabela, tem de estar independente;

Veja o simples;

não posso ter uma tabela?
o k vosse me enviou também não dá

Pode e deve ter tabela, mas o forumalrio de login não pode estar ligado à tabela.

O Login é sempre feito, pelo que se escreve nas caixas de texto, senão estaria a alterar a tabela.

O que lhe enviei, funciona sim.

Você escolhe o user na combo, que vem da tabela e digita a password, pressiona o botão e se estiver correto, Entra.

já fiz o que disse e não dá
feche o acess e entre outra vez para ver se dá sff

Não vamos complicar a coisa...

O que é que de facto não dá ?

Eu fechei 10 vezes, e as 10 vezes escolhi o staff2, digitei na password staff2 e entrou sem problemas.

Escolhi staff1, digitei na password staff2 e deu a mensagem, "Please re-enter your Username and Password." e não entrou.

Acrescentei na tabela o "manager1", testei no login e tambem funcionou;

saiu mesmo do acess?

10 vezes...

Mas diga-me exatamente o que é que a si não dá ?

Dá erro, não entra, não aparece as mensagens.... ?????

exatamente não faz nada, não entra não dá a msg de erro nada de nada

Então deve existir algum problema com o seu Access.

O exemplo é dos mais basicos e sem nada de especial, funciona sempre e em qualquer circunstância.

Quando fecho o Access e volto a abrir, abre o form login, escolho o user e digito a password, se estiver correta abre o form inicio senão dá mensagem.

No seu caso se nada acontece, o conselho é:

Reinstalar o Office.

Só mais uma pergunta, você tem as seguranças de Macro desativadas ?

não sei, como vejo isso

Com o banco aberto,

Botão do Office
Access Options
Trust Center
Trust Center Settings
Macro Settings

E marque a opção:
Enable all macros

Muito obrigado pela sua ajuda
 já deu certo.
obrigado obrigado

Disponha.

Obrigado pelo retorno o forum agradece.

Utilize este ultimo exemplo, com as mensagens formatadas;