Domino 9 und frühere Versionen > ND6: Entwicklung

ReOpen wegen rtf-Feld

<< < (3/6) > >>

pete_bla:
Hi,

malwieder das mit den Anhängen und "nicht speichern"

mein Vorschlag wäre auch hier:

--- Code: ---@AttachmentLengths
--- Ende Code ---
Liefert Dir die grösse der Anhänge bereits nach dem Refresh ohne Speichern!,
z.B. in der Eingabe-Validierung des Feldes, im QuerySave oder sonst wo als "Formel" verwendbar.

-> in Desinger Hilfe steht mehr dazu.

Gruss, Pete(r)

LUSBernd:
@Axel:

Welcher Code den nu genau? Der der schon funtioniert, außer bei neuen Doks, oder der, den ich mir hier bis jetzt zusammengestopselt habe?

@pete_bla:

Ich schau es mir mal an

Gruß
Phil

Axel:
Den Code mit der ReOpen-Funktion, bei dem uidoc nicht gefüllt wird.


Axel

LUSBernd:
Das ist einfach. Den habe ich nämlich nur heir aus dem Forum "geklaut"!!! (Und ich stehe dazu  ;) )

Function ReOpen(doc 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 = doc.ParentDatabase
   Call doc.Save(True , True)
   unid = doc.UniversalID
   doc.SaveOptions = "0" ' # ... Speicherabfrage vermeiden
   Set uidoc = ws.CurrentDocument
   Call uidoc.Close
   Set doc = dbThis.GetDocumentByUNID(unid)
   Set uidoc = ws.EditDocument(True , doc)
   Set doc = uidoc.Document
   If doc.HasItem("SaveOptions") Then 
            ' # ... das Feld SaveOptions wieder entfernen...
      doc.RemoveItem("SaveOptions")
      Call doc.Save( True , True )
   End If
   ReOpen = 1
   Print "Das Dokument wurde erneut geöffnet"
End Function

Wie gesagt, der ist von hier bzw ata. Uidoc bleibt leer ???

Gruß
Phil

LUSBernd:
So. Jetzt füllt er mir auch wieder mein uidoc. Zum Glück.

Jetzt wäre nur noch schön, wenn ich an die Bilder irgendwie rankommen würde.

*Ich bin der König des Konjunktivs!!!*

PHil

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete