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.