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

    Botão de login abrindo formulários diferentes

    Compartilhe

    edu costa
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/07/2012

    Botão de login abrindo formulários diferentes

    Mensagem  edu costa em Qui 11 Dez 2014, 16:10

    amigos estou com o seguinte problema:
    estou usando um exemplo de login e senha feito pelo Plinio Mabesi
    e na tela de login ao clicar no botão login tenho o seguinte código logo a baixo,
    o que eu queria era que quando eu logar como administrador abrisse um formulário e quando eu logase
    como usuario abrisse outro formulário. tem como fazer essa adaptação ?

    Private Sub btnLogin_Click()

    Dim strSenha As String

    If IsNull(cbxLogin) Then
    MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
    cbxLogin.SetFocus
    ElseIf IsNull(txtSenha) Then
    MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
    txtSenha.SetFocus
    Else

    'Realizando a limpeza da senha
    strSenha = limparSenha(txtSenha)

    If verificaLogin(cbxLogin, strSenha) Then
    DoCmd.Close
    DoCmd.OpenForm "frmEconomato"
    Else
    MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
    txtSenha.SetFocus
    End If

    End If

    End Sub

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Botão de login abrindo formulários diferentes

    Mensagem  Roberto_1977 em Qui 11 Dez 2014, 16:40

    Boa tarde,

    Existem aqui no forum exemplos com o que deseja...
    Faça uma pesquisa por "Login Permissões "


    Abraço... Cool

    Roberto_1977
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 836
    Registrado : 01/10/2013

    Re: Botão de login abrindo formulários diferentes

    Mensagem  Roberto_1977 em Qui 11 Dez 2014, 16:45

    veja se isso serve ???

    [Você precisa estar registrado e conectado para ver este link.]

    edu costa
    Novato
    Novato

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 30
    Registrado : 28/07/2012

    Re: Botão de login abrindo formulários diferentes

    Mensagem  edu costa em Qui 11 Dez 2014, 19:23

    ok amigo vou pesquisar mais um pouco !
    obrigado pela atenção!!!!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: Botão de login abrindo formulários diferentes

    Mensagem  ahteixeira em Qui 11 Dez 2014, 19:53

    Ola, se o exemplo que postou esta a funcionar, não vejo razão para mudar
    Veja se serve

    Código:
    Private Sub btnLogin_Click()

     Dim strSenha As String

     If IsNull(cbxLogin) Then
     MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
     cbxLogin.SetFocus
     ElseIf IsNull(txtSenha) Then
     MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
     txtSenha.SetFocus
     Else

     'Realizando a limpeza da senha
     strSenha = limparSenha(txtSenha)

     If verificaLogin(cbxLogin, strSenha) Then
        If cbxLogin="administrador" then 'deve colocar o username do adninistrador
           DoCmd.Close    
           DoCmd.OpenForm "frmPretendido"  'nome formulario para o administrador
        Else
           DoCmd.Close      
           DoCmd.OpenForm "frmEconomato"
        Endif
     Else
     MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
     txtSenha.SetFocus
     End If

     End If

    End Sub

    Não testado
    Abraço

      Data/hora atual: Sab 10 Dez 2016, 06:54