:::TELA DE LOGIN E SENHA NO ACCESS:::

Caso você precise restringir o acesso às informações de seu BD será necessário criar uma tela de validação. Para isto darei um exemplo bem fácil, porem, não se atribui o uso há sistemas de qualidade, pois o mesmo terá o login e senha “cravados” no código. E para que possamos treinar e entender o método, será necessário abrir um arquivo de BD novo com nome que desejar.

1 – Clique na opção “Formulários” à “Criar formulário no modo Estrutura”

2 – Clique no menu “Caixa de ferramenta” à “Caixa de texto” e clique no painel para inseri-lo, repita o passo para que tenha dois campos.

3 – Clique com o botão direito do mouse na “Caixa de texto” que acabou de inserir, em seguida vá em “Propriedades” altere o nome da legenda de uma das caixas para “Login” e outra para “Senha”, altere também o nome da caixa (muito importante!) para “nome” e outro para “senha”.

4 – Insira um “Botão de Comando”, caso abra uma tela solicitando que escolha alguma opção, cancele.

5 – Nas propriedades do botão altere o “Nome” e a “Legenda” para “ok”, clique com o botão direito do mouse sobre o botão que acabou de inserir e vá até a opção “Construir evento” à “Construtor de código”, delete as informações contidas nesta tela e redigite o código abaixo alterando as informações onde estejam entre colchetes [ ]:

Option Compare Database

Private Sub ok_Click()

On Error GoTo Err_ok_Click

    Dim stDocName As String

    Dim stLinkCriteria As String

If nome = “[Digite_o_nome_para_o_login]” And senha = “[Digite_a_senha_para_o_login]” then

    stDocName = "[Digite_o_nome_do_formulário_que_irá_abrir]"

    DoCmd.OpenForm stDocName, , , stLinkCriteria

Else

MsgBox “[Digite_uma_mensagem_de_erro_caso_os_dados_estejam_incorretos]”

Exit_ok_Click:

    Exit Sub

Err_ok_Click:

    MsgBox Err.Description

    Resume Exit_ok_Click

End If

   

End Sub

6 – Para que não esquente a cabeça com mensagens de erro, tenha o formulário que queira abrir já pronto. E agora mão na massa!