(Resolvido) Permissões Com Nivel De Usuario E Administrador

[Diego Faturine]

:ph34r: BOM DIA a todos deste fantástico fórum....

Rapaziada, a parada é a seguinte, será que alguém poderá me ajudar.

Galera, tenho uma tabela chamada USUARIO com os campos LOGIN e PERMISSOES.

Preciso criar uma rotina no form principal do meu BDM, que quando a pessoa logar, alguns botões se ativem ou não de acordo com a sua permissão...

Um abração a todos, em breve estarei postando respostas também, e porque to muito atarefado e to sem tempo.... Um abraço a todos

Diego Faturine :ph34r:

Editado Abril 26, 2007 por MrMALJ

[MrMALJ]

Vou ver se arranjo tempo pra fazer um exemplo e mandar pra você!

[Diego Faturine]

:ph34r: Valeu pela atenção... Ficarei muito agradecido...

Um abraço

Diego Faturine :ph34r:

[MrMALJ]

Fera tai um exemplo bem simples, mais apartir daí você já poderá entender o funcionamento, disso apesar de simples apanhei muito até pensar em fazer isso, mais tenho certeza que existem formas melhores e mais práticas!

Deixei 2 usuarios:

mrmalj, com a senha 123456789

e

usuario, com a senha 123456

Não esqueça do retorno!

tstLogin.zip

[D@rk]

Fera tai um exemplo bem simples, mais apartir daí você já poderá entender o funcionamento, disso apesar de simples apanhei muito até pensar em fazer isso, mais tenho certeza que existem formas melhores e mais práticas!

Deixei 2 usuarios:

mrmalj, com a senha 123456789

e

usuario, com a senha 123456

Não esqueça do retorno!

Grande amigo MrMALJ,

este lance de login que você fez é o que eu preciso para finalizar algumas coisas no meu pequeno projeto em access. Eu até tentei adaptá-lo mas estou com dificuldades para fazê-lo. Quais seriam as alterações necessárias que eu deveria fazer para fazer esta adaptação ? eu preciso de um sistema de login desses ;/

Abraços,

[Batistela]

Estou com a mesma dúvida sobre acesso multiusuário, entretanto não consigo abrir o arquivo em anexo para ver o exemplo.

Alguém pode me ajudar?

[brunocasado]

batistela quando você dezipa o arquivo passa renomeia pra . zip....

ou ele ta dando algum erro?

[MrMALJ]

Fera tenta entrar em contato com o Diego ou com o Dark eu estou sem o exemplo e sem tempo para fazer outro... a não ser que você queira esperar eu terminar o projeto que estou envolvido!

[Ceboula]

Fera tenta entrar em contato com o Diego ou com o Dark eu estou sem o exemplo e sem tempo para fazer outro... a não ser que você queira esperar eu terminar o projeto que estou envolvido!

Cara, estou precisando desse arquivo ai

é bem oque preciso para o meu projeto aqui :S

será q poderia me juda

não consigo fazer o download

Att carlos

[MrMALJ]

Ceboula o link tá ok, acabei de testar....

[Ceboula]

é está ok sim

me expressei errado :S

é q quando eu abri ele

diz q o arquivo está corrompido

:S

ai não conigo acessa-lo

Oque será q pode ser?

Vlw

[MrMALJ]

Opa tranquilo testei de novo, baixei descompactei (o arquivo ta zipado)e tah ok, num tem falha alguma...

[Humm]

não sei se vem ao caso

http://scriptbrasil.com.br/forum/index.php?showtopic=116706

[Cristiane Schwinden]

não sei se vem ao caso

http://scriptbrasil.com.br/forum/index.php?showtopic=116706

eu faço assim:

Private Sub Form_Open(Cancel As Integer)

Dim N As Recordset, D As Database

Set D = CurrentDb

Dim NIVEL As String

NIVEL = Forms!logon!NIVEL

StrSQL = ("Select * from NIVEIS where NIVEL = '" & NIVEL & "'")

Set N = D.OpenRecordset(StrSQL, dbOpenDynaset)

cad1.Visible = N!cad1

cad2.Visible = N!cad2

cad3.Visible = N!cad3

cad4.Visible = N!cad4

cad5.Visible = N!cad5

cad6.Visible = N!cad6

cad7.Visible = N!cad7

cad8.Visible = N!cad8

cad10.Visible = N!cad10

adm1.Visible = N!adm1

adm2.Visible = N!adm2

adm3.Visible = N!adm3

adm4.Visible = N!adm4

con1.Visible = N!con1

con2.Visible = N!con2

rel1.Visible = N!rel1

rel2.Visible = N!rel2

rel3.Visible = N!rel3

Exit Sub

End Sub

E depois para cada item tem esse código:

Private Sub cad3_Click()

On Error GoTo Err_cad3_Click

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "FORNECEDORES"

DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cad3_Click:

Exit Sub

Err_cad3_Click:

MsgBox Err.Description

Resume Exit_cad3_Click

End Sub

Sendo q na tabela 'niveis', tem um campo para cada botão, no formato sim/não.

Editado Agosto 25, 2008 por Cristiane Schwinden

[andre_nunes]

Galera, bom dia!

estou com uma baita duvida. tenho o banco todo criado, já com o sistema de Login.

gostaria somente de acrescentar níveis de acesso no banco que já tenho.

alguém poderia me ajudar com o desenvolvimento desta parte do BD?

agradeço muito a ajuda!