Ir para conteúdo
Fórum Script Brasil

BetoSoft

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre BetoSoft

BetoSoft's Achievements

0

Reputação

  1. BetoSoft

    Login

    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!
×
×
  • Criar Novo...