... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Reconhecendo valores de senhas Case Sensitive

Já teve a necessidade de implementar senhas, diferenciando caracteres maiúsculos de minúsculos ?  Para esta finalidade utilizamos a função strComp().

strComp("avelino","Avelino",vbBinaryCompare) :::> 1
 
'A função retorna 0(zero) para strings iguais e 1 para strings diferentes.

Veja como pode ser aplicado numa condicional IF.

...
strSenhaUsuario = Dlooukup("senha","tblUsuários",idUsuario =" & me!idUsuario)
If strComp(me!CampoSenha,strSenhaUsuario,vbBinaryCompare) = 1 then
  msgbox "Senha incorreta....",vbInformation ,"Aviso"
  ...
end if
...

Bom estudo!


 

 


Não há comentário

Envie seu comentário: