Problem beim Sperren von Dokumenten

[ZaLudtske]

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:

Code

 
  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

[Weixel]

Eventuell deshalb ? 

IsDocumentLockingEnabled in NotesDatabase must be True or this method raises an error.


LG

[ZaLudtske]

Das Sperren von Dokumenten ist aktiviert udn ich habs auch im Code nachgeprüft. Die Eigenschaft gibt den Wert True zurück.