verifier l'attachement d'un fichier sur un champ

[lebanner]

Bonjour a tous,

Dans mon masque, j'ai deux chzmps texte riche, ces deux champs doivent contenir un fichier attaché.

Comment je peux vérifier à l'enregistrement de mon doc que ces deux champs contiennent bien un fichier ?

Je galére vraiment. J'ai regarder dans l'aide mais j'ai rien trouvé qui peut correspondre à mon problème.

Merci d'avance pour votre aide

Cordialement

[Jérome Deniau]

On sait si un doc contient une ou plusieurs pièces jointes, maintenant pour savoir dans quel champ, il faudrait utiliser dxlexporter, mais bon courage.. Le mieux c'est pas de champ mais des beaux boutons pour rattacher un fichier ainsi on contrôle.....

[lebanner]

je sais quel champs doit contenir une piece jointe, je souhaite juste vérifier à l'enregistrement du doc si ces deux champs contiennent une piece jointe

[Jérome Deniau]

Ben donc c'est facile:

set rtitem=doc.getfirstitem("Champ1")


If Isarray(rtitem.EmbeddedObjects)Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
msgbox o.name
end forall
end if

puis après champ2 puis après.....

[lebanner]

sous quel forme doit être déclaré le rtitem ?

J'ai mis :
Dim rtitem as NotesRichTextItem

Dans tous les cas, j'ai un message d'erreur sur le début du id Isarray...

Message = Object variable not set

Merci d'avance

Cordialement

[Michael DELIQUE]

salut

tu as instancié ton rtItem ?

[lebanner]

voici tout le code (j'ai repris ton code en ajoutant mon champ) :

Code : Tout sélectionner

Dim rtitem As NotesRichTextItem
   Set rtitem = doc.GetFirstItem("doc_reco_initiee_kill")

   Call uidoc.Refresh
   
   If Isarray(rtitem.EmbeddedObjects) Then
      Forall o In rtitem.EmbeddedObjects
         If (o.type = EMBED_ATTACHMENT) Then
            Msgbox "Bonjour"
         End If
      End Forall
   End If

[Michael DELIQUE]

et la variable doc elle est instancié ou ?

[lebanner]

voici :

Code : Tout sélectionner

Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document

[Michael DELIQUE]

regarde en mode debug la tete de ton rtItem pour voir ou il plante

[lebanner]

En mode debug il boque au niveau du premier If

Logiquement s'il arrive jusqu'au premeir if, le rtitem doit etre instancié et la g rien :

[Michael DELIQUE]

re,

ben d'apres ce que je vois ton rtItem n'est pas instancié !

donc soit tu colles un if not rtItem is nothing avant

soit tu regardes si ton champ exsite vraimment

[hippostef]

Bonjour,
Un petit enregistrement du doc avant de recuperer le rtitem est necessaire sinon le controle de la presence de fichier ne sera pas faisable (cas par exemple d'une validation de document sans l'avoir enregistre auparavant).

[lebanner]

re,

ben d'apres ce que je vois ton rtItem n'est pas instancié !

donc soit tu colles un if not rtItem is nothing avant

soit tu regardes si ton champ exsite vraimment

J'ai collé le if not rtitem is nothing avant le premier if général et effectivement il ne trouve pas le rtitem

cela peut etre du a quoi ?

[lebanner]

Bonjour,
Un petit enregistrement du doc avant de recuperer le rtitem est necessaire sinon le controle de la presence de fichier ne sera pas faisable (cas par exemple d'une validation de document sans l'avoir enregistre auparavant).

Le problème c'est que je ne veux pas que le document soit enregistré si les deux champs en question en contienne pas de fichier attaché