MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Código de Login, com mensagem de boas vindas.

    Compartilhe
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4183
    Registrado : 20/04/2011

    Código de Login, com mensagem de boas vindas.

    Mensagem  Silvio em 27/6/2011, 12:09

    ' criar um formulário restrito, aquele que vem apenas dois botões, ok e cancelar e no botão Ok.mudar o nome para ACESSAR inserir o código abaixo, evento ao clicar.
    ' não esquecer de criar uma tabela com as entidades, usuario e senha ( formatar a senha com a mascara *******).


    Private Sub acessar_Click()
    On Error Resume Next
    ' Declaração de variáveis
    Dim Hora As Date
    Dim strCritério As String
    Dim varNome As Variant
    Dim strMsg As String
    Dim strTitle As String

    strCritério = "Usuario = '" & Me.Usuario & _
    "' AND Senha = '" & Me.Senha & "'"
    varNome = DLookup("usuario", "cadastroUsuario", strCritério) 'cadastroUsuario é a tabela para gerar nome de usuário e senha. 'A variável "varNome" pesquisa o nome do usuário na tabela "CadastroUsuario" e estabelece este critério de validação para acesso ao formulário que está protegendo.

    If IsNull(varNome) Then 'Se estiver em branco ou o nome não corresponder ao existente na tabela login uma mensagem de erro surge.
    strMsg = "Senha inválida ou Usuário Invalido. Por favor tente outra vez !"
    strTitle = "Senha ?"
    MsgBox strMsg, vbQuestion, strTitle

    Else

    Hora = Time
    Call Randomize 'É uma função para gerar mensagens aleatórias. Neste caso seguindo a seguinte orientação:
    If (Hora >= CDate("00:00:00") And Hora < CDate("12:00:00")) Then
    Call Eval("MsgBox('Bom dia " & Me.Usuario & ". Você está logado(a) com sucesso!@" & "sua empresa aqui@',0,'nome do seu programa aqui')")
    ElseIf (Hora >= CDate("12:00:00") And Hora < CDate("18:00:00")) Then
    Call Eval("MsgBox('Boa tarde " & Me.Usuario & ". Você está logado(a) com sucesso!@" & "sua empresa aqui@',0,'nome do seu programa aqui')")
    Else
    Call Eval("MsgBox('Boa noite " & Me.Usuario & ". Você está logado(a) com sucesso!@" & "sua empresa aqui@',0,'nome do seu programa aqui')")
    End If
    Cancelou = False
    UsuárioAtual = Me.Usuario
    DoCmd.Close A_FORM, Me.Name
    DoCmd.OpenForm "pagina inicial" 'Nome do formulário que você está protegendo A_FORM
    End If
    End Sub
    avatar
    weslleysoliveira
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/05/2015

    Re: Código de Login, com mensagem de boas vindas.

    Mensagem  weslleysoliveira em 15/5/2015, 16:04

    Cara preciso tirar uma dúvida, alguém aí pra me ajudar?
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1080
    Registrado : 18/07/2012

    Código de Login, com mensagem de boas vindas.

    Mensagem  toyebom em 15/5/2015, 18:12

    Não se tira duvidas no repositório de exemplos, crie um tópico e exponha a duvida.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    avatar
    Avelino_Info
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 1
    Registrado : 28/12/2018

    Re: Código de Login, com mensagem de boas vindas.

    Mensagem  Avelino_Info em 4/1/2019, 15:33

    valeu Silvio!

      Data/hora atual: 22/1/2019, 17:21