Acesso com mais de ...
 
Notifications
Clear all

Acesso com mais de um login

2 Posts
2 Usuários
0 Reactions
978 Visualizações
wfranca
(@wfranca)
Posts: 297
Reputable 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

Welington Gonçalves

 
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

"Nisto se manifestou o amor de Deus em nós: em haver Deus enviado o seu Filho unigênito ao mundo, para vivermos por meio dEle" 1 Jo 4-9

 
Postado : 11/10/2013 8:11 am