Ändern eines Textfeldes

[7Stein]

Ich habe eine View, aus de heraus eine Maske aufgreufen wird, wenn ich einen Doppelklick auf das Dokument mache.
Wie bekomme ich heraus, ob das Dokument einen gewissen Status hat, und kann ich für bestimmte Stati die Möglichkeit schaffen, in der Maske ein Feld editierbar zu machen?

Also:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
   Dim view As NotesView
   Dim entry As NotesViewEntry
'   Set db = session.CurrentDatabase      
   Set view = db.GetView("(Bestellungen\Sonderartikel)")
   Set entry = view.GetEntryByKey("1", False)
   
   Forall colval In entry.ColumnValues
      ePreis = editable
   End Forall
End Sub

das habe ich in das queryopen der View geschrieben, und dann bekomme ich die Fehlermeldung: "Object variable not set"

ePreis ist das Feld, das normalerweise nicht editierbar sein soll, aber manchmal eben doch.

[Glombi]

Du kannst einen kontrollierten Abschnitt (hier wohl oversized) oder zwei Felder - Bearbeitbar und Berechnet zur Anzeige - mit entsprechenden Verbergenformeln verwenden.

Hide-When Formel für ePreis (bearbeitbar)
Status = "Erledigt"

Hide-When Formel für ePreisDisplay (Berechnet zur Anzeige)
Status != "Erledigt"

Dann kann man das Feld nicht ändern, wenn der Status = "Erledigt" ist.

Die beiden Felder müssen mit ENTER getrennt werden oder in verschiedenen Zellen einer Tabelle stehen, da die Hide-When Formel immer für den Absatz gilt!


Die View musst Du nicht verwenden.

Andreas

[7Stein]

Das funktioniert halb.

Ich bekomme dann, wenn ich die Maske aufrufe, immer die Fehlermeldung:"Object variable not set"
aber danach geht die Maske trotzdem auf.

Was ist da denn jetzt noch falsch?