hallo,
mich muß mal wieder an die Gemeinde wenden, denn auch eine Suche im Forum hat nichts erbracht.
Folgendes Problem:
Ich versuche mit der Methode Lock der Klasse NotesDocument ein Dokument zu sperren um es danach zu Löschen. Aber bereits beim Sperren erhalte ich die Fehlermeldung: Notes error: Dokument wurde gelöscht.
Hier noch der Quellcode:
Set nseMain = New NotesSession
Set ndbApp = nseMain.CurrentDatabase
Set nviSuche = ndbApp.GetView("nvi_Abgleich")
nviSuche.Refresh
Set nvcAlle = nviSuche.AllEntries
If nvcAlle.Count > 0 Then
Set nveEintr = nvcAlle.GetFirstEntry()
Do While Not nveEintr Is Nothing
Set ndoDoc = nveEintr.document
vntValue = ndoDoc.GetItemValue("t_Quelle")
strUIdAkt = vntValue(0)
If strUIdAkt <> strUIdVorg Then
strUIdVorg = strUIdAkt
Else
ndoDoc.Lock nseMain.CommonUserName, False <--- Der Fehler passiert hier
ndoDoc.Remove True
End If
Set nveEintr = nvcAlle.GetNextEntry(nveEintr)
Loop
End If
Hat jemand eine Idee, was da schief läuft. Ich glaube ich stehe heute auf dem Schlauch.
Gruß
Rainer