Error 272: Access To Data Denied

azzza

Well-known member
26.04.2011
65
0
#1
Добрый день !

Заметили на 8-ом (8.5.2 FP4) клиенте - выскакивает окном с подтверждением , на 7.0.4-ке все тихо и спокойно.
Как победить сабж и избавиться от него :eek: ? Прошу Вашей помощи, просьба не пинати - нужно разгребать наследство.
Почему может происходить - предпринималась попытка проталкивать уведомления сл.кодом:

Вижу в Общей программе БД:
<!--shcode--><pre><code class='LS'>Sub Postopen(Source As NotesUIDatabase)
On Error Resume Next
Set StopenTimer = New NotesTimer(1)
On Event Alarm From StopenTimer Call timeralarm
End Sub[/CODE]
Там же еще
<!--shcode--><pre><code class='LS'>Sub timeralarm(Source As NotesTimer)
On Error GoTo err1
If Isnewdoc Then Exit Sub
Dim s As New NotesSession
Dim ws As NotesUIWorkspace
Dim db As NotesDatabase
If ws Is Nothing Then
Dim wsn As New NotesUIWorkspace
Exit Sub
Set ws=wsn
End if
Set db=s.currentdatabase
if IsEmpty(ws.Currentdocument) Then GoTo doing
Set doc = ws.Currentdocument.Document
If Not doc Is Nothing Then
unid = doc.Universalid
End If
doing:
On Error Resume Next
Call ws.Checkalarms()
If Not doc Is Nothing Then
Set doc = db.Getdocumentbyunid(unid)
End If
End Sub[/CODE]
и
<!--shcode--><pre><code class='LS'>Sub Queryclose(Source As NotesUIDatabase, Continue As Variant)
On Error Resume Next
If StopenTimer.Enabled Then StopenTimer.Enabled=False
Set StopenTimer = Nothing
End Sub[/CODE]