Como Fazer...

[lxl_igor_lxl]

blza pessoal é eu de novo estou fazendo um programa e estou fazendo um tipo de login para o programa isso esta pronto mas eu tenho um duvida olhe o codigo

Private Sub Image3_Click()

If Text1.Text = "User1" And Text2.Text = "pass1" And Combo2.Text = "Admin" Then

Me.Hide

comandos.Show

Else

Unload Me

Form1.Show

End If

End Sub

queria saber se tem como eu fazer dois ou mais usuarios da pra ver que tem user1 tem como no mesmo codigo ele aceitar user2 e pass2 ?

como?

[ramon]

Sim basta apenas você usar o operador OR

Ficaria assim

If Text1.Text = "User1" Or Text1.Text = "User2" And Text2.Text = "pass1" Or Text2.Text = "pass2"  And Combo2.Text = "Admin" Then
Me.Hide
comandos.Show
Else
Unload Me
Form1.Show
End If

[rodfraga]

Boa contribuição ramon! Porem eu acho que se o cara inserir o nome de usuario do user1 a senha do user2, vai entrar...É isso que ele quer?

Que tal colocar mais um elseif?

Abraços

Rodrigo

[Graymalkin]

Boa contribuição ramon! Porem eu acho que se o cara inserir o nome de usuario do user1 a senha do user2, vai entrar...É isso que ele quer?

Que tal colocar mais um elseif?

Abraços

Rodrigo

Poderia ser assim:

If (Text1.Text = "User1" AND Text2.Text = "pass1") Or (Text1.Text = "User2" And Text2.Text = "pass2") And Combo2.Text = "Admin" Then

Não?

Abraços,

Graymalkin

[rodfraga]

É foi o que eu quis dizer...

Abraços

Rodrigo

[ramon]

Realmente

Eu não cheguei a testar isso, apenas vi e dei uma sugestão

[rodfraga]

Claro cara, como eu disse, obrigado pela contribuição!

[William Rodrigues]

Eu não cheguei a testar isso, apenas vi e dei uma sugestão

Relaxa...

Mesmo que erre...mas que pelo menos tente...

O que vale no final é que todos entendam e aprenda

Abraços,

William Rodrigues