par Stephane Maillard » 13 Mai 2003 à 20:45
Bonjour,voici un remplacement de DbLookup en LotusScript, peut que cela sera plus facile :Function dbLookup( Vue As NotesView, Byval Cle As String, Byval nomChamps As String, ValeurRetour As String) As Integer Dim doc As NotesDocument Dim tmp As Variant returnValue = "" dbLookup = True Set doc = Vue.getDocumentByKey(Cle) If doc Is Nothing Then dbLookup = False Else tmp = doc.getItemValue(NomChamps) ValeurRetour = tmp(0) End IfEnd FunctionExemple d'utilisation :If (dbLookup(MaVue, MaCle, MonChamps, Retour)) Then .... ' Votre code de traitementElse Msgbox "Impossible de trouver un document avec " & MaCle & "."End If[%sig%]
Cordialement
Stéphane Maillard