[Resolvido]Desabilitar Botões de Comando em Formulário cfe níveis de permissão

Colegas,

Tenho um formulário com botões de comando que acessam os módulos do meu BD. Gostaria de atribuir níveis de acesso (Select Case?) aos usuários de acordo com um código/número em uma tabela de usuários e que determinaria o nível de acesso.

o ideal é que o usuário fosse identificado pelo ID do logon na rede.

até consegui um exemplo mas não funfou! dá mensagem de erro e não consigo achar a saída...

abraços

Leandro

Boa Noite

Dê uma vista de olhos no Repositório de exemplos. Entretanto pode experimentar este exemplo do Mestre JPaulo.

http://maximoaccess.forumeiros.com/t74-login-com-niveis-de-acesso

Tem esse modelo amigo...

http://maximoaccess.forumeiros.com/t2399-login-ativando-ou-desativando-botoes-no-menu-principal

Olha, não é bem isso que eu queria...
estou precisando que ao abrir o menu inicial do aplicativo, de acordo com o perfil do usuário (identificado pelo login na rede, ou seja, não abre uma caixa de diálogo onde o usuário informe id e senha) os botões de comando que abrem os demais formulários apareçam habilitados ou não conforme as permissões definidas para cada um.
abraços

Leandro

Entao voce quer o acesso pelo login da Rede e não login do Access....
O usuario logado na rede.. tenha ou nao acesso a botões no seu menu principal...
Bem.. de minha parte nao tenho conhecimentos suficientes para isso... Passo a vez para outros amigos...

Saudações

Esse usuario logado.. seria o logado no entrar do Windows? o usuário?

o usuário está sendo identificado ao logar na rede (windows). essa identificação se dá pelo exemplo deste fórum "mostra usuário logado e Estação de trabalho", então há um campo com a informação idêntica na tbl de usuários. então, eu tenho até um exemplo mas não está funcionando não sei porque... veja abaixo:
--------------------------------------------módulo:
'Option Compare Database
'Pega o id do Usuario logado na máquina
Public Declare Function GetUserName Lib "advapi32.dll" Alias _
"GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Public Function fUsuario() As String
Dim lngResposta As Long
Dim bytContador As Byte
Dim strUsr As String '* 17


fUsuario = ""
strUsr = String(17, 0)
lngResposta = GetUserName(strUsr, 16)
For bytContador = 1 To 16
If Mid(strUsr, bytContador, 1) <> Chr(0) Then
fUsuario = fUsuario & Mid(strUsr, bytContador, 1)
End If
Next bytContador
End Function

-------------------------------------no formulário:
Private Sub Form_Load()
Dim usr As String
Dim rst As Recordset
'Dim perfil As Integer

usr = fUsuario()
Set dbBancoDados = CurrentDb
'Abre tabela Principal
Set rst = dbBancoDados.OpenRecordset("Tbl de Analistas", dbOpenTable)
globalPerfil = 66
While Not rst.EOF
If rst![matricula] = usr Then
'perfil = rst![perfil]
globalPerfil = rst![perfil]
rst.MoveLast
End If
rst.MoveNext
Wend
Select Case globalPerfil

Case 1
BotãoCAD.Enabled = False
BotãoSIC.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 2
BotãoFC.Enabled = False
BotãoSIC.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 3
BotãoFC.Enabled = False
BotãoCAD.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 4
BotãoSIC.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 5
BotãoCAD.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 6
BotãoFC.Enabled = False
Comando16.Enabled = False
Comando17.Enabled = False
Case 66
MsgBox "Este aplicativo é de uso exclusivo. Caso na sua atividade seja necessário o uso " & _
"desta Ferramenta, favor entrar em contato com o Gestor", vbCritical, "Aviso ao Usuário"
Application.Quit acQuitPrompt

End Select
End Sub

Pessoal,

depurei o código anterior e já consegui fazer a parada funfar (vou postar aqui assim que finalizar), porém, estou com um pequeno problema que acredito ser de fácil solução:
no código, a linha a seguir não funciona quando a tabela é vinculada, só funciona com tabela local. Alguém tem uma luz?
Set rst = dbBancoDados.OpenRecordset("EMPR_TAB2", dbOpenTable)
Obrigado

Leandro

Tenho esse que faz para o Back And
Option Compare Database
strPath As String


Private Sub Form_Open(Cancel As Integer)
'String com path para conexão com a base de dados.
strPath = "Caminho do Back End"
' Conecta ao banco de dados
' Se vc estiver tbls vinculadas use:
'Set dbBanco = CurrentDb()
Set dbBanco = OpenDatabase(strPath)
'Abre a consulta de Visitantes
Set rsNomeDaTabela = dbBanco.OpenRecordset("NomedaTabela")


Utilizo esse Sql
strCboDetento = "SELECT CsnDetentosMineiros.Detento AS Detento FROM CsnDetentosMineiros IN '" & strPath & "'" _
& " ORDER BY CsnDetentosMineiros.Detento ; "
Me.CboDetento.RowSource = strCboDetento

Em verde e o caminho do Be colocado n o codigo acima

Tente adaptar esse

Valeu Harysohn, vou tentar traduzir o que vc postou e aviso o resultado... só pra adiantar: o que seria "back end"?

um abraço

Leandro

e o BD onde ficam as tabelas...
Voce tem os forms em um BD e as tabelas em outro certo..
Front End - onde fica sua aplicacao
Back End - onde ficam as tabelas... que voce importa vinculando-as no front End

Olha só:
troquei a linha por esta:
Set rst = CurrentDb.OpenRecordset("EMPR_TAB2")
e funfou!

valeu pessoas

Leandro
P.S. Harysohn, se puderes responder ao meu questionamento e agradeço. valeu mesmo!

ahhhh, tá!

valeu, muito obrigado mais uma vez

Leandro

Respondi acima amigao

O Fórum agradece o retorno