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
