DominoArea.org [Archive]

Bonjour,

Je ne dois pas être reveillé ce matin, je veux recuperer une valeur par un getdocumentbykey.

Code : Tout sélectionner

   Dim workspace As New NotesUIWorkspace
   Dim s As New NotesSession
   Dim db As notesdatabase
   Dim UIDoc As NotesUIDocument 
   Dim vue As NotesView
   Dim docvue As NotesDocument
   
   
   Set db = s.currentdatabase
   Set UIDoc = workspace.CurrentDocument
   
   'on recupere les paramètres selon le format
   Set vue = db.GetView ("(Format)")
   Set docvue = vue.GetDocumentByKey(UIDOC.FieldGetText("TF_FORMAT"),True)
   
   If Not (docvue Is Nothing) Then
      Msgbox docVue.GetItemValue("F_Prix")
   Else
      Messagebox "Format non trouvé"
      Exit Sub
   End If

J'ai un message d'erreur :
Type incompatible dans la méthode OP_CHECK_TOS_BYVAL : string trouvés, unknown attendus

Pour info je suis en v8.

D'avance merci

salut

remplace

Msgbox docVue.GetItemValue("F_Prix")

par

Msgbox cstr(docVue.GetItemValue("F_Prix")(0))

Il faut considéré que tout est tableau chez lotus
donc un champ est un tableau
quand il est mono évalué il est dimensionné à (0)
quand il est multi évalué il est domensionné de (0) à (n)

pour un mono il faut donc récupéré son indice (0)
pour un multi il faut balayer le tableau avec un forall pour traiter toutes les valeurs
cela est très bien documenté dans les exemples du site et dans nos tutos