Domino 9 und frühere Versionen > ND6: Entwicklung

Tipp zur Umsetzung eines Links zum Kontakt

<< < (2/7) > >>

Axel:
Hi,

eins ist mir im Nachhinein doch aufgefallen. Warum setzt du denn das Form-Feld der Maske nochmal?

...
Doc2.Form = "Sales Opportunity"
...

Weiter oben in deinem Code speicherst du das Dokument doch schon und spätestens ab da ist das Form-Feld gesetzt.


Axel

dabjoern:
Hi Axel,
die Schleife funktioniert super. Mir ist beim Testen aber noch was Komisches aufgefallen. Wenn ich das Skript ausführe und die Links anlege , kann ich nichts mehr speichern. D.h. sobald der Link eingefügt ist, werden keinerlei Daten mehr im Dok gespeichert. Da kann ich ändern was ich will.  :-:
MfG
Björn

koehlerbv:
Du setzt ja auch SaveOptions ="0" vorher - das ist der Casus Knacktus.

Bernhard

dabjoern:
Wenn ich die besagt Zeile entferne, dann funktioniert das obige Skript aber nicht mehr, d.h. dann sehe ich den Link nicht im Richt Text Feld. Schade, ich probier nun heute schon den ganzen Tag und ich finde keine gescheite Lösung.
MFG
Björn

Axel:
Hi,

das mit den RTF-Felder ist so eine Sache. In manchen Fällen verhalten sich die Dinger etwas störrisch.

Unser Forumsmitglied ata (Alias Anton Tauscher) hat auf seiner Webseite eine Funktion, die dein Problem löst.


--- Code: ---REM Das aktuelle Dokument schließen und wieder öffnen......
    Function ReOpen(docThis As NotesDocument) As Integer
        Dim ws As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Dim dbThis As NotesDatabase
        Dim unid As String
 
        ReOpen = 0
        Set dbThis = docThis.ParentDatabase
        Call docThis.Save(True , True)
        unid = docThis.UniversalID
        docThis.SaveOptions = "0" ' # ... Speicherabfrage vermeiden
        Set uidoc = ws.CurrentDocument
        Call uidoc.Close
        Set docThis = dbThis.GetDocumentByUNID(unid)
        Set uidoc = ws.EditDocument(True , docThis)
        Set docThis = uidoc.Document
        If docThis.HasItem("SaveOptions") Then 
            ' # ... das Feld SaveOptions wieder entfernen...
            docThis.RemoveItem("SaveOptions")
            Call docThis.Save( True , True )
        End If
        ReOpen = 1
        Print "Das Dokument wurde erneut geöffnet"
    End Function


--- Ende Code ---

Binde diese Funktion in deinen Code ein, und dann sollte das funktionieren.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete