[Resolvido]Diferenciar letras

Bom dia aos amigos,


Qual código para comparar e ou diferenciar letras maiúsculas e minusculas.


Tenho um formulário de login e gostaria que após digitar a senha ele compare com a senha da tabela mais diferenciasse letras maiúsculas de minusculas.

tipo:

senha

AGA = aga > comparação igual porem diferente em maiúscula e minuscula



Att,

Boa tarde amigos,

Mestre Avelino e JPaulo, estou usando este código:

Private Sub btok_Click()
Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
'-------------------------------------------------
'Verifica preenchimento dos campos usuário e senha
'-------------------------------------------------
If IsNull(Me!cboUsuário) Then
MsgBox "Digite o nome do usuário...", vbInformation, "Aviso de segurança"
Me!cboUsuário.SetFocus
Exit Sub
Else
If IsNull(Me!Senha) Then
MsgBox "Digite a senha...", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
End If

'-------------------------------------------------
'Verifica Data de expiração do sistema
'-------------------------------------------------
'Dim Minhadata As String 'isto declara a variavel Minhadata
'Dim Dia As String, Mes As String, Ano As String 'isto cria a variavel Dia, mes e ano
'Dia = "02" 'isto especifica até que dia o programa irá funcionar
'Mes = "01" 'isto especifica ate que mes o programa funcionará
'Ano = "2013" 'e isto especifica até que ano
'Minhadata = Dia & "/" & Mes & "/" & Ano

'converte para data
Dim dt As Date
dt = Me.Data_liberada

If Date > dt Then

MsgBox "Este programa expirou, contate o Desenvolvedor do sistema", vbExclamation, "Atenção"
MsgBox "anderson_cgms@hotmail.com _ Celular - (67) 9142-5020", vbInformation, "Desenvolvedor do sistema"
DoCmd.Quit
Else
DoCmd.OpenForm "Aqui coloque o nome do formulário que quer abrir"
End If

'-----------------------------------------------------
'Compara senha digitada com senha armazenada na tabela
'Se for a correta, repassa a identificação do usuário
'para a variável login que armazena o valor enquanto
'o aplicativo estiver aberto
'-----------------------------------------------------
With Me!cboUsuário

strSenha1 = "": strsenha2 = ""
If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o Desenvolvedor do sistema.", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then

'esconde o formulário login
Me.Visible = False

' DoCmd.Close acForm, "Principio 2"
DoCmd.OpenForm "Carregando", acNormal, "", "", , acNormal
DoCmd.Restore



'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário

'Passa o usuário para a variavel
'strNomeUsuario = Me.cboUsuário.Column(1)

'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(.Column(1))

'--------------------------------
'Limpar campos do form login
'--------------------------------
'Me!cboUsuário = Null: Me!Senha = Null
'Me!cboUsuário.SetFocus


'DoCmd.OpenForm "frmProgresso"

'If login.id = 1 Then DoCmd.OpenForm "frmProgresso"
'If login.id > 1 Then DoCmd.OpenForm "frmPorgressso"

Else
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o Desenvolvedor do sistema.", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
End If
End With
End Sub

Só que não achei onde faz a comparação de minuscula maiúscula, poderia me apontar.

Att,

Obrigado mestre Avelino Sampaio,

Só me diz mais uma coisa se eu quiser usar em um VBA para deixar visível uma imagem como seria???

Tipo:

Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K
If strSenha1 = strsenha2 Then
Me.imagem3.Visible = true
end if

Só que não funciona o que esta errado.

Att,

Up

Intão ?

No evento vba ao carregar do seu form, deve ocultar a imagem;

Me.imagem3.Visible = False

depois é que:

Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then
Me.imagem3.Visible = True
Else
Me.imagem3.Visible = False
End If

Boa tarde Mestre JPaulo,


Da o erro anexo:

Mestre JPaulo,

O código ficou assim e esta a funcionar.

Dim strSenha1 As String
Dim strsenha2 As String
Dim K As Integer
On Error Resume Next
'-------------------------------------------------
'Verifica preenchimento dos campos usuário e senha
'-------------------------------------------------
If IsNull(Me!cboUsuário) Then
MsgBox "Digite o nome do usuário...", vbInformation, "Aviso de segurança"
Me!cboUsuário.SetFocus
Exit Sub
Else
If IsNull(Me!Senha) Then
MsgBox "Digite a senha...", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
End If


'-----------------------------------------------------
'Compara senha digitada com senha armazenada na tabela
'Se for a correta, repassa a identificação do usuário
'para a variável login que armazena o valor enquanto
'o aplicativo estiver aberto
'-----------------------------------------------------
With Me!cboUsuário

strSenha1 = "": strsenha2 = ""
If Len(.Column(2) & "") <> Len(Me!Senha & "") Then
MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o Desenvolvedor do sistema.", vbInformation, "Aviso de segurança"
Me!Senha.SetFocus
Exit Sub
End If
For K = 1 To Len(Me!Senha)
strSenha1 = strSenha1 & Asc(Mid$(Me!Senha, K, 1))
strsenha2 = strsenha2 & Asc(Mid$(.Column(2), K, 1))
Next K

If strSenha1 = strsenha2 Then

Forms![Principio 2]!OLENãoAcoplado61.Visible = True
Forms![Principio 2]!OLENãoAcoplado72.Visible = True
Forms![Principio 2]!OLENãoAcoplado73.Visible = True
Forms![Principio 2]!OLENãoAcoplado75.Visible = True
Forms![Principio 2]!OLENãoAcoplado70.Visible = False
Forms![Principio 2]!cboUsuário.Visible = False
Forms![Principio 2]!Senha.Visible = False

'repassa a identificação do usuário para a variável login
login.id = .Column(0) 'IdUsuário
login.Usuario = .Column(1) 'Nome do usuário

'Passa o usuário para a variavel
'strNomeUsuario = Me.cboUsuário.Column(1)

'Carrega título do aplicativo com o nome do usuário logado
Call fncTítuloUsuário(.Column(1))

Else
Me!Senha.SetFocus
End If
End With


Ficou um pouco sujo mas não sei como limpar o importante é que esta funcionando, mas caso tenha alguma sugestão??? mesmo dando como resolvido gostaria de saber.