[Resolvido]como colocar msg box nesse codigo?

eu tenho este código simples de login e senha e queria implementar ele com algumas mensagens de aviso ao usuario se alguém poder mim ajudar muito obrigado


Mensagem de aviso/alerta caso o email digitado esteja incorreto conforme solicitado
Mensagem de aviso/alerta caso a senha do usuário esteja incorreta, conforme solicitado
Mensagem de aviso/alerta caso o funcionário não possua acesso ao sistema, conforme solicitado
Mensagem de aviso/alerta caso o funcionário realize com sucesso o login, conforme solicitado


Option Compare Database
Option Explicit

Private Sub cmdConfirmar_Click()
Dim Identificacao As Integer

   If Me.txtSenha.Value = DLookup("[Senha]", "qryTemAcesso", "Email = '" & Me.txtLogin & "'") Then
   
       DoCmd.Close
       DoCmd.OpenForm "frmMenu"
   Else
       MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
       Exit Sub
   End If
End Sub

Temos exemplos de Login bem completo no repositório.. Porque não os utiliza?

Cumprimentos.

eu já tenho o codigo de login eu só quero implementar ele com essa mensagens de alerta
tem com alguém inserir elas neste codigo?
obrigado

Olá amigo,

Você declarou uma variável chamada Identificacao. Onde ela entra em seu código? Outro detalhe é que na sua lógica você deseja que se abra
o formulário se a senha estiver correta, certo? Para isso, quer fechar o formulário de login e abrir o tal formulário.

DoCmd.Close acForm, "frmLogin", acSaveYes
DoCmd.OpenForm "frmMenu"

Outro detalhe txtLogin não deve ser uma variável, mas o nome da caixa de texto, certo? Troque por uma variável de verdade.

Dim strLogin As String
strLogin = txtLogin

If Me.txtSenha.Value = DLookup("[Senha]", "qryTemAcesso", "Email = '" & strLogin & "'") Then


Esses são apenas alguns detalhes.

Eu peguei esse codigo do bd niveis de segurança do jpaulo
e queria colocar na função selec case pra fazer as comparações  logicas
exemplo se o usuario digitou o login errado aparece um msgbox, e se ele tiver digitado um senha errada apareça a msgbox dissendo que ele digitou a senha errada, como fazer isso
obrigado



ai vai o codigo
obs: é so um exemplo

Option Compare Database

Private Sub cmdEntrar_Click()
Dim Identificacao As Integer

   If Me.txtSenha.Value = DLookup("[Senha]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'") Then
       Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[User] = '" & Me.txtUser & "'")
       Select Case Identificacao
           Case 1
               stDocName = "frmAdministrador"
           Case 2
               stDocName = "frmUsuario"
       End Select
       DoCmd.Close
       DoCmd.OpenForm stDocName
     Else
       MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
       Me.txtSenha.Value = ""
       Exit Sub
   End If

Olá amigo,

Se o código é de outra pessoa, no caso do JPaulo, fica difícil dar qualquer palpite. Você vai usar o código dele ou o seu? Veja bem, você quer adaptar os códigos. Com certeza, ele sabia o que estava fazendo e o código rodava. Se você tem dúvida quanto ao seu código fica difícil detectar onde possa estar o problema com códigos misturados. Por exemplo, o que é stDocName? É uma variável? Porque não está declarada? Qual é a função dela? Como está não vai abrir nenhum formulário. E quanto ao fechar o formulário de Login, você fez o que te passei?

DoCmd.Close acForm, "frmLogin", acSaveYes

vou mandar o bd simplificado pra vc da uma olhada

O código funciona normalmente como está abaixo, mas sem esquecer de criar o seu formulário FrmMenu.

Option Compare Database
Option Explicit

Private Sub cmdConfirmar_Click()


If Me.txtLSenha.Value = DLookup("[Senha]", "[qryTemAcesso]", "[Email] = '" & Me.txtLogin & "'") Then


DoCmd.Close acForm, "frmLogin", acSaveYes
DoCmd.OpenForm "FrmMenu"
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtLSenha.Value = ""
Exit Sub
End If
End Sub

eu quero só implementar no codigo essas mensagens box
obrigado

Olá Airton,

Se está resolvido o seu problema, não se esqueça de postal como tal. Sucesso !!!

eu quero que alguém possa implementar nesse codigo essas mensagens de alerta
obrigado

Airton.. Está abrindo novos típicos para a mesma dúvida. Isto contraria as regras do Fórum.


Bem.. poste seu código e as msgBox que deseja implementar.. Você estava em boas Mãos.. O GoodGuy é um dos  melhores desenvolvedores do Fórum..
Pena que não seguiu suas dícas..

Poste o código e msg que veremos isto pra ti.


Cumprimentos.

olá piloto o código e o banco de dados já foram postados nas mensagens anteriores se você poder mim ajudar
agradeço desde já

Msg caso o e-mail digitado seja incorreto..

Mas é uma caixa de combinação onde o usuário seleciona e-mail...ao iniciar a digitação ele já filtra possíveis e-mails coincidentes..

De detalhes dessa parte.

Cumprimentos.