• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 260
  • Last Modified:

Audit Trail not picking up user.

I have a form with a subform named Audit Trail that documents the user name that views the form.  I have 2 users that it won't document their name.  Does anyone know what I could check or why?  Here is the script for the audit trail.

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Dim doc As NotesDocument
      Dim item As NotesItem
      Set db = s.CurrentDatabase
      Set doc=db.CreateDocument
      doc.Form = "Audit Trail"
'      doc.Ref=Source.Document.ParentDocumentUNID
      doc.Ref = Source.Document.UniversalID
      doc.User = s.UserName
      doc.Read = Cstr(Now)
      doc.Save True, False      
End Sub
0
sjmmajor
Asked:
sjmmajor
  • 4
  • 2
1 Solution
 
HemanthaKumarCommented:
Maybe those two users are not having sufficient priveleges to create those audit documents !!!

~Hemanth
0
 
sjmmajorAuthor Commented:
Thanks for the quick response.  I checked their access rights and they look ok.  Is there another place that rights are granted?
0
 
p_parthaCommented:
Is it throwing out any errors for the 2 users. Could you elucidate more


partha
0
Cloud Class® Course: MCSA MCSE Windows Server 2012

This course teaches how to install and configure Windows Server 2012 R2.  It is the first step on your path to becoming a Microsoft Certified Solutions Expert (MCSE).

 
sjmmajorAuthor Commented:
No.  Not that I know of.  They are just questioning why their name isn't showing up on the audit sheet?  I don't have an answer for them.  I can't figure out what makes them different?

0
 
p_parthaCommented:
Put a message box and check whether it is executed properly but as hemanth mentioned i would look at their ACL. Also check whether Createdocuments is checked for them.

  Dim s As New NotesSession
     Dim db As NotesDatabase
     Dim doc As NotesDocument
     Dim item As NotesItem
     Set db = s.CurrentDatabase
     Set doc=db.CreateDocument
     doc.Form = "Audit Trail"
'     doc.Ref=Source.Document.ParentDocumentUNID
     doc.Ref = Source.Document.UniversalID
     doc.User = s.UserName
     doc.Read = Cstr(Now)
    If doc.Save( True, False ) Then
    Messagebox "Document " & doc.UniversalID & _
       " successfully saved"

end if
0
 
sjmmajorAuthor Commented:
P partha, I can't really use the code above since one of the ones that isn't showing up is the Senior VP.  I did change the create form on the form to include everyone before it just stated "Author and above".  Although some users still did show up.  I will test it and let you both know.  Thanks for your help!!
0
 
sjmmajorAuthor Commented:
Thanks.  Somehow the rights to his notes id itself changed.  All's well now.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

  • 4
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now