Access inicio | | | | | |
Olá,
Seja Bem Vindo ao Blog.

Conecte-se ou registre-se e utilize gratuitamente este equipamento, temos exemplos referente a criação de banco de dados e desenvolvimento de softwares e programas utilizando o Microsoft Access.


Administração do Blog AccessDoProgramador.

Usando a função CBool na validação de login

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

08112011

Mensagem 

Usando a função CBool na validação de login






Seção de origem no blog: Funções & Instruções (nova sala que será criada)


Amigos,

Estudando a função CBool eu aprendi o seguinte:

Ela serve para converter uma expressão em um Boolean. Se a expressão avaliar como um valor diferente de zero, CBool retornará True; caso contrário, retornará False.

Veja a sintaxe:

CBool
(Expressão)

O F1 do access disponibiliza o seguinte código para entedermos como funciona isso:
********************************************************************
Dim A, B, Check

A = 5: B = 5          ' Inicializa variáveis.
Check = CBool(A = B)    ' Check contém True.

A = 0        ' Define a variável.
Check = CBool(A)    ' Check contém False.
********************************************************************

Claramente vemos que a função faz a comparação:
- Se dados semelhantes, retorna True
- Se dados diferentes, retorna False

Compreendido a função, resolvi escrever um código para validar a entrada de usuário no banco de dados, veja a seguir:
****************************************************************************************
On Error GoTo trataErro 'Inicio o tratamento de erros
 Dim senhaDoBD As String 'Variável que armazenará a senha contida na tabela do banco
 Dim senhaDoForm As String 'Variável que armazenará a senha digitada no formulário
 Dim AcessoAoSistema As Boolean 'Variável que armazenará o resultado da função Cbool: True ou False
 
   senhaDoBD = DLookup("senha", "tblUsuario", "login = Forms!LoginCBool!txtLogin") 'Armazena a senha que está no banco
    senhaDoForm = txtSenha 'Armazena a senha digitada no formulário
     
     AcessoAoSistema = CBool(senhaDoBD = senhaDoForm) 'Faz a comparação se for igual devolverá o valor True
     
      If AcessoAoSistema = True Then 'Se devolveu True, é porque a senha confere
      DoCmd.OpenForm "MenuDeControle", acNormal 'Se confere, abro o formulário de Menu (Principal)
    Else
 MsgBox "Senha incorreta, tente novamente", vbCritical, "Erro" 'Se não confere, emite a mensagem ao usuário
 End If
 
Exit_trataErro:
 Exit Sub 'Encerro o tratamento de erro
 
trataErro: 'Se algo inesperado aconteceu, entra em ação o tratamento de erro
 
 If Err.Number = 94 Then
MsgBox "O processamento de dados falhou" _
      & vbCrLf & vbCrLf & "Escreva um nome válido.", vbCritical, "Erro"
        Else
            MsgBox "O processamento de dados falhou" _
          & vbCrLf & vbCrLf & "Trata-se do erro n° " & Err.Number & _
        " Descrição: " & Err.Description, vbCritical, "Erro"
    End If
 
 Resume Exit_trataErro

****************************************************************************************
É isso aí moçada, a idéia foi falar um pouco desta de muitas funções de conversão que aplicam-se ao Microsoft Access. Espero que sirva em suas carreiras.

Abaixo faça o download do exemplo:
Download

Até study


Última edição por Dilson em Sex 31 Mar 2017 - 23:55, editado 1 vez(es)


avatar
Dilson
Facilitador
Facilitador

Brasil


http://www.dadosweb.com

Voltar ao Topo Ir em baixo

- Tópicos similares
Compartilhar este artigo em: BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahoo!Smarking

Usando a função CBool na validação de login :: Comentários

avatar

Mensagem em Sex 16 Nov 2012 - 13:50 por good guy

Bom trabalho Dilson,

Já apliquei estes conceitos, alterando o código para gerar um alerta pré-agendado em um dos meus aplicativos. Creio que dá até para fazer uma agenda.

Eduardo Machado (Good Guy)

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum