02. maj 2005 - 16:04Der er
11 kommentarer og 1 løsning
Problem med rettigheder
Jeg har en database, hvor brugeren undervejs skal have mulighed for at slå redigering til og fra, uden at skulle logge ind og ud osv. Jeg har lavet det med en global variabel, der sættes til false eller true afhængigt af om brugeren har slået redigering til eller fra. Ved load af de forskellige formularer laver jeg så følgende tjek: If bDataRedigering Then Me.AllowAdditions = True Me.AllowDeletions = True Me.AllowEdits = True Else Me.AllowAdditions = False Me.AllowDeletions = False Me.AllowEdits = False End If
Nogle steder fungerer det også fint, men andre steder bruger jeg f.eks. en listboks til at give brugeren mulighed for at manøvrere rundt imellem data og denne bliver jo så også låst... Hvordan sætter jeg lås på redigering - med undtagelse af enkelte elementer?
You could have information in a table which is used to keep track of which fields you want to open. Then make a function which loops through the fields. Ther than thant I dont think there is any easy method
another method was to set the fields TAG property to some value, 0 or 1 maybe,. Then loop through all cotrols on the form and set them to enabaled/disabled dpending on the value of the TAG
Public Function SetPermissions(frm As Form) Dim Ctrl As Control
On Error Resume Next
For Each Ctrl In frm.Controls If Not bDataRedigering Then Select Case Ctrl.Tag Case 1 Ctrl.Enabled = True Ctrl.Locked = False Case Else Ctrl.Enabled = False Ctrl.Locked = True End Select Else Ctrl.Enabled = True Ctrl.Locked = False End If Next Ctrl
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
