Notifications
Clear all

Login / Critérios de validação

7 Posts
3 Usuários
0 Reactions
1,207 Visualizações
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Olá amigos do fórum,
Alguém pode me dar uma dica de como criar mais um critério para validar este login.
No caso eu preciso de que ele também verifique se o que foi informado no ComboBox_Lotacao_Login, é igual ao que está na mesma linha da planilha Usuários na coluna 4 (Sheets("Usuários").Cells(u, 4).Value)

    Dim G As String
    
    G = Sheets("Usuarios").Cells(u, 2).Value
           
    If txt_Senha <> G Then
        MsgBox "Senha incorreta.", vbCritical, "ATENÇÃO"
        Exit Sub
 
    Else

        MsgBox "Seja Bem-Vindo " & txt_Login & ".", vbInformation, "USUÁRIO"

        u = 3
        
        While (Sheets("Acessos").Cells(u, 1) <> "")
        
            u = u + 1
            
        Wend
        
            Sheets("Acessos").Cells(u, 1) = txt_Login.Value
            Sheets("Acessos").Cells(u, 2) = var1 'está declarado no form como Data
            Sheets("Acessos").Cells(u, 3) = var2 'está declardo no form como Hora
            Sheets("Acessos").Cells(u, 4) = "USUARIO"
            Sheets("Acessos").Cells(3, 8) = txt_Login.Value ' Mostrar o campo online

            Unload frmLogin
            frmMenu2.Show
        End If
End If
 
Postado : 30/01/2014 12:54 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Ve se ajuda


    Dim G As String, F as String
    
    G = Sheets("Usuarios").Cells(u, 2).Value
    F = Sheets("Usuários").Cells(u, 4).Value
       
    If ComboBox_Lotacao_Login = F and txt_Senha = G Then

        MsgBox "Seja Bem-Vindo " & txt_Login & ".", vbInformation, "USUÁRIO"

        u = 3
        
        While (Sheets("Acessos").Cells(u, 1) <> "")
        
            u = u + 1
            
        Wend
        
            Sheets("Acessos").Cells(u, 1) = txt_Login.Value
            Sheets("Acessos").Cells(u, 2) = var1 'está declarado no form como Data
            Sheets("Acessos").Cells(u, 3) = var2 'está declardo no form como Hora
            Sheets("Acessos").Cells(u, 4) = "USUARIO"
            Sheets("Acessos").Cells(3, 8) = txt_Login.Value ' Mostrar o campo online

            Unload frmLogin
            frmMenu2.Show


    Else

        MsgBox "Senha incorreta.", vbCritical, "ATENÇÃO"
        Exit Sub


        End If
End If
 
Postado : 30/01/2014 4:32 pm
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Não funcionou amigo. Mas pelo que entendi você usou um And, mesmo assim não funcionou. Acho que o meu problema está na hora de procurar a linha da Lotação.

 
Postado : 31/01/2014 6:45 am
(@gtsalikis)
Posts: 2373
Noble Member
 

provavelmente isso.

Eu inverti a lógica, em vez de negar o acesso se a senha estiver errada, estou liberando o acesso se o login e a senha estiverem certos. Por isso o AND.

Mas, vc disponibilizou apenas parte do código, e nada da planilha. Deve ser um erro de localizar as informações corretas mesmo.

Abs

 
Postado : 31/01/2014 7:12 am
(@bilokas)
Posts: 168
Reputable Member
Topic starter
 

Bom, aparentemente resolvi o problema, declarei F como string
adicionei:

F = Sheets("Usuarios").Cells(u,4).Value

e mudei o if para:

If txt_Senha <> G Or JJ <> ComboBox_Lotacao_Login Then
MsgBox "Senha ou lotação incorreta.", vbExclamation, "ATENÇÃO"
Exit Sub

Else

MsgBox "Seja Bem-Vindo " & txt_Login & ".", vbInformation, "USUÁRIO"

Só não consegui entender o porque do Or estar correto ao invés do And.

De qualquer forma agradeço ao amigo pela disposição em ajudar.

Mas nesse caso vou aceitar minha própria resposta como RESOLVIDO, hehehe

 
Postado : 31/01/2014 8:15 am
(@gtsalikis)
Posts: 2373
Noble Member
 

Bilokas,

É a mesma lógica q eu tinha dito anteriormente.

Como eu estava considerando a informação correta, teria q ser AND, pois ambas as informações teriam que ser verdadeiras.

Como vc está considerando a informação errada, se apenas uma das 2 estiver errada, já se tem o erro, e por isso tem que ser OR.

 
Postado : 31/01/2014 8:24 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

 
Postado : 31/01/2014 8:51 am