Domino 9 und frühere Versionen > ND8: Entwicklung

Queryclose in Click Event übernehmen

(1/3) > >>

marsu_2:
Hallo,

ich benutze dieses Script in einer Maske im Queryclose, da klappt es auch wie gewünscht es ließt das Feld CommentHistory ein fügt den Inhalt des neuen Feldes ein und löscht den Inhalt aus dem neuen Feld.

Nun wollte ich das in einer anderen DB in eine Schaltfläche übertragen. Nun kommt da aber immer die Fehlermeldung " Not a member: Document"
Set doc = session.CurrentDatabase.GetDocumentByUNID(Source.Document.UniversalID) hat da jemand eine Idee?



--- Code: ---Sub Click(Source As Button)
On Error Goto Oops
Dim session As New NotesSession
Dim doc As NotesDocument
Set doc = session.CurrentDatabase.GetDocumentByUNID(Source.Document.UniversalID) Dim vDetails As Variant
Set vDetails = doc.GetFirstItem("Comments")
Dim vHistory As Variant
Set vHistory = doc.GetFirstItem("CommentHistory")

If vDetails.valueLength < 245 Then
Goto TheEnd
End If

If (vDetails.Type = RICHTEXT And vHistory.Type = RICHTEXT) Then
Call vHistory.AppendText(Format$(Now, "mm/dd/yy hh:nn AM/PM") & " von " & session.CommonUserName & ": ")
Call vHistory.AppendRTItem(vDetails)
Call vHistory.AddNewLine(1)
Call vDetails.Remove
Call doc.Save(True, False)
End If
TheEnd:
Continue = True
Exit Sub
Oops:
Resume TheEnd
End Sub
--- Ende Code ---

Glombi:
Source ist in dem Button kein UI Dokument. Daher musst Du es Dir anders holen.
dim ws as New NotesUIWorkspace
dim uidoc as NotesUIDocument
set uidoc = ws.CurrentDocument
...
Set doc = session.CurrentDatabase.GetDocumentByUNID(uidoc.Document.UniversalID)


Andreas

ascabg:
Hallo,

Weil Source hier Dein Button ist und nicht das UIDocument, welches durch Source
im QueryClose vorhanden ist.

%EDIT
Mein Namensvetter Glombi (Andreas) war schneller.


Andreas

marsu_2:
Das wars danke!

Leider taucht jetzt das nächste Problem auf.
Im Designer kommt jetzt kein Fehler mehr aber wenn ich die Schaltfläche dann betätige kommt die Meldung
--- Zitat ---Object Variable not Set
--- Ende Zitat ---


Wenn ich das Dokument vorher manuel speicher und erneut aufrufe, kommt die Meldung nicht.
 

ascabg:
Hallo,

Weil sich RichText-Felder leider etwas anders verhalten.

Diese stehen, ohne irgendwelche Eingriffe, in einem neuen, noch nicht gespeicherten
Dokument halt noch nicht zur Verfuegung.


Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite