MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Cadastro usuarios

    avatar
    alexandre medeiros
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/05/2012

    [Resolvido]Cadastro usuarios Empty Cadastro usuarios

    Mensagem  alexandre medeiros 18/6/2012, 15:32

    Olá a todos, criei um formulário de acesso, com o seguinte código, porém gostaria de uma ajuda para adequar o mesmo para que possa ser cadastrado novos Usuários e senha, alguém pode me ajudar?

    Private Sub Comando4_Click()
    Nome.SetFocus
    If Nome = "Alexandre" And Senha = "1234" Then
    MsgBox "Acesso consedido", vbInformation, "login"
    DoCmd.Close
    DoCmd.OpenForm "FormCadastroIsoFabric"
    Else
    MsgBox "Acesso Negado", vbCritical, "Erro"
    End If

    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Cadastro usuarios Empty Re: [Resolvido]Cadastro usuarios

    Mensagem  Convidado 18/6/2012, 15:46

    Geralmente utilizamos um cadastro de usuario e senhas baseado em uma tabela, creio que no repositório há exemplos

    porém se deseja fazer no proprio vba


    Private Sub Comando4_Click()
    Nome.SetFocus
    If Nome = "Alexandre" And Senha = "1234" Then
    MsgBox "Acesso consedido", vbInformation, "login"
    DoCmd.Close
    DoCmd.OpenForm "FormCadastroIsoFabric"

    ElseIf Nome ="XXXXXXX" And Senha ="NNNNN" Then
    MsgBox "Acesso consedido", vbInformation, "login"
    DoCmd.Close
    DoCmd.OpenForm "FormCadastroIsoFabric"

    Else
    MsgBox "Acesso Negado", vbCritical, "Erro"
    End If

    End Sub


    e assim quantos ElseIf Desejar.

    Cumprimentos.
    avatar
    alexandre medeiros
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 21
    Registrado : 23/05/2012

    [Resolvido]Cadastro usuarios Empty Cadastro usuarios

    Mensagem  alexandre medeiros 18/6/2012, 16:03

    ok, obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Cadastro usuarios Empty Re: [Resolvido]Cadastro usuarios

    Mensagem  Convidado 18/6/2012, 16:05

    O Fórum agradece o retorno.

    Não se esqueça de clicar no joinha da mensagem que o auxiliou.

    Cumprimentos.

    Conteúdo patrocinado


    [Resolvido]Cadastro usuarios Empty Re: [Resolvido]Cadastro usuarios

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 13:49