Domino 9 und frühere Versionen > ND6: Entwicklung

Postopen=> EditMode sperren

<< < (2/2)

koehlerbv:
Der Vollständigkeit halber hier noch der zugehörige Code aus dem QueryModeChange:


--- Code: ---Sub Querymodechange (Source As Notesuidocument, Continue As Variant)

Dim szErrorReason As String

'Prevent editing a signed or discarded entry:
If Source.Document.Status (0) <> "" Then
If Source.Document.Status (0) = STATUS_SIGNED Then
szErrorReason = "Freigegebene"
End If
If Source.Document.Status (0) = STATUS_DISCARDED Then
szErrorReason = "Verworfene"
End If

Messagebox szErrorReason & " Einträge können nicht mehr bearbeitet werden !", MB_ICONEXCLAMATION, "Warnung"
If Source.EditMode = False Then
Continue = False
End If     
End If     

End Sub
--- Ende Code ---

Auch im PostRecalc steht noch relevanter Code - hier der Auszug (das Warum ist im Sourcecode kommentiert:)


--- Code: --- 'Prevent editing a signed or discarded entry - BECAUSE PostRecalc will be EXECUTED FIRST we have to check this event, too !!!
If  (Source.EditMode = True) And (Source.Document.Status (0)  <> "") Then
Source.EditMode = False 'This triggers the QueryModeChange event !
Exit Sub
End If

--- Ende Code ---

Der Hund muss woanders begraben liegen.

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete