Domino 9 und frühere Versionen > ND7: Entwicklung

embeddedobject geht nicht mehr

<< < (2/2)

yaka999:
Hallo,

nein, leider nicht. Wie oben geschrieben läuft der Fehler auf dieser ZEile auf:

  Forall o In rt.EmbeddedObjects

Ich verstehe ja auch nicht, warum es nicht mehr geht. MEin Verdachtist, dass es mit VErsion 7 irgendwie anders geht. Aber ich bin da auch nur Laie

Gruß
Phil

Werner Götz:
Ich glaube, das hatte ich auch mal.

Versuch mal folgendes:
If Not Isempty(rt.EmbeddedObjects) Then
    Forall o In item.EmbeddedObjects
        ...
    End forall
end if

-Werner

ata:

--- Zitat ---Forall o In rt.EmbeddedObjects

--- Ende Zitat ---

... in dem Fall ist es, wie Werner Götz dir antwortet - das Array ist leer und muß abgefangen werden...

Toni

yaka999:
Guten Morgen,

Vielen Dank für die Antworten, dochj leider ist es nocht nicht das, wonach ich suche.

Aber ich gleube ich habe mich auch ein wenig missverständlich ausgedrückt. Sorry, mein Fehler.

Ich habe dieses Problem nur dann, wenn das Dokument bereits einmal gespeichert wurde ohne
Dateianhang. Und zwar nur dann. Wenn ich dann ein Bild etc Anhängen möchte und wieder speichere läuft er mir auf den Fehler. Der Vorschlag von Werner ist ja gut, aber er löst mein Problem nicht. Da geht er ja einfach über die eine Datei drüber ohne die Größe zu prüfen. Und genau das will ich ja vermeiden.  ???

yaka999:
Hallo,

ich bin es noch einmal.

ICh habe mir jetzt mit nem Schuljungentrick geholfen. Ich greife das Richtextitem ght nicht mehr direkt an. Ich habe in dem Dokument eh schon ein Feld, in das die Größen der Dateianhänge reingeschrieben werden. ICh nehme jetzt einfach dieses Feld und Frage die Werte der Reihe nach ab.
Fertig.

Ich bin mir sicher das hier der ein oder andere die gleichen oder zumindest ähnlichen  Probleme hat wie ich. Darum hier der Code:

   Call uidoc.Refresh
      If uidoc.fieldgettext("fsize") = "" Then
         Call source.FieldSetText("ok", "ok")
      Else
         idx = 0
         j = 0
         For idx = 0 To Ubound(doc.fsize)
            If doc.fsize(idx) > 515000 Then
               Msgbox "Es muss mindestens ein Bild verkleinert werden!", , "Hinweis"
               continue = False
               Exit Sub
            End If
         Next
         idx = idx + 1
         Call source.FieldSetText("ok", "ok")
      End If

Das Feld dach ich Abfrage heißt bei mir fsize und enthält folgende Formel :
   @is(@Attachments > 0; @AttachmentLEngths; "")

Warum soll ich mich da verbiegen, wenns auch so geht.  ;D

Navigation

[0] Themen-Index

[*] Vorherige Sete