Domino 9 und frühere Versionen > ND6: Entwicklung

Private view eines Users löschen - Deklarationsprobleme

<< < (2/5) > >>

theBastian:
Dank dir,

aktueller Stand:


--- Code: ---Dim session As New NotesSession
Dim db As NotesDatabase
Dim vUserName As Variant
Dim view As NotesView
Dim docView As NotesDocument
Dim itmFlags As NotesItem
Set db = session.CurrentDatabase
'Get current user
Set vUserName=New notesname(session.username)
Forall v In db.Views
Set view = v
'Get flag for private view
Set docView = db.GetDocumentByUNID( view.UniversalID )
Set itmFlags = docView.GetFirstItem( "$Flags" )
'Check if view is private
If Instr( itmFlags.Values( 0 ), "V" ) Then
'Check if readers is current user
equality=False
For i=0 To Ubound(v.readers)
If v.readers(i)=vusername.canonical Then
equality=True
Exit For
End If
Next
If equality = True Then
Call v.Remove
End If
End If
End Forall

--- Ende Code ---

Beim Schließen der DB tritt folgender Fehler auf:

Notes Error: invalid or nonexistent document ()

Wenn ich versuche per Debugger rauszukriegen, wo der Fehler auftritt, schmiert Notes komplett ab (NSD).

Dachte weil ich eine View löschen will, die noch offen ist, habe aber keine Private view offen.

???
der B@sti

Gandhi:
Das Script läuft durch?
Falls nein: Was ist die letzte vom Debugger angezeigte Zeile, wenn Du schrittweise durchgehst?

Die Fehlermeldung hört sich so an, als sei das Dokument nicht mehr vorhanden - bzw. schon gelöscht.
Ach ja: Ist das eine View auf dem Server oder auf dem Desktop?

theBastian:
Also View ist natürlich in der DB, an die in der desktop.ndk komme ich ja so nicht ran.

Wenn ich versuche per Debugger rauszukriegen, wo der Fehler auftritt, schmiert Notes komplett ab (NSD).
 <--- darum weiß ich nicht, in welcher Zeile der Fehler auftritt.

Gandhi:
Bereits beim Starten des Debuggers ???

theBastian:

--- Zitat von: Gandhi am 25.10.05 - 14:38:02 ---Bereits beim Starten des Debuggers ???

--- Ende Zitat ---

Sobald der Debugger anspringen sollte, schmiert Notes ab.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete