MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]como colocar msg box nesse codigo?

    Compartilhe

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Qua 23 Out 2013, 18:22

    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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  HARYSOHN em Sab 26 Out 2013, 00:03

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Seg 28 Out 2013, 16:27

    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

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    Como colocar msg box nesse codigo?

    Mensagem  good guy em Seg 28 Out 2013, 16:47

    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.

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Seg 28 Out 2013, 17:40

    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

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    como colocar msg box nesse codigo?

    Mensagem  good guy em Seg 28 Out 2013, 18:52

    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

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Seg 28 Out 2013, 19:07

    vou mandar o bd simplificado pra vc da uma olhada
    Anexos
    salaPrAirton.consulta.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Mb) Baixado 10 vez(es)

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    como colocar msg box nesse codigo?

    Mensagem  good guy em Seg 28 Out 2013, 19:18

    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

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Ter 29 Out 2013, 11:02

    eu quero só implementar no codigo essas mensagens box
    obrigado

    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 920
    Registrado : 05/02/2010

    como colocar msg box nesse codigo?

    Mensagem  good guy em Ter 29 Out 2013, 13:05

    Olá Airton,

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

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Qua 30 Out 2013, 12:07

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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  HARYSOHN em Qua 30 Out 2013, 12:32

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    airtongt
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 55
    Registrado : 29/08/2013

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  airtongt em Qua 30 Out 2013, 12:42

    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á

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]como colocar msg box nesse codigo?

    Mensagem  HARYSOHN em Sab 02 Nov 2013, 22:06

    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.


    Última edição por HARYSOHN em Sab 01 Fev 2014, 10:43, editado 1 vez(es) (Razão : Tópico dado como resolvido por falta de resposta)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 05 Dez 2016, 04:23