Denunciar Login em Access Postado Outubro 4, 2012 meu amigo é simples: cria um Form com dois text box e botão:Text Box1: nomea como: NomeText Box2: nomea como: SenhaComando1. nomea como: Entrar ou AcessarClica no botão: escolhe a opção: Ao fazer clique e coloque o seguinte código:Nome.SetFocusIf Nome = "AB" And Senha = "123" ThenMsgBox "Os dados introduzidos foram validados", vbInformation, "Login"DoCmd.CloseDoCmd.OpenForm "StatusBar"ElseMsgBox " O nome do utilizador ou a senha introduzida está incorreto", vbCritical, "Erro"MsgBox "Lamentos mais o sistema vai fechar; Contacta o Administrador do Sistema", vbCritical, "Erro no Sistema!"DoCmd.QuitEnd If================Espero ter ajudado!
Login
em Access
Postado
meu amigo é simples: cria um Form com dois text box e botão:
Text Box1: nomea como: Nome
Text Box2: nomea como: Senha
Comando1. nomea como: Entrar ou Acessar
Clica no botão: escolhe a opção: Ao fazer clique e coloque o seguinte código:
Nome.SetFocus
If Nome = "AB" And Senha = "123" Then
MsgBox "Os dados introduzidos foram validados", vbInformation, "Login"
DoCmd.Close
DoCmd.OpenForm "StatusBar"
Else
MsgBox " O nome do utilizador ou a senha introduzida está incorreto", vbCritical, "Erro"
MsgBox "Lamentos mais o sistema vai fechar; Contacta o Administrador do Sistema", vbCritical, "Erro no Sistema!"
DoCmd.Quit
End If
================
Espero ter ajudado!