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!
