Cum se... creeaza un form de LogOn cu "drepturi de acces"

[Dr.Windows]

Acum ca am rezolvat aceasta problema mai am o intrebare:
In functiee de user si parola (adica de drepturile alocate ) se poate ca aplicatia sa deschida automat formularele aferente drepturilor alocate utilizatorului respectiv?

Daca te referi la intrebarea de mai sus, se poate dar numai daca in tabela de useri si drepturi vei mai adauga un camp pentru numele formului pe care are voie sa-l deschida cu drepturile aferente.

[Adrian]

Da, despre asta e vorba. Ma gandeam ca in loc de Swichboard aplicatia sa-mi deschida direct formularul aferent userului respectiv si drepturilor conferite.
In aceasta situatie am nevoie de cod VBA?

[Dr.Windows]

Sigur ca da... pentru ca undeva trebuie sa ai corespondenta USER (sau PC) <-> Form "implicit" si in loc de switchboard sa deschizi acel form.

[Adrian]

ok. m-apuc de "sapaturi" si daca nu ma descurc revin pe forum

[Adrian]

e vre-o problema daca am un tabel care contine toate datele care ma intereseaza (cu comboboxurile si list boxurile aferente) dar din care sa fac trei formuri, cate unul pentru fiecare categorie de utilizatori?

[Adrian]

am introdus exemplul prezentat de lucian in aplicatia mea si acum nu mai vad codurile VBA
imi apare un ecran gri unde ar trebui sa fie codurile respective, insa aplicatia functioneaza (ma refer la partea de logare). dar aveam nevoie sa vad codurile pentru a putea inlocui swichboardul cu formurile pe care trebuia sa mi le deschida

[Adrian]

am rezolvat problema cu codurile
Am inchis si redeschis aplicatia si apoi am rulat optiunea debug asa ca acum merge!

[newbie]

In switchboard am 4 butoane pentru personal, contabilitate, etc
cum fac daca vreau ca cei de la personal sa deschida doar form personal?
modific acest cod

Cod: Selectaţi tot

Private Sub Form_Load()
    If [TempVars]![pUserRights] = "RW" Then
        Me.AllowAdditions = True
        Me.AllowDeletions ......................
    Else
        Me.AllowAdditions = False
        .............................
    End If
End Sub

si in loc de

Cod: Selectaţi tot

    If [TempVars]![pUserRights] = "RW" Then
        Me.AllowAdditions = True
      ............................

pun

Cod: Selectaţi tot

    If [TempVars]![pUserRights] = "RW" AND "P" Then
        Me.AllowAdditions = True
        ..............................

iar apoi modific in functie de categoria pe care o doresc, ( e.g "P" pentru personal, "E" pt economic etc) ce si cum se deschid butoanele/form-urile?
sau e mai complicat decit cred...

[Adrian]

multumesc.
E ok. o sa ma apuc sa testez codurile trimise iar daca o sa am ceva nelamuriri o sa revin.

[Adrian]

am creat 4 categorii de utilizatori cu drepturile aferente. daca intru cu userul si parola unei anumite categorii pot deschide (din mainswichboard0doar formul ce a fost alocat categoriei respective. celelalte formuri, chiar daca se da click pe ele se deschid blank (asta e ok). pentru administrator as vrea un cod ca sa poata deschide toate formurile si sa aiba drepturi depline (m-am gandit ca poate ar fi mai bine ca pentru admin sa nu aloc nici o categorie de drepturi ci acesta - cu user-ul si parola lui - sa deschida pur si simplu aplicatia.
pe de alta parte am incercat sa fac ca in momentul introducerii unui user si parola aferenta sa nu se mai deschida mainswichboardul ci direct formul respectiv.