Manage Learn to apply best practices and optimize your operations.

Allowing To Edit A Field Based On User Roles

Many times user wants to allow to edit fields based on the roles. There are
many methods to perform this. Following is one more method by using a small
script in "Field Entering" event.
Use the following script in the "Field Entering" event.

Dim session As New notessession
Dim db As notesdatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
set db = Session.CurrentDatabase
tmp = session.username
Set entry = acl.Getentry(tmp)

If ( entry Is Nothing ) Then
Exit Sub
End If
Forall r In acl.Roles
If (entry.IsRoleEnabled(r) = True ) Then
tmpUserRoles(0) = r
Exit Forall
Else
tmpUserRoles(0) = ""
End If
End Forall

Dim uiws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = uiws.currentdocument
If tmpUserRoles(0) <> "[RoleName]"
uidoc.gotofield("txtRemarks")
End If

Dig Deeper on Domino Resources - Part 2

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close