Hallo werte Notesentwicklergemeinde,
ich habe mal wieder ein Problem. Ich habe ein Dokument in dem ich bearbeitbare Felder habe, diese Felder sollen nachdem ich eine Schaltfläche betätige anschließend nicht mehr bearbeitbar sein.
Meine Idee war die Felder in einen Zugriffskontrollierten Abschnitt (berechnet zur Anzeige) zu packen und beim Betätigen der Schaltfläche ein Feld zu setzen
Zugriffsformel des Abschnittes:
@If(fld_EAStatus = "1"; "Nicht mehr bearbeitbar";"")
Dies funktioniert soweit auch, nur leider nicht sofort beim Betätigen der Schaltfläche (dort gehe ich über das UiDocument), ich habe schon mit verschiedenen Sachen uidoc.refresh, reload, EditMode=false usw. herumprobiert, ohne Erfolg. Hat jemand eine Idee oder einen anderen Lösungsvorschlag für das was cih erreichen möchte??
Code für die Aktion der Schaltfläche:
Sub Click(Source As Button)
Dim session As New NotesSession()
Dim ws As New NotesUIWorkspace()
Dim uiDoc As NotesUIDocument
Dim doc As NotesDocument
Dim myDecision As String
Dim answer As String
Set doc = ws.CurrentDocument.Document
Set uidoc=ws.CurrentDocument
uiDoc.EditMode = True
doc.fld_EAStatus="1"
doc.fld_ea_signer=Session.UserName+" "+Cstr(Now())
Call doc.save(True,True)
'Call uidoc.refresh
Call uidoc.collapseallsections
Call uiDoc.save 'uidoc aktualisieren damit die Hide Formeln greifen
'uiDoc.EditMode = False
End Sub
Grüße Baumi