also ich muss das Thema leider nochmal hoch holen. Es scheint sich hier um einen generellen "Bug" zu handeln. Ich habe es jetzt zum 1. Mal auch hingekriegt, dass uiview = Nothing ist. Trotz Löschen aus der Ansicht heraus (siehe Screenshot).
Ich hatte nach dem 1. Auftreten den Code wie folgt geändert:
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
'*********************************************************************************************************************************
'doc deleting only with the shared action allowed
'*********************************************************************************************************************************
On Error Goto ErrHandle
'*********************************************************************************************************************************
Const EventName = "Querydocumentdelete" 'for reports
'*********************************************************************************************************************************
Dim s As New NotesSession
Dim work As New NotesUIWorkspace
Dim uiview As NotesUIView
'*********************************************************************************************************************************
Call ReportWrite (EventName & " - prüfe ob Dokument gelöscht werden darf")
Set uiview = work.CurrentView
If uiView Is Nothing Then Goto NotDelete
If uiview.View.Aliases(0) = "ReservationCalendar" _
Or uiview.View.Aliases(0) = "ReservationList" _
Or uiview.View.Aliases(0) = "ReservationByUser" Then
Call ReportWrite (EventName & " - Dokumente dürfen gelöscht werden")
'RETURN
Continue = True
Goto Leave
Else
Goto NotDelete
End If 'uiview.View.Aliases(0) = "ReservationCalendar" _
NotDelete:
Msgbox "Das Löschen ist nur über die vorgesehenen Schaltflächen zulässig."
Call ReportWrite (EventName & " - Löschen unterbunden")
'RETURN
Continue = False
Leave:
Exit Sub
ErrHandle:
Call ReportWriteError(EventName & " - Error" & Str(Err) & ": " & Error$ & " in Zeile " & Erl)
Msgbox "Error" & Str(Err) & ": " & Error$ & " in Zeile " & Erl
'RETURN
Continue = False
Resume Leave
End Sub
Ich habe eigentlich nur ein paar andere Dokumente (auch in anderen DB's) berbeitet und geschlossen und daraufhin das Dokument aus der Ansicht (Screenshot - ReservationList) löschen wollen. Wirklich reproudziert kriege ich es jedenfalls nicht. Mal greift das Script, mal ist uiview nothing ???
ah, ich dachte du meintest workspace.currentView.ViewAlias. Das hatte ich nämlich in der Hilfe gefunden und mich auch gleich gefragt, warum ich eigentlich workspace.currentView.View.Alias(0) nutze ;D
p.S. ggf könnte man den Fehler reproduzieren wenn währenddessem jemand am Server einen Drop-All ausführt...
Ob ich an dem Tag die View aus dem Designer geöffnet habe, kann ich so genau gar nicht mehr sagen. Aber der User, wo das zum 1. Mal passiert war, hat defintiv keinen Designer.