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

[newbie]

pune un exemplu cu codurile introduse pentru log-on sa ma luminez si eu cum ai facut, daca te rog

[Adrian]

Option Compare Database

Private Sub Form_Load()
'Asigura deschiderea formularului in functie de permisiunile utilizatorului
If [TempVars]![pUserRights] = "MR" Then
Me.AllowAdditions = True
Me.AllowDeletions = False
Me.AllowEdits = True
Else
Me.AllowAdditions = False
Me.AllowDeletions = False
Me.AllowEdits = False
End If
End Sub

[newbie]

Urmind logica a exemplului atasat, intreb urmatorul lucru.MR este operatorul care introduce date in form-ul respectiv. Banuiesc ca administratorul va avea la rindul lui drept de acces de tipul RW (ReadWrite) pentru acel form.
Daca ai acolo doar MR adminul cum deschide form-ul respectiv?

[Adrian]

pai asta e problema. am incercat sa scriu si codyul pentru administrator si nu merge sa scriu doua coduri pt ca-mi da eroare (si n-am reusit inca s-o localizez)

[Adrian]

Nu reusesc sa-i dau de cap.
Am incercat si cu ELSE/IF si cu case select si nu am reusit sa inserez codurile astfel incat formurile sa se deschida in functie de drepturile userului.

[newbie]

solutia ti-a fost oferita de lucian aici

Cod: Selectaţi tot

Select Case [TempVars]![pUserRights]
   Case [TempVars]![pUserRights]="GR"
      'Setari pentru R1
        Me.AllowAdditions = True
        Me.AllowDeletions = True
        Me.AllowEdits = True

   Case [TempVars]![pUserRights]="MR"
      'Setari pentru R2
        Me.AllowAdditions = False
        Me.AllowDeletions = True
        Me.AllowEdits = False

   Case Else
      'Setari "default" daca nu s-a gasit in lista de mai sus
        Me.AllowAdditions = False
        Me.AllowDeletions = False
        Me.AllowEdits = False
End Select

[Adrian]

exact codul asta l-am introdus si eu si nu functioneaza!

[newbie]

incarca ultima varianta a aplicatiei exemplu sa ne batem si noi capul cu ea

[Adrian]

ok

[newbie]

Adrian testeaza te rog la induction form cu cele 4 parole ( respectiv cei 4 useri ) daca functineaza corect cu modificarile introduse acum
Este varianta cea mai complicata cu If, dar si cea aleasa de dumneavoastra. Daca acum functioneaza cum doriti atunci copiati acele modificari si in celelalte Form-uri la event- OnLoad