Ajuda com Código Entrar do Login

Olá, bom dia pessoal.

Senhores mais uma vez venho pedir ajuda de vocês para resolver os seguintes problemas:

1) Estou usando esse Código no botão "Entrar" do form "Login". Está logando e mostrando o Usuário logado blz.
Porém, ao digitar uma senha errada, quando clico no botão Entrar, não está startando o MSgBox. Já procurei formas e pesquisei aqui no Forum mais não consegui resolver.

Por favor tem como vocês me ajudarem mais uma vez?

Segue o Código:

Private Sub cmdEntrar_Click()
On Error Resume Next
Dim Identificacao As Integer
If verificaLogin(txtUser, txtSenha) Then
If Me.txtSenha.Value = DLookup("[Senha]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[tblUsuarios]", "[User] = '" & Me.txtUser & "'")
Select Case Identificacao


Case 1
stDocName = "frmMenus"
Case 2
stDocName = "frmManutenção"
Case 3
stDocName = "frmMenus"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtUser.SetFocus
Me.txtSenha.Value = ""
Exit Sub
End If
End If
End Sub

2) Não estou conseguindo colocar senha no Banco de Dados.

Estou fazendo o seguinte:

Banco de dados aberto> Arquivo> Abrir> Caixa de Diálogo> escolho DB> na Combox Abrir> Abrir Exclusivo.

Só que vai direto para o Form de Entrada. Não abre opção para digitar a Senha ou outra função...

Existe outra opção além dessa para colocar senha no BD? E como faço?


Desde já agradeço a todos que fazem do MaximoAccess essa belíssima fonte de aprendizado e conhecimento.

Deus continue abençoando a todos...

Cada usuário tem que ter uma senha diferente?

Sim. Cadastrei 4 usuários e no form cadUsuarios o adm cadastra se precisar.

Boa tarde;

Aparentemente não vejo erro no código, se possivel anexe seu banco para vermos.

No caso da senha no banco desabilite o form que abre inicialmente, feito isso abrindo em

modo exclusivo conseguirá colocar a senha.

Francisco

Você escreveu:

"Banco de dados aberto> Arquivo> Abrir> Caixa de Diálogo> escolho DB> na Combox Abrir> Abrir Exclusivo.

Só que vai direto para o Form de Entrada."

Se está indo para o form de entrada, é porque foi definido para ele ser o primeiro formulário a ser aberto, quando
iniciar o aplicativo.
Verifique nas opções do Access -> banco de dados atual e/ou na macro autoexec ( usada para fazer alguma operação ao abrir o aplicativo)
se é isso mesmo e mude para que o teu formulário de login seja o primeiro.

[ ]'s

No caso do código, ao abrir o frm login quando inicia e digito usuário e senha, se for a senha correta, abre o form principal. Se for senha errada, ao clicar no botão Entrar não mostra a MsgBox.

Quanto ao BD, não tenho como enviar pois estou usando o celular. Estou na briga com o provedor de Internet. Tá uma porcaria...

Bom dia pessoal,
Tem como nesse script fazer rodar a função:
If Not Is Null (txtUser) ou Not Is Null (txtSenha)

Quando troco pela função "verificaLogin" ao digitar senha errada mostra a mensagem.

Colocando as duas funções juntas da erro no acesso.

Desde já agradeço a todos pela ajuda.

Veja:

If Not IsNull(txtUser) or  Not IsNull(txtSenha)

IsNull() é uma função, portanto é junto.

Teste!

Boa tarde amigos. Consegui resolver de outra forma.

Vocês poderiam me dar uma dica sobre a senha do BD.

quando usuário acessar já fivar com a senha inerida. Alguns sistemas que baixei pra estudar, tem essa opção.

Quando clica no ícone, abre a caixa de solicitação da senha do BD já com a senha inserida para que o usuário nao tenha que inserir toda vez que entrar no aplicativo.

Desde já agradeço mais uma vez.

resolvido?

Bom dia Caio.

Quanto ao btentrar do login, consegui resolver.

Se for possível, gostaria de ajuda sobre como entrar no bd com senha, sem ter que sempre precise digitar a senha.

Se tiver um exemplo da certo também.

Desde já agradeço.

Sugiro que faça desse jeito, um form de adm e um de usuário.



http://www.mediafire.com/download/c6qw3tl3ebiwnx4/fml_login.accdb

Obrigado Caio, quando concluir vou disponibilizar no repositório de exemplos pra vocês analisarem.

Fico grato pela ajuda do fórum.

Por favor estou com pro na net aqui. Mas já pode ser fechado.

Resolvido