Acesso com mais de ...
 
Notifications
Clear all

Acesso com mais de um login

2 Posts
2 Usuários
0 Reactions
975 Visualizações
(@wfranca)
Posts: 297
Honorable Member
Topic starter
 

COmo posso inserir mais um usuário nesse codigo?

Private Sub cmdOk_Click()
If txtLogin.Text = "administrador" And txtSenha.Text = "123456" Then
MsgBox "Autorizado", vbExclamation, "Seja Bem Vindo"
Unload frmLogon
frmMenu.Show

 
Postado : 11/10/2013 6:08 am
(@vitor)
Posts: 57
Trusted Member
 

Você pode fazer duas coisas:

- Usar o "elseif" e colocar um novo usuário (útil caso sejam poucos usuários, tipo 3 ou 4), basicamente é um "if" aninhado ("if" dentro de um "if')

Private Sub cmdOk_Click()
If txtLogin.Text = "administrador" And txtSenha.Text = "123456" Then
         MsgBox "Autorizado", vbExclamation, "Seja Bem Vindo"
         Unload frmLogon
         frmMenu.Show
elseif txtLogin.Text = "OutroUsuario" And txtSenha.Text = "OutraSenha" Then
         MsgBox "Autorizado", vbExclamation, "Seja Bem Vindo"
         Unload frmLogon
         frmMenu.Show
'... se quiser colocar mais usuários coloque mais "elseif's
end if

-Pode criar uma planilha com duas colunas("usuario" e "senha") usar o "WorksheetFunction.VLookup" (procv no vba)
Segue um arquivo de anexo como exemplo:
'comentários explicam

 
Postado : 11/10/2013 8:11 am