Ir para conteúdo
Fórum Script Brasil

BetoSoft

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Posts postados por BetoSoft

  1. 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...