Boa tarde,
Andei dando umas pesquisada, mas estou com dificuldade para entender como fazer um nível de acesso ao formulário.
Possuo um formulário de abertura onde coloquei 3 botões que direcionam para formulários diferentes. Preciso criar um nível de acesso, do tipo usuário e administrador, no qual o administrador terá acesso aos 3 botões e o usuário somente a 2 botões.
Para isso criei um formulário ao abrir o BD onde a pessoa irá informar matrícula e senha, com base em uma tabela (USUARIO), que contém os campos: Matricula, funcionário, nível, senha. Usei o seguinte código no botão de logar:
Private Sub Comando4_Click()
Dim matricula, senha As String
Dim rsUsuario As DAO.Recordset
If Len(Me.txtmatricula) <> 8 Or Len(Me.txtsenha) <> 6 Or IsNull(Me.txtmatricula) Or IsNull(Me.txtsenha) Then
MsgBox "Preencha os campos 'Matrícula' e 'Senha' corretamente.", vbExclamation, "Erro"
Exit Sub
End If
matricula = Me.txtmatricula
senha = Me.txtsenha
Set db = CurrentDb
Set rsUsuario = db.OpenRecordset("SELECT * FROM USUARIO WHERE MATRICULA = '" & matricula & "'")
If rsUsuario.EOF Then
MsgBox "Usuário não cadastrado!", vbExclamation, "Erro"
ElseIf rsUsuario!senha = senha Then
nivel = rsUsuario!nivel
matriculaResp = Me.txtmatricula
DoCmd.OpenForm "For ABERTURA"
Else
MsgBox "Senha Inválida!", vbExclamation, "Erro"
End If
End Sub
Até ai tudo bem, mas preciso fazer que o sistema entenda quando exibir os 3 botões e quando exibir somente 2 de acordo com o nível do usuário cadastrado.
Andei dando umas pesquisada, mas estou com dificuldade para entender como fazer um nível de acesso ao formulário.
Possuo um formulário de abertura onde coloquei 3 botões que direcionam para formulários diferentes. Preciso criar um nível de acesso, do tipo usuário e administrador, no qual o administrador terá acesso aos 3 botões e o usuário somente a 2 botões.
Para isso criei um formulário ao abrir o BD onde a pessoa irá informar matrícula e senha, com base em uma tabela (USUARIO), que contém os campos: Matricula, funcionário, nível, senha. Usei o seguinte código no botão de logar:
Private Sub Comando4_Click()
Dim matricula, senha As String
Dim rsUsuario As DAO.Recordset
If Len(Me.txtmatricula) <> 8 Or Len(Me.txtsenha) <> 6 Or IsNull(Me.txtmatricula) Or IsNull(Me.txtsenha) Then
MsgBox "Preencha os campos 'Matrícula' e 'Senha' corretamente.", vbExclamation, "Erro"
Exit Sub
End If
matricula = Me.txtmatricula
senha = Me.txtsenha
Set db = CurrentDb
Set rsUsuario = db.OpenRecordset("SELECT * FROM USUARIO WHERE MATRICULA = '" & matricula & "'")
If rsUsuario.EOF Then
MsgBox "Usuário não cadastrado!", vbExclamation, "Erro"
ElseIf rsUsuario!senha = senha Then
nivel = rsUsuario!nivel
matriculaResp = Me.txtmatricula
DoCmd.OpenForm "For ABERTURA"
Else
MsgBox "Senha Inválida!", vbExclamation, "Erro"
End If
End Sub
Até ai tudo bem, mas preciso fazer que o sistema entenda quando exibir os 3 botões e quando exibir somente 2 de acordo com o nível do usuário cadastrado.