How to copy ACL notes?

Hi,

I’m copying all notes from a db to a new db:

’ Get all notes from source db

Set ncSource = Me.dbSource.Createnotecollection(True)

ncSource.Selectalldatanotes(True)

ncSource.BuildCollection

’ Copy all notes.

noteid$ = ncSource.Getfirstnoteid()

While noteid$ <> “”

Set docSource = Me.dbSource.Getdocumentbyid(noteid$)

Set docTarget = docSource.Copytodatabase(Me.db)

noteid$ = ncSource.Getnextnoteid(noteid$)

Wend

Everything else (as far I have noticed) gets copied over but the ACL. I’ve also tried to copy ACL notes only using

ncSource.Selectacl = True

but it does not help. I know there are other ways to copy ACL but I’d like to use notes because I want to be able track changes to all notes based on modification date.

This looks like a bug to me. Has anyone gotten this to work?

thanks,

  • Panu

Subject: CreateCopy Method

The CreateCopy method of the NotesDatabase class creates an empty copy of the current database with the same ACL, design elements, and database title. Perhaps you could use this method to create the new copy & then copy the documents?

Subject: Thanks but

As I said I’d like to track changes in the future and that’s easieast with notes. There are many ways to copy ACL, one of them is using NotesACL class but in this case just copying the ACL is not the issue.