Domino 9 und frühere Versionen > Entwicklung

Lotus Script

<< < (3/4) > >>

tingeltangel:
das darf aber nicht sein. Hast du eine Idee wie die Fehlermeldung verschwindet und das dokument nicht im Edit - Modus geöffnet wird.

Don Pasquale:

Sub Postopen(Source As Notesuidocument)

source.editmode = true
source.save
source.editmode = false

field$ = source.FieldGetText("f_ed_tx_45")
If field$ ="Freigegeben" Then  
If (Source.editmode = True) Then
Msgbox "Das Dokument wurde schon freigegeben. Sie können es nicht mehr bearbeiten",16,"Hinweis"
Call source.close
Continue = False
Exit Sub
End If
End If
End Sub


das geht dann so schnell
davon merkt der user nix
pasquale

tingeltangel:
ne das geht nicht. Bin glaube ich eifach zu dämlich

Don Pasquale:
Ich habe es nicht ausprobiert, möglich dass es nicht geht.
Aber eine Frage: Was geht nicht und mit welcher Meldung ?
Ciao
Don Pasquale

tingeltangel:
Das Dokument wurde schon freigegeben. Sie können es nicht mehr bearbeiten.

Anschliessend kommt gleich die Meldung:
Document command is not available

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete