Hi All,
   We tried to add some security features into the database. We created a module named IsInGroup as follows:
    Public Function IsInGroup(UsrName As String, GrpName As String) As Boolean
'Determines whether UsrName is a member of GrpName

    Dim grp As Group
    Dim IIG As Boolean
    Dim usr As User

    IIG = False

    For Each usr In DBEngine.Workspaces(0).Users
        If usr.name = UsrName Then GoTo FoundUser
    Next

FoundUser:
    For Each grp In usr.Groups
        If grp.name = GrpName Then IIG = True
    Next

IIG_Exit:
    IsInGroup = IIG

End Function

Then in the on current event of the form, we add a event procedure as follows:
   If (IsNull(Me.creator) Or CurrentUser( )= Me.creator Or IsInGroup(CurrentUser(), "test_admin") Then
    Me.AllowAddition = True
    Me.AllowDeletions = True
    Me.AllowEdits = True
   Else
     Me.AllowDeletions = False
     Me.AllowEdits = False
   EndIF
Note: "creator" is a field in the table.

Those codes worked on the ACCESS 2K, but it didn't work for ACCESS97. I am wondering can anyone give me any suggestions how can I add this feature to ACCESS97. Thanks!


flyfish

__________________
flyfish

Flyfish,

I don't know if this will work or not.
Instead of using the on current, on the command button that opens the form, put this in:
stdocname = formname

   If (IsNull(Me.creator) Or CurrentUser( )= Me.creator Or IsInGroup(CurrentUser(), "test_admin") Then
    docmd.openform stdocname,acnormal,,acformadd
   else
    docmd.openform stdocname,acnormal,,acformedit
   end if

This way, when the user opens the form, all they can do is add new records. If you have a button on your form to delete the current record, then add this when they don't have authorization to delete:
   me.deletecommandbutton.enabled = false
note: add it after the docmd.openform statement.

Like I say, I don't know if this will work for you. I think(oxymoron!) that it will work in both 97 and up.

Let me know!

Kevin




dartcoach

Hi dartcoach,
   I tried the code you posted for me yesterday. I got the complie error saying:
   "Expected variable or procedure, not module." Do you know why?
    What does "oxymoron" mean?
    Thanks for any suggestions!

flyfish

Hi Ya Flyfish!

Oxymoron - contradiction in terms, you know - military intelligence, me and thinking.

Are you trying to open this form from another form?
How is the form getting opened?

Kevin

dartcoach