Hallo,
ich möchte auf dem Server testen, ob eine DB existiert und ob der angemeldete User die Rechte zum öffnen hat.
Dazu wollte ich per QueryAccess prüfen ob Rechte > als ACL_Reader sind.
Durch die Zeile Set CheckACLDB wird aber direkt im Client die Fehlermeldung Benutz ... kann Datenbank ... nicht öffnen erzeugt.
Siehe Screenshot.
Was mache ich falsch?
Code
Dim CheckACLDB As NotesDatabase
Set CheckACLDB = New NotesDatabase( Servername, "database.nsf" )
Dim level As Integer
level = CheckACLDB.QueryAccess( s.CommonUserName )
MsgBox level
Grüße