Probleme mit QueryDocumentDelete

[hOtze]

HILFE!!!!!!!  
Wollte im QueryDocumentDelete Event der DB überprüfen ob das in dem zu löschenden Dokument ein bestimtes Feld gefüllt ist, ist dieses der fall soll der User eine MagBox an den Kopf geknall kommen, indem er das löschen bestätigen oder verweigern kann (Continue=flase bzw true)

So weit so gut!

Prob is nun das das Script immer erst nach zweimaligen betätigen der entfenen Taste auf dem doc anläuft?!?!

Woran kann das liegen?

[Don Pasquale]

Sollte er eigentlich nicht tun.
Hast Du mal den Debugger angeschmissen ?

Ciao
Don Pasquale

[hOtze]

Jiep Debuger hab ich schon laufen lassen..... aber am Script kanns doch auch nit liegen, da es je funktioniert aber komischer weiße erst nach zweimaligen betätigen der entf taste!  

Eigentlich dürfter er ja bei Continue=False schon gar keinen "Mülleimer" setzten oder? Macht er aber!

Aber hier poste trotzdem mal mein Script ..... vielleicht sehe ich ja nur denn wald vor lauter Bäumen nit!  

----------------------------------------------------------
Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)
   Dim s As New NotesSession
   Dim col As NotesDocumentCollection
   Dim result As Variant
   Dim sourcedoc As NotesDocument
   
   Set col = Source.Documents
   
   If col.count > 0  Then
      Set sourcedoc = col.getFirstDocument
      
      Do Until sourcedoc Is Nothing
         If Not Isempty(sourcedoc.useddocs) Then
            result = Msgbox("Das ausgewählte Newsdokument: " + sourcedoc.ntitel(0) +" wurde mit einem weitern Dokument verknüpft!"+Chr(13)+"Löschen des Dokumentes kann zu fehlern in der Darstellung der HP führen!"+Chr(13)+Chr(13)+" Möchten sie das Dokument trotzdem löschen?",4+64,MSGTITEL )
            If result = 6 Then
               Continue = True
            Else
               Continue = False
            End If   
         End If
         Set sourcedoc = col.getnextdocument (sourcedoc)
      Loop
   End If
End Sub

[Don Pasquale]

Sub Querydocumentundelete(Source As Notesuidatabase, Continue As Variant)

Fällt Dir was auf ? UNdelete

Ciao
Don Pasquale

[hOtze]

  Wie schmeckt der Lutscher!
Wer lessen kann ist klar im Vorteil!  

Danke!

[Don Pasquale]

Ist mir auch schon oft passiert.

Gruß

Don Pasquale