Hallo,
ich steh grad irgendwie auf dem Schlauch. Ich will ein rtf-Feld überprüfen, ob die Dateianhänge auch nicht zu lang sind, da die DB sonst zu groß wird.
Ich habe im Querysafe eine Funktion geschrieben. Nun muss aber bei einem neu erstellten Dokument dieses erst abgespeichert werden, sonst bekomme ich in der Überprüfung einen Fehler. Ich habe inzwischen auch von ATA das reopen gefunden. Leider stehe ich grad aufm Schlauch wie ich es so einbinde, dass er mir das auch macht, wenn das Dokument neu ist. Also hier die Frage: Wie funzt das?
Hier mein Querysafe:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rt As NotesRichTextItem
Dim item As NotesItem
Dim idx As Integer
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem("bild")
If Not doc.hasembedded Then
Call source.FieldSetText("ok", "ok")
Else
idx = 0
Forall o In rt.EmbeddedObjects
Redim Preserve strdateiinfo(idx)
strdateiinfo(idx) = Trim$(Str(o.filesize))
If o.filesize > 515000 Then
Msgbox ("Wie in der Schulung gelernt, müssen die Bilder verkleinert werden!")
continue = False
Exit Sub
End If
idx = idx + 1
End Forall
doc.fsize = strdateiinfo
Call source.FieldSetText("ok", "ok")
End If
If source.FieldGetText("ok") = "" Then
Call source.FieldSetText("ok","")
continue = False
Else
Call source.FieldSetText("ok","")
End If
End Sub
