sMöchte gerne eine lokale Replik einer DB bzw. eine Kopie verbieten. Habe für das Öffnen der DB einen Navigator mit entsprechender View angegeben.
Im QueryOpen Event des Views habe ich folgenden Sourcecode, der auch wunderbar funktioniert:
Dim session As New NotesSession
Dim db As Notesdatabase
Set db = session.currentdatabase
If db.server="" Then
Msgbox "Hello "+session.commonusername+Chr(13)+"You are not allowed to use a local copy or replica of this database", 16,"Security Feature"
Continue=False
End If
Ende:
Einziges Problem: Er schliesst die DB wieder, ich kann die Kachel aber nicht löschen, da Notes angeblich noch Zugriff auf die DB hat.
Lässt das Continue=False die Session trotzdem offen ?