Hallo Leute,
habe mir hier son kleines Script in der QuerySave Funktion zusammen gebastelt, mit der ich ein Dokument aktualisieren will, sobald das aktuelle Dokument gespeichert wird.
Hier erstmal mein Code:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim docCourseOffer As NotesDocument
Dim docCourseBooking As NotesDocument
Dim CourseID As String
'# Session + DB + current Doc
Set session = New NotesSession
Set db = session.CurrentDatabase
Set docCourseBooking = source.Document
CourseID = docCourseBooking.GetItemValue("CourseID")(0)
'# sec Doc
Set view = db.GetView("CourseOffer")
Set docCourseOffer = view.GetDocumentByKey(CourseID)
'# refresh
End Sub
Ich habe schon verschiedene Sachen versucht wie zum Beispiel
docCourseOffer.Refresh()
docCourseOffer.ComputeWithForm(False, False)
'#EDIT: Fällt weg, da ich gerade gelesen habe, dass diese Funktion nicht mit @Command funktioniert.Ebenfalls habe ich eine neue Variable erstellt:
Dim result As Variant
result = Evaluate("@Command([ToolsRefreshSelectedDocs])", docCourseOffer)
Diese Möglichkeit habe ich auch probiert.
Da ich noch ziemlich neu im Lotus Notes Bereich bin, fehlen mir eventuell noch die Kenntnisse um auch andere Ideen zu kommen.
Hatte auch schon eine Menge hier im Forum rumgesucht, bin jedoch nicht zu einer passenden Lösung gekommen.
Hätte vielleicht jemand eine Idee, wie man dieses Problem löst?
Liebe Grüße!
