Galera estou fazendo um Projeto aonde tem Login e menu eu ja fiz a parte de cadastro de usuários e perfil do usuário aonde que no cadastro de usuário vc coloca qual vai ser seu perfil, ADMINISTRADOR, ALMOXARIFADO, MARKETING ETC acabei de fazer o login
tudo de boa ate ai na hora que aparece o formulário menu mostrando os dados do usuário que fez o login mostra tbm o perfil só que não estou conseguindo fazer a ligação do perfil com o acessos ao botoes que ele tem tenho duas tabelas no access uma perfil e
outra de usuário gostaria que ao fazer o login nesse formulário ele pegasse o perfil e fizeste uma lida na tabela perfil bloqueando os botoes que ele não tem acesso através do checkbox. obs: o checkbox vai ficar invisível logo abaixo esta o código do login
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Trim(txtnome.Text) = "" Or Trim(txtsenha.Text) = "" Then
MsgBox("Informe as suas credenciais para Login!", vbExclamation, "Dados Inválidos !")
Else
Dim connectionString As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\SISTEMA\Acces banco de dados\Database11.accdb;")
da = New OleDbDataAdapter("SELECT * FROM Cadastro_de_Usuarios WHERE Nome = '" & txtnome.Text & "' AND Senha = " & txtsenha.Text, connectionString)
tabelausuario.Tables.Clear()
da.Fill(tabelausuario, "Cadastro_de_Usuarios")
If tabelausuario.Tables("Cadastro_de_Usuarios").Rows.Count = 0 Then
MsgBox("Usuario ou Senha errados",
MsgBoxStyle.Information, "Login")
Else
MsgBox("Login efetuado com Sucesso!", MsgBoxStyle.Information, "Login")
Form4.Show()
Form4.TextBox2.Text = tabelausuario.Tables("Cadastro_de_Usuarios").Rows(0)("Nome")
Form4.TextBox1.Text = tabelausuario.Tables("Cadastro_de_Usuarios").Rows(0)("Perfil")
Me.Close()
End If
connectionString = Nothing
End If
End Sub
Aqui está a imagem do formulario menu
https://imgur.com/a/QOLHieD
